Message de validation

[Rick@]

Bonjour,

Je voudrais insérer un message de validation genre "popop" quand plus d'une cellule sont remplies. Voir fichier démo joint.

Merci à l'avance!🙂

 

[mintri]

Re : Message de validation

Hello,

Cette macro devrait faire l'affaire :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim valeur As Integer
valeur = 0

For i = 4 To 6

If Cells(7, i).Value <> "" Then valeur = valeur + 1

Next

If valeur > 1 Then MsgBox "Vous ne pouvez remplir plus d'une seule case", vbCritical

End Sub

 

[BOISGONTIER]

Re : Message de validation

Bonjour,

Voir PJ

=SI(NBVAL($D7:$F7)<1;liste;FAUX)

JB

 

[R@chid]

Re : Message de validation

Salut,
un essai en Pj si ca te convient???
Amicalement

 

[JBOBO]

Re : Message de validation

Bonjour,

Une variante, En A1 :

=SI(NB.SI(D7:F7;"x")>0;"";"x")

, ainsi dès q'une case est rempli, ta liste de validation devient vide.

 

[Rick@]

Re : Message de validation

Merci pour les 3 réponses!

La première "Mintri" avec macro, c'est bien sauf qu'elle n'éfface pas le x après le message et avec un fichier partagé ne fonctionnera pas...

La deuxième "Boisgontier" n'affiche pas de message mais empêche tout de même plus d'une saisi.

La troisième "Rachid" Le message s'affiche mais je n'ai plus de liste déroulante.

J'opterai pour la deuxième solution compte tenu que les listes déroulantes sont requises (client)...

Gros merci à vous trois!