Bonsoir, et merci de me lire et aussi de votre aide, j’aimerai bien savoir si c’est possible d’intégrer sur le code si joint un moyen pour éviter la saisie de doublons.
Je m’expliquer
Sur la colonne E, et sur l’aide d’un userform, je fais la saisie des numéros de fax, chaque cellule de la plage concerné, pourra contenir deux ou trois ou même quatre numéro de fax, est ce que c’est possible d’effectuer le contrôle pour les nouveaux numéro saisie, au niveau de la textbox FAX, et chercher leurs existence a l’intérieur de chaque cellule de la plage E :E.
J’espère être claire pour ma question, et merci
Je m’expliquer
Sur la colonne E, et sur l’aide d’un userform, je fais la saisie des numéros de fax, chaque cellule de la plage concerné, pourra contenir deux ou trois ou même quatre numéro de fax, est ce que c’est possible d’effectuer le contrôle pour les nouveaux numéro saisie, au niveau de la textbox FAX, et chercher leurs existence a l’intérieur de chaque cellule de la plage E :E.
J’espère être claire pour ma question, et merci
Code:
Sub Fax_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim tablo
Dim strNum As String
Dim i As Byte
strNum = ""
With Fax
If Len(Fax.Value) > 0 Then
tablo = Split(Fax.Value, ".")
For i = LBound(tablo) To UBound(tablo)
If Len(tablo(i)) >= 10 Then
strNum = strNum & ", " & Format(tablo(i), "00"" ""00"" ""00"" ""00"" ""00")
ElseIf Len(tablo(i)) <= 10 Then
Cancel = True
End If
Next i
End If
Fax.Value = Mid(strNum, 3)
End With
End Sub
Dernière édition: