XL 2021 (Résolu) Aide vrai/faux dans plusieurs colonnes de cases à cocher

Mathos

XLDnaute Nouveau
Bonjour à toutes et tous,
J'ai un petit souci, voici un aperçu de mon fichier excel :
1711625185051.png


Je souhaites, quand je coche une case que ça colorie la case avant, ça pas de souci je maitrise. Par contre j'ai près de 150 cases dans chaque colonne, je ne peux donc pas faire manuellement chaque case pour la passer en vrai/faux.
J'ai utilisé ce script qui me permet de le faire automatiquement, mais malheureusement, ça ne fonctionne qu'avec la première colonne. Auriez-vous une astuce pour que cela fonctionne sur toutes les colonnes svp ?
Voici le code que j'utilise :

VB:
Sub LinkChecks()
Dim xCB
Dim xCChar
i = 3
xCChar = "G"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

Comme pour l'instant ça ne fonctionne qu'avec la colonne G je mets vrai/faux dedans et ensuite je passe la couleur de la police en blanc, comme ça c'est invisible et évite d'utiliser d'autres cases. Je souhaiterais donc faire la même chose en I, K...

D'avance merci si vous avez une astuce

Hervé
 
Dernière édition:

Phil69970

XLDnaute Barbatruc
Bonjour à tous

@Mathos

Tu peux déjà prendre mon fichier comme base, ça t'évitera d'en fabriquer un en partant de zéro, et ça lui permettra de mieux comparer les propositions

En partant sur la base du fichier de TFB qu'il faudra bien sur adapter au fichier de @Mathos

Merci de ton retour
 

Pièces jointes

  • Case à cocher canada dry V1.xlsm
    17.5 KB · Affichages: 6

Discussions similaires

Réponses
9
Affichages
127

Statistiques des forums

Discussions
312 938
Messages
2 093 784
Membres
105 830
dernier inscrit
sylvain.marteel1-partner@