Excel : texte qui rapetisse avec macro
Résolu
le chien bleu
-
le chien bleu -
le chien bleu -
Bonjour,
Je travaille avec Excel Office XP
Lorsque j'exécute une macro à partir d'un bouton inséré dans la feuille de calcul, celle ci fonctionne correctement. Seulement le texte du bouton rapetisse avec chaque utilisation de la macro jusqu'à devenir illisible.
Tous mes boutons ne sont pas affectés. J'ai comparé les propriétés des boutons affectés et des boutons non affectés et elles sont identiques.
Si quelqu'un a une idée, je lui en serais très reconnaissant.
D'avance merci
Cordialement, le chien bleu
Je travaille avec Excel Office XP
Lorsque j'exécute une macro à partir d'un bouton inséré dans la feuille de calcul, celle ci fonctionne correctement. Seulement le texte du bouton rapetisse avec chaque utilisation de la macro jusqu'à devenir illisible.
Tous mes boutons ne sont pas affectés. J'ai comparé les propriétés des boutons affectés et des boutons non affectés et elles sont identiques.
Si quelqu'un a une idée, je lui en serais très reconnaissant.
D'avance merci
Cordialement, le chien bleu
A voir également:
- Excel : texte qui rapetisse avec macro
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
4 réponses
Voila le code de la macro. Rien de bien compliqué.
Sub Oasis1000()
'
' Oasis Macro
' Macro enregistrée le 14/08/2011 par le chien bleu
'
'
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5, Criteria1:="<=1000", Operator:=xlAnd, _
Criteria2:="<>0"
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=10
End Sub
Sub Oasis1000()
'
' Oasis Macro
' Macro enregistrée le 14/08/2011 par le chien bleu
'
'
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5, Criteria1:="<=1000", Operator:=xlAnd, _
Criteria2:="<>0"
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Selection.AutoFilter Field:=8
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=10
End Sub
Incompréhensible!
Comme dirait n'importe quel informaticien ne sachant pas : "c'est un bug!"...
Bon ça on le savait.
La solution passe forcément donc par une autre macro qui "réinitialiserait" tes boutons. Seulement, avant de t'écrire le code, j'ai besoin de savoir si tes boutons ont été dessinés à partir de la barre d'outils :
1- boîte à outils contrôles
2- formulaire
Comme dirait n'importe quel informaticien ne sachant pas : "c'est un bug!"...
Bon ça on le savait.
La solution passe forcément donc par une autre macro qui "réinitialiserait" tes boutons. Seulement, avant de t'écrire le code, j'ai besoin de savoir si tes boutons ont été dessinés à partir de la barre d'outils :
1- boîte à outils contrôles
2- formulaire
Bonjour,
Aucun lien avec cette macro.
Sans doute excel qui merdouille...
Ferme-le (complètement, pas seulement le fichier) et relance pour voir si ça persiste.
eric
Aucun lien avec cette macro.
Sans doute excel qui merdouille...
Ferme-le (complètement, pas seulement le fichier) et relance pour voir si ça persiste.
eric