pb à cause d'une userform

pb à cause d'une userform - VB/VBA/VBS - Programmation

Marsh Posté le 21-06-2005 à 11:55:05    

bonjour, je suis un novice en vba et j'aimerai un peu d'aide  
j'ai créé une userform afin de remplacer les filtres automatique mais mon code ne semble pas adapté et fait boguer excel. ainsi je suis obliger de faire un ctrl alt sup afin de me sortir de là. aider moi à corriger mon code SVP.  
voici mon code:  
Userform1  
Private sub bouton_OK_click()  
     selection.autofilter field:=2, criteria1:=combobox1  
     selection.autofilter field:=3, criteria1:=combobox2  
     unload Userform1  
end sub  
private sub bouton_annulation_click()  
     userform1.hide  
     selection.autofilter  
     unload userform1  
end sub  
 
le clic sur le bouton ok entraine un bog une fois sur 2 alors que celui sur Annuler l'entraine systematiquement. mais les action ont bien lieu.  
OK entraine un trie automatique et annuler remet les filtre sur "tous"  

Reply

Marsh Posté le 21-06-2005 à 11:55:05   

Reply

Marsh Posté le 21-06-2005 à 12:10:39    

davidan a écrit :

bonjour, je suis un novice en vba et j'aimerai un peu d'aide  
j'ai créé une userform afin de remplacer les filtres automatique mais mon code ne semble pas adapté et fait boguer excel. ainsi je suis obliger de faire un ctrl alt sup afin de me sortir de là. aider moi à corriger mon code SVP.  
voici mon code:  
Userform1  
Private sub bouton_OK_click()  
     selection.autofilter field:=2, criteria1:=combobox1  
     selection.autofilter field:=3, criteria1:=combobox2  
     unload Userform1  
end sub  
private sub bouton_annulation_click()  
     userform1.hide  
     selection.autofilter  
     unload userform1  
end sub  
 
le clic sur le bouton ok entraine un bog une fois sur 2 alors que celui sur Annuler l'entraine systematiquement. mais les action ont bien lieu.  
OK entraine un trie automatique et annuler remet les filtre sur "tous"


pp

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed