pouvez vous m'aider?
ai 4 cellules de saisie de A1 à A4
je veux qu on ne puisse faire que 0 ou 1 saisie
toutes vides ou une non vide sur les quatre
au cas ou plus d'une cellule saisie un msgbox me conviendrait...
ai imposé la valeur "1" dans les cellules A1 à A4
en A5 je vais un total
si ce total plus grand que 1 je voudrais afficher un message
d'avertissement
merci
salut avec ce petit truc dans la propriete SelectionChange de la feuille tu n'as pas besoin de controle
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:D1")) Is Nothing Then ' mission Range("A1:D1").Clear ActiveCell.Value = 1 End If End Sub
A+ gerard
"PortHorel" a écrit dans le message de news: 44250c7a$0$18312$
pouvez vous m'aider? ai 4 cellules de saisie de A1 à A4 je veux qu on ne puisse faire que 0 ou 1 saisie toutes vides ou une non vide sur les quatre au cas ou plus d'une cellule saisie un msgbox me conviendrait...
ai imposé la valeur "1" dans les cellules A1 à A4 en A5 je vais un total si ce total plus grand que 1 je voudrais afficher un message d'avertissement merci
salut
avec ce petit truc dans la propriete SelectionChange de la feuille tu n'as
pas besoin de controle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:D1")) Is Nothing Then ' mission
Range("A1:D1").Clear
ActiveCell.Value = 1
End If
End Sub
A+ gerard
"PortHorel" <porthorel@wanadoo.fr> a écrit dans le message de news:
44250c7a$0$18312$8fcfb975@news.wanadoo.fr...
pouvez vous m'aider?
ai 4 cellules de saisie de A1 à A4
je veux qu on ne puisse faire que 0 ou 1 saisie
toutes vides ou une non vide sur les quatre
au cas ou plus d'une cellule saisie un msgbox me conviendrait...
ai imposé la valeur "1" dans les cellules A1 à A4
en A5 je vais un total
si ce total plus grand que 1 je voudrais afficher un message
d'avertissement
merci
salut avec ce petit truc dans la propriete SelectionChange de la feuille tu n'as pas besoin de controle
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:D1")) Is Nothing Then ' mission Range("A1:D1").Clear ActiveCell.Value = 1 End If End Sub
A+ gerard
"PortHorel" a écrit dans le message de news: 44250c7a$0$18312$
pouvez vous m'aider? ai 4 cellules de saisie de A1 à A4 je veux qu on ne puisse faire que 0 ou 1 saisie toutes vides ou une non vide sur les quatre au cas ou plus d'une cellule saisie un msgbox me conviendrait...
ai imposé la valeur "1" dans les cellules A1 à A4 en A5 je vais un total si ce total plus grand que 1 je voudrais afficher un message d'avertissement merci
