VBA remplir cellules sous conditions

Fermé
Actaris51 - 26 nov. 2009 à 15:14
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 - 26 nov. 2009 à 15:40
Bonjour,
Voilà, sous Excel, j'ai trois colonnes, B C et D, qui peuvent etre cochées suivant les lignes (on met un "X" dans la cellule)
par exemple, en B1 j'ai un "X" et rien en C1 et D1, en B2 et en C2 j'ai un X mais rien en D2.
Mais parfois, il n'y a rien de coché (exemple : B3, C3 et D3 sont vides)
J'aimerai que dans le cas ou les trois cellules de la ligne sont vides, alors les 3 cellules en question soient cochées.

Pouvez vous m'aider ?

Merci

1 réponse

pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
26 nov. 2009 à 15:40
bonjour, à quel moment déclenché cette action de remplir les 3 cases avec des X ??
sinon on peut remplir quelquechose comme cela avec un bouton:
Private Sub CommandButton1_Click()
For i = 1 To 12
If Range("B" & i).Value = "" And Range("C" & i).Value = "" And Range("D" & i).Value = "" Then
Range("B" & i & ":D" & i).Value = "x"
End If
Next i
End Sub
0