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

[Mathos]

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

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 :

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é

 

[TooFatBoy]

Bonjour,

Est-ce vraiment utile de mettre des cases à cocher ?
Ça allourdi le fichier. Nan ?

 

[Mathos]

Je préfères, en cas de rejet de chèque par exemple, mais si vous avez une autre idée, je suis preneur

 

[TooFatBoy]

Je pensais à remplacer les cases à cocher par un double-clic dans la cellule contenant actuellement la case à cocher.

Mais c'était juste une idée, en passant.

 

[Mathos]

Et ça colorerait la case à coté ? celle du montant ? Si oui, pourquoi pas

 

[TooFatBoy]

Et ça colorerait la case à coté ?

Pour colorier il suffit d'une Mise en Forme Conditionnelle.

J'essaye de te faire une proposition dans l'après-midi.

 

[Mathos]

Merci c'est super sympa

 

[Phil69970]

Bonjour @Mathos et bienvenu sur XLD
Bonjour TFB

Je préfères, en cas de rejet de chèque par exemple, mais si vous avez une autre idée, je suis preneur

C'est possible sur clic exactement comme tes cases à cocher mais sans case à cocher donc en version canada dry mais pas sans fichier
Et maintenance ultra simple !!!!

 

[TooFatBoy]

Une proposition en pièce jointe.

Même si ça semble fonctionner, ce n'est pas génial donc tu devrais poster un fichier anonymisé et représentatif de ton vrai fichier afin que le camarade Phil puisse te proposer quelque chose de mieux.

 

[Phil69970]

@Mathos

Et comme le dit TFB j'attends le fichier

Mais pas de fichier pas de chocolat ....

Et j'ai une proposition sans police Wingdings en gardant la même police que le reste de ton fichier

 

[TooFatBoy]

Quel suspens...

 

[Phil69970]

Je le fais bien ....

 

[TooFatBoy]

Et comme le dit TFB j'attends le fichier

Mais pas de fichier pas de chocolat ....

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 afin de choisir la tienne.

 

[Dranreb]

Bonjour.
Pour moi la solution sans CheckBox ni police Wingdings c'est ChrW$(&H2714) (="✔").

 

[Phil69970]

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