Discussion :

[hocema]

Bonjour! j'aimerai mettre sur mon userform de mon bouton enregistrer, un code qui me permettra de reconnaitre si j'ai taper une donnée si elle existe déjà.
merci et bonne journée.

[Jean-Philippe André]

bonjour,

il faut nous en dire plus pour qu'on puisse t'aider

La valeur, tu la tapes à quel endroit ? on la comparerait avec quel échantillon de valeurs ? où se situerait cet échantillon de valeurs ?

Plus tu nous en dis, plus tu optimises tes chances que les membres souhaitent t'aider

[hocema]

Bsr ! voilà mon userform me permet d'ajouter des adresses mails sur ma feuille, elle est composé d'une zone de texte et d'un bouton pour l’enregistrement des adresses mails.
ce que je désire est d'avoir un code qui me permet de detecter pendant l'enregistrement si l'adresse existe déjà.


"zone de texte"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub TextBox1_Change()
Sheets("Mail Personnel").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

" bouton d'enregistrement"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Ajout1_Click()
If Not (isMailPerso(UserForm1.TextBox1.Text)) Then
       Call MsgBox("Ceci est un destinataire Professionnel" & Chr(10) & _
                   "Veuillez saisir l'adresse mail dans la rubrique appropriée", vbExclamation + vbOKOnly)
       Exit Sub
    End If
'teste si un texte a été entré, si non, le programme averti l'utilisateur et s'arrête
If UserForm1.TextBox1.Text = "" Then
  MsgBox "Vous n'avez rien saisi;" & Chr(10) & "Veillez entrer un mail! "
  Exit Sub
                   End If
For i = 1 To 10000
If Cells(i, 1) = "" Then Exit For
Next
'insertion de la valeur de la zone de texte (textbox1 représentant le nom de la zone de texte)
Cells(i, 1) = TextBox1.Text
MsgBox "Enregistrement de l'adresse Mail effectuée avec succès"
End Sub

merci ! jespère que je me suis mieux expliqué bonne soirée

[mercatog]

Ton compatriote à eu la réponse du même problème ici
http://www.developpez.net/forums/d12...ode-vba-excel/

[hocema]

merci ! je me retrouve,