Mathos
XLDnaute Nouveau
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 :
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é
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 :
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 SubComme 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: