Saisie à partir de userform

Bonjour,

Je tiens à préciser tout d'abord que je suis novice en vba.
Il est sans doute vrai que le titre de mon post n'est pas très explicite, mais je ne savais pas trop comment exprimer mon pb. Voici mon soucis de manière plus détaillé et clair :

A partir d'un userform de saisie, je remplis des lignes d'un tableau excel. Chaque ligne est identifié par un N° et comporte plusieurs champs. Ensuite j'effectue une deuxième saisie de plusieurs champs supplémentaires en complétant mes lignes à partir du N° comme identifiant. Dans mon userform je saisie le n° souhaité dans un textbox puis dans deux autres textbox les info complémentaires et enfin je valide cette saisie par un bouton de commande.
Mais je souhaite introduire dans ma macro un msg qui averti l'utilisateur lorsqu'il a saisie un n° erroné .
Voici le code de ma macro du bouton de commande :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click() Sheets("feuil1").Activate n = 9   Do While Cells(n, 3) <> "" 'c'est la boucle que j'utilise pour chercher le n° correspondant dans ma liste (ici la colonne 3) If Cells(n, 3) = TextBox7.Value Then Cells(n, 16).Value = TextBox8 'saisie des champs complémentaires Cells(n, 17).Value = TextBox9 End If n = n + 1 Loop   If TextBox7.Value <> Cells(n, 3) Then 'j'introduis une nouvelle condition pour qu'il indique ce msg dès que la valeur saisie colle pas à ma liste MsgBox ("ce n°retour n'existe pas") End If   Unload UserForm2 ActiveWorkbook.save End sub

---

Voila comment réagi ma macro : lorsque je saisie un n° erroné, il m'indique le msg et puis ferme l'userform, mais lorsque que je saisie un n° existant, cela complète bien les champs de la ligne correspondante, mais affiche quand même le msg d'erreur.
Je sens que mon pb doit pas être bien compliqué, mais j'ai essayé de modifié et testé ma macro , mais sans jamais obtenir le résultat escompté!!

J'ai juste besoin d'un pti coup de :king:!!!!
Est-ce que quelqu'un pourrait m'aider (en espérant que l'explication soit compéhensible:D) ? merci

Bonsoir

en faisant simple je pense qu'il faudrait modifier

Code:

---

1 2 3

If TextBox7.Value <> Cells(n, 3) Then 'j'introduis une nouvelle condition pour qu'il indique ce msg dès que la valeur saisie colle pas à ma liste MsgBox ("ce n°retour n'existe pas") End If

---

comme ceci

Code:

---

1 2 3

If Cells(n, 3) = "" Then 'j'introduis une nouvelle condition pour qu'il indique ce msg dès que la valeur saisie colle pas à ma liste MsgBox ("ce n°retour n'existe pas") End If

---

Car si ton numéro n'a pas été trouvé ta boucle while sort quand tu as une cellule vide.

http://fring.ftp-developpez.com/Smileys/bienvenue.png

Je vais essayer de traduire ce qu'il se passe.
Supposons une boucle de 1 à 10
n prend donc la valeur n = 1, n = 2, n = 3, ....., n = 10
Dans ta TextBox tu introduits "toto" et la cellule (5, 3) contient "toto"
Donc lorsque n sera égale à 5 --> cells(n, 3) = cells(5, 3) --> il exécutera la saisie des champs complémentaires
Ensuite la boucle continuera jusque n = 10

Ce qui fait que lorsque, à la suite de ta boucle, tu vérifies si la valeur de ta TextBox est différente de Cells(n, 3), elle le sera vu que Cells(n, 3) = Cells(10, 3)

Je ne sais pas si je suis très clair mais il est tard :mouarf:

En résumé, essaye ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Private Sub CommandButton1_Click() Dim Result As Boolean, n As Integer '<-- ne pas oublier de déclarer tes variables   'Sheets("feuil1").Activate '<-- on peut éviter de sélectionner la feuille 'en faisant comme ceci With Sheets("Feuil1") 'et en ajoutant un point à Cells --> .Cells(x, y)   n = 9 Result = False   With Sheets("Feuil1") Do While .Cells(n, 3) <> "" 'c'est la boucle que j'utilise pour chercher le n° correspondant dans ma liste (ici la colonne 3) If .Cells(n, 3) = TextBox7.Value Then .Cells(n, 16).Value = TextBox8 'saisie des champs complémentaires .Cells(n, 17).Value = TextBox9 Result = True End If n = n + 1 Loop End With   If Result = False Then 'j'introduis une nouvelle condition pour qu'il indique ce msg dès que la valeur saisie colle pas à ma liste MsgBox "ce n° retour n'existe pas" '<-- pas besoin de parenthèses End If   Unload UserForm2 ActiveWorkbook.Save End Sub

---

EDIT : 2ème x grillé par zyhack :D

Citation:

---

Envoyé par fring

EDIT : 2ème x grillé par zyhack :D

---

bonjour Fring

désolé de te contredire, mais comme tu l'as dit il été tard.

J'y est repensé en couchant et je me suis aperçu que j'avais écris une bêtise car dans tous les cas en fin de la boucle la cellule aura une valeur = "" donc le problème n'était pas résolu, je voulais modifier mon message de bon heure ce matin pour en arriver à la même solution que toi donc

Encore une fois je suis grillé par Fring :mouarf:

J'ai essayé ta macro, et cela marche parfaitement!!! merci fring!!!!
Merci pour la solution, et ton explication (t'inquiète pas j'ai tous compris!!). C'est encore mieux de comprendre ces erreurs et d'apprendre de nouvelle choses!:yaisse2:

Merci à toi aussi zyhack pour ta contribution!!

A++++