Boite de dialogue de vérification de données

[laurent999]

Bonjour a tous,

C'est encore moi, hé oui j'ai encore des problèmes.
Je voudrai créer une boite de dialoque de vérification selon ces conditions:
Si dans la Feuille("Nouveau Client").case A9=recherche de la valeur dans colonne A3à A10000 Feuille("client") .
Si valeur identique trouvée ouvrir une boite de dialogue avec le message suivant:"le client existe déjà" et une case "ok" dans cette boite.
Je clique sur "ok" Cela Stop la macro.
Merci pour vos réponses
Laurent.

 

[Lii]

Re : Boite de dialogue de vérification de données

Bonjour,

un problème semblable ici :
https://www.excel-downloads.com/threads/utiliser-un-mgsbox-ou-userform.106979/

 

[laurent999]

Re : Boite de dialogue de vérification de données

Bonjour Lii,

Tu m'excuseras mais je n'ai pas tout compris,j'ai réccupéré ton fichier attaché.
J'ai fait des essais dans ce fichier.
J'ai supprimé la Feuil1 de ton fichier.
J'en ai créé une autre que j'ai nommé feuil1
Je me suis positonné en A24 j'ai noté A. et la cela ne fonctionnai plus.
Pourquoi? je ne sais pas.
J'ai essayé sur mon fichier en modifiant "$A$24" par Sheets("nouveau client").range("$A$9")
J'ai modifié Feuil2 par Sheets("Client").Range("A3:A10000")
Je comprends pas trop pour MsgBox Cell.offset(,2), , "Défintion:"
Je suppose que cela veut dire que dans la box on inscrit ce qui esten Feuil2 dans la colonne C.
Je veux simplement que cela inscrive "le client existe déjà"
Par quoi je dois modifier MsgBox Cell.offset(,2) par MsgBox , ,"le client existe déjà"?

Peux tu m'expliquer

D'avance merci

Ps: Ta formule d'origine
Dim Cell As Range
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Address <> "$A$24" Then Exit Sub
For Each Cell In Sheets("Feuil2").Range("A1:A8")
If Target.Value = Cell.Value Then MsgBox Cell.Offset(, 2), , "Définition :"
Next
End Sub
* éléments à adapter !

 

[laurent999]

Re : Boite de dialogue de vérification de données

Re Lii,

Désolé, pour le post précèdent mais je viens de comprendre que cela devait être attaché à la feuille.
J' ai donc remplacé A24 par A9
et MsgBox cell.offset... par Msgbox"le client existe déjà"
Et cela fonctionne parfaitement

Encore merci à toi.

A bientôt.
Laurent.

 

[Pierre-Henry]

Re : Boite de dialogue de vérification de données

Bonjour,

Essaye ça:

Sub Rechercher_Client()
Dim Nom_Client as string
Dim i as Integer

Nom_Client = Sheets("nouveau client").range("A9").Value

Sheets("Client").Select
For i = 3 to 1000
If Range("A" & i).Value = Nom_Client Then
Msgbox "Le Client existe déjà"
Exit For
End if
Next i
End sub

(pas testé....)

Pour les informations sur les paramètres de MsgBox, je te renvoie ici par exemple.

Bon week-end

 

[Guest]

Re : Boite de dialogue de vérification de données

Bonjour Laurent,

voici autre chose, tu auras ainsi le choix.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A9" Then
    If Application.CountIf(Sheets("Client").Range("A3:A10000"), Target) > 0 Then
        MsgBox "Ce client existe déjà!", vbExclamation + vbOKOnly, "Saisie d'un nouveau client"
    Else
        'Lancer la macro
    End If
End If
End Sub

Application.CountIF est l'équivalent de la fonction de feuille de calcul Nb.Si
Si le résultat est >0 c'est que le client a été trouvé.

bon courage pour ton travail.

A+