Rechercher et tester une adresse e-mailRésolu

Question

Bonjour à tous, 

J'ai un problème avec une macro, qui teste le contenu d'une colonne (liste d'adresses mail) avec une adresse mail rentrée dans un UserForm et qui vide la colonne d'à coté si jamais elle trouve la même adresse. Le problème est que cette macro respecte la casse, et que ca ne convient pas trop aux adresses mails qui peuvent contenir des majuscules et des minuscules sans changer d'adresse. 

Le code de ma macro (mon bouton sur le userform) est le suivant: 

Private Sub CommandButton1_Click()
With Sheets("liste mails")
Dim col1 As String
Dim Target As String
Target = UserForm1.TextBox1.Value
col1 = "B"
Col2 = "C"
 NbrLig = Cells(65536, col1).End(xlUp).Row
 For Lig = 3 To NbrLig
If Cells(Lig, col1).Value = Target Then
      Cells(Lig, Col2).Value = ""
      NumLig = NumLig + 1
    End If
Next
End With
End Sub


Ce code doit être un peu mal fichu, mais enfin il fonctionne et malheuresement il respecte la casse. 

Sinon faut-il lancer une autre macro avant de comparer qui met tout en minuscules? Je ne sais pas trop quoi faire, ni comment...

Merci beaucoup d'avance pour votre aide!

Miniboo

Renfield · Accepted Answer

If strcomp(Cells(Lig, col1).Value , Target, vbtextCompare)=0 Then


Renfield - Admin CodeS-SourceS - MVP Visual Basic

cs_miniboo · Answer

Genial! C'est parfait! 

Merci beaucoup. 

Miniboo

Rechercher et tester une adresse e-mail

2 réponses

Votre réponse

Discussions similaires