Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Boite de dialogue de vérification de données

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

laurent999

XLDnaute Occasionnel
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.
 
Trier par date Trier par votes
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 !
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
Re : Boite de dialogue de vérification de données

Bonjour,

Essaye ça:

Code: 
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
 
Vote positif 0 Vote négatif
Re : Boite de dialogue de vérification de données

Bonjour Laurent,

voici autre chose, tu auras ainsi le choix.

Code: 
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2021 Délai de réponse boite de dialogue
Réponses
10
Affichages
231
Dranreb
B
  • Question Question
XL 2016 Boite de dialogue windows
Réponses
4
Affichages
726
bernardrustrel
B
C
  • Question Question
Microsoft 365 Macro pour créer boite de dialogue
2
Réponses
21
Affichages
2 K
Dudu2
H
  • Question Question
XL 2019 Boite de dialogue
Réponses
3
Affichages
505
chaelie2015
E
  • Question Question
Microsoft 365 Boite de dialogue qui s'affiche quand cellules restent vides
Réponses
6
Affichages
580
Erakmur
E
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
445
Phil69970
C
  • Résolu(e)
Microsoft 365 Boite de dialogue suivant date et récupération de données
2
Réponses
15
Affichages
1 K
chnico80
C
  • Résolu(e)
Microsoft 365 Ouvrir boite de message outlook
Réponses
6
Affichages
542
Electron24
C
  • Résolu(e)
XL 2016 Fermer une boite dialogue avec une macro
Réponses
2
Affichages
1 K
Cotriana
C
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
715
Zonmé
Z
  • Résolu(e)
XL 2016 VBA créer une nouvelle feuille, la renommer et boite de dialogue pour compléter la feuille
Réponses
4
Affichages
1 K
My<3
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
R
  • Question Question
Microsoft 365 Fonction SI avec dates et plage de données
Réponses
3
Affichages
1 K
patoche42500
P
R
  • Question Question
XL 2019 Lire propriété (vidéo) à partir d'une boite de dialogue ?
2 3 4
Réponses
51
Affichages
4 K
re4
R
B
  • Question Question
XL 2016 boite de dialogue pour onglets
Réponses
13
Affichages
2 K
bobafric
B
  • Question Question
XL 2016 [Résolu] Validation Formulaire = Ecriture sur ligne correspondante
Réponses
5
Affichages
918
roby
S
  • Résolu(e)
Microsoft 365 Importer des données d'un fichier excel à un autre avec adresse connue
Réponses
13
Affichages
2 K
sanae_J
S
B
  • Question Question
XL 2016 boite de dialogue pour onglets
Réponses
1
Affichages
866
patricktoulon
Z
  • Question Question
Microsoft 365 boite de dialogue qui contiens liste déroulante et un mot de passe
Réponses
4
Affichages
1 K
Zizou981
Z
D
  • Question Question
Microsoft 365 CREATION DE FICHIER DE SUIVI AUTOMATISE
Réponses
5
Affichages
3 K
desto
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…