Discussion :

[thuglife]

Bonjour,

j'ai un tableau de 11 colonnes avec dans ma dernière colonne des cases à cocher que j'ai créees de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Checkbox()
With Sheets("Listing")
For i = 3 To 10000
    With .CheckBoxes.Add(Range("K" & i).Left, _
        Range("K" & i).Top, Range("K" & i).Width, Range("K" & i).Height)
        .Caption = ""
    End With
Next i
End With
End Sub

Maintenant j'aimerais que quand une case est cochée, la ligne associer change de couleur.
Comment puis-je m'y prendre?

[NEC14]

Bonjour,

Tu tiens vraiment à faire ça en macros ?

Tu pourrais le faire avec les Mises en forme conditionnelle...

En utilisant la cellule liée (format de contrôle/ barre outils formulaire) ou Linked cell ( Proprété/ Barre outils controle)

format mise en forme conditionnelle
La valeur de la cellule - est égale - VRAI
format police et motif "vert"
ajouter
La valeur de la cellule - est égale - FAUX
format police=blanc

etc

[thuglife]

le problème étant que je dois le faire 10000 fois !!!!

à la main tout de suite sa donne pas envie

[NEC14]

J'ai trouvé ce bout de code peut-être va t'il te donner une piste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub Caseàcocher10000_QuandClic()
Rows(ActiveCell.Row).Select
Selection.Interior.ColorIndex = 3
End Sub

Lorsque tu cliques sur la case à cocher, la ligne de la cellule sélectionnée passe au rouge

[tototiti2008]

Bonjour à tous,

et si tu crée tes checkbox comme ça (c'est un peu plus long, mais bon...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Checkbox()
With Sheets("Feuil1")
    .Range("K3:K10000").Font.ColorIndex = 2
    For i = 3 To 10000
        With .CheckBoxes.Add(Range("K" & i).Left, _
            Range("K" & i).Top, Range("K" & i).Width, Range("K" & i).Height)
            .Caption = ""
            .LinkedCell = "K" & i
        End With
    Next i
End With
End Sub

Il te suffira ensuite de sélectionner de A3 à K10000 pour appliquer ta mise en forme conditionnelle qui dépend de la valeur de la colonne K, comme NEC14 te l'avais proposé...

sinon, il y a des solutions en VBA, mais est-ce plus simple ?