VBA remplir cellules sous conditions
Actaris51
-
pou pouille Messages postés 212 Statut Membre -
pou pouille Messages postés 212 Statut Membre -
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
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
A voir également:
- VBA remplir cellules sous conditions
- Organigramme a remplir word - Guide
- Excel compter cellule couleur sans vba - Guide
- Verrouiller cellules excel - Guide
- Colorer des cellules excel sous condition - Guide
- Excel additionner plusieurs cellules - Guide
1 réponse
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:
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
