Exit sub si valeur existe déjà

[Temjeh]

Bonjour le forum
Et oui patience encore un peu c'est la dernière de la semaine!!

Je cherche à mettre une condition dans le textbox4 (qui est toujours numeric.value, c'est un téléphone) à ceci:

If (la valeur de textbox4 se retrouve dans colonne 'E') then
MsgBox 'Valeur existante'
Exit sub
else
ActiveCell = TextBox1
ActiveCell.Offset(0, 2).Value = TextBox2
ActiveCell.Offset(0, 1).Value = TextBox6
ActiveCell.Offset(0, 3).Value = TextBox3
'enlève tout espace dans textbox4 téléphone
TextBox4.Value = Replace(expression:=TextBox4.Value, Find:=' ', Replace:='')
ActiveCell.Offset(0, 4).Value = TextBox4
'met * au début du 2ème téléphone afin de ne pas le rechercher
ActiveCell.Offset(0, 5).Value = TextBox7
ActiveCell.Offset(0, 6) = TextBox5

End if

Merci beaucoup de votre générosité

Temjeh

 

[CBernardT]

Bonjour TEmjeh,

Un essai de réponse, rajouter :

'Déclaration de variables
Dim Quant As Variant
Dim Plage As Range
'Définition des variables
Quant = textbox4.Value
Set Plage = Range('E1:E' & Range('E65000').End(xlUp).Row)
'Vérification de la présence
If Application.CountIf(Plage, Quant) > 0 Then
MsgBox 'Valeur existante'
Exit Sub
Else
ActiveCell = TextBox1
ActiveCell.Offset(0, 2).Value = TextBox2
ActiveCell.Offset(0, 1).Value = TextBox6
ActiveCell.Offset(0, 3).Value = TextBox3
'enlève tout espace dans textbox4 téléphone
textbox4.Value = Replace(expression:=textbox4.Value, Find:=' ', Replace:='')
ActiveCell.Offset(0, 4).Value = textbox4
'met * au début du 2ème téléphone afin de ne pas le rechercher
ActiveCell.Offset(0, 5).Value = TextBox7
ActiveCell.Offset(0, 6) = TextBox5
End If

Cordialement

CBernardT

 

[Temjeh]

Parfait, parfait, parfait!!!

Merci beaucoup CBernardT c'est justement ce que je voulais

Cordialement

Temjeh