T
Temjeh
Guest
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
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