VBA Liste Noir de telephone

[Bens7]

Bonjour a tous j'ai un petit Userform :
pour mettre portable et telphone mais si le numero inscrit fait partie de la liste noir un message box s'affiche.
(P.S ) aucune idee !
(P.S 2 ): La mise en forme de la liste noir doit rester intact donc eventuellement ne pas verifier le premier chiffre qui est toujours un 0

Merci

 

[david84]

Re : VBA Liste Noir de telephone

Bonjour,
une possibilité testée vite fait histoire de te mettre sur une piste (à toi de la peaufiner si cela te convient) :

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Portable As Range
Set Portable = Range("A2:A15")
If Application.WorksheetFunction.CountIf(Portable, TextBox1.Text) > 0 Then MsgBox "Portable !": TextBox1.Text = vbNullString: Cancel = True
End Sub

Même principe pour le TextBox2.
A+

 

[Bens7]

Re : VBA Liste Noir de telephone

Malheuresement mes connaisances en vba sont tres faible je ne sais copier coller des bouts de code et les arranger a ma facon lolll
je viens de commencer

 

[david84]

Re : VBA Liste Noir de telephone

Malheuresement mes connaisances en vba sont tres faible je ne sais copier coller des bouts de code et les arranger a ma facon lolll
je viens de commencer

Si tu veux utiliser des UserForm il va te falloir apprendre les bases tout de même puis chercher à progresser.
Utilise l'aide d'Excel, fais des recherches par toi-même et pose des questions sur ce que tu ne comprends pas.
A+

 

[Bens7]

Re : VBA Liste Noir de telephone

Je te remercie j'ai reussi a adapter le code a un autre evenement et sur la 2eme TB2
c'est ou resolu deja ?

 

[david84]

Re : VBA Liste Noir de telephone

Je te remercie j'ai reussi a adapter le code a un autre evenement et sur la 2eme TB2
c'est ou resolu deja ?

Félicitations !
Tu n'es pas obligé de clôturer la discussion en notant résolu (sinon, aller dans ton message initial et placer "Résolu" dans son titre).
A+