Validation

[canail18]

Bonjour a tous
je recherche un fonction de validation. si le mot excite pas dans la liste déroulant alors ouvrir une feuille pour le rentre.
Merci de votre aide Cordialement

 

[Softmama]

Re : Validation

Bonjour,

J'ai nommé dynamiquement la zone Nom, de sorte qu'elle s'adapte aux données qui s'y ajoutent et cette petite macro fait le reste :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" And IsError(Application.Match(Target, [Nom], 0)) And Target <> "" Then
    If MsgBox(Target & " n'existe pas dans les noms entrés." & Chr(10) & "Souhaitez-vous l'ajouter ?", vbExclamation + vbYesNo, "Nouveau nom...") = vbYes Then Sheets("Nom").Range("A65000").End(xlUp)(2, 1) = Target
End If
End Sub

cf. ton fichier en retour

 

[Fred0o]

Re : Validation

Bonjour canail, Softmama,

Ah, canail18 ! pseudo prédestiné car si le mot excite c'est qu'il existe. Tout cela est bien excitant n'est-ce pas ?

Canaille !

A+

 

[canail18]

Re : Validation

merci pour la petit erreur @ +