pb à cause d'une userform - VB/VBA/VBS - Programmation
MarshPosté 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"
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"
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"