J'ai crée une macro avec l'aide d'excel 2007 (sans la coder moi même car je n'y connais pas grand chose...) qui permet de décocher toutes les cases à cocher, qu'elles soient cochées ou non.
Le problème est qu'elle ne fonctionne qu'une fois, après elle m'indique :
"Erreur d'éxécution '1004':
Impossible de définir la propriété Value de la classe DrawingObjects.
Voici la macro :
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Shapes.Range(Array("Check Box 1", "Check Box 2", "Check Box 3", _
"Check Box 4")).Select
With Selection .Value = xlOff
.LinkedCell = ""
.Display3DShading = False
End With
Range("A1").Select
End Sub
Ce qui est en orange est ce qui est surligné en jaune quand je clique sur débogage.
Re : Macro sur case à cocher ne fonctionnant qu'une fois
Merci pour vos réponse,
J'ai essayé vos 2 macros, malheureusement, celà ne fonctionne pas pour mon cas.
J'ai en effet omis une information qui fait que la 1ère macro décoche toutes les cases comme la seconde sauf que la seconde ne fonctionne pas sous mon vrai classeur (j'ai remplacé Feuil1 par le nom de ma feuille mais ça ne marche pas )
En fait, je voudrais que la macro décoche toutes les cases que j'ai sélectionné, pas toutes celles du classeur. Encore désolé pour la mésentente...
Re : Macro sur case à cocher ne fonctionnant qu'une fois
re , autrement mettre un fichier au format excel2003 .xls comme cela l'ami Pierrot peut regarder trop fort le Pierrot
je vais pas pouvoir rester plus longtemps sorry
Re : Macro sur case à cocher ne fonctionnant qu'une fois
Merci pour ta macro, elle fonctionne très bien, par contre j'aimerais savoir le maximum de "Check Box" car pour "ma" macro, le maximum été de 16, donc j'avais du enchainer plusieurs macro.
Pour ce qui est de les remplacer par des activeX, je me vois mal remplacer mes 191 X 2 Check Box (oui, j'ai 2 colonne de 191). Pour vous donner plus de précisions, ces Check Box sont liées a des formules qui sont liées avec une mise en forme conditionnelle ainsi qu'a d'autres formules. Je n'ai pour le moment aucune macro qui touche à ces Check Box.
Et si j'avais le courage de les remplacer, je ne connait pas les avantages et les inconvénient niveau programmation et utilisation par des novice (j'ai jamais testé, faudra que j'essaye un jour).
Re : Macro sur case à cocher ne fonctionnant qu'une fois
re,
essai comme cela
Code:
Dim i As CheckBox, x as variant
Application.ScreenUpdating = False
With Sheets("essai")
For Each i In .CheckBoxes
x = Split(i.Name, " ")(2)
If x > 1224 And x < 1523 Then i = xlOff
Next
End With
aprés pour sans passer.... il faudrait savoir ce que tu veus faire exactement comme dit plus haut ton fichier va être trés "lourd" a gerer plus c'est simple mieux c'est ...
plus le temps de rester si tu pouvais en dire plus sur ton projet il y a bien quelqu' un ou (une) qui pourra t'aider
Re : Macro sur case à cocher ne fonctionnant qu'une fois
Merci beaucoup, cela fonctionne parfaitement ^^
C'est en fait pour faire un double-simulateur dans lequel on choisi la race puis les compétences (case à cocher) qu'on veut, qui influe sur le lvl, ainsi que sur ses capacités, ses attaques-défenses, ses PV... Comme il est doublé pour pouvoir comparer 2 types de up différent, il me fallait réinitialiser que la partie gauche ou que la droite si on voulait la refaire.