Rechercher et tester une adresse e-mail [Résolu]

Signaler
Messages postés
14
Date d'inscription
jeudi 16 juillet 2009
Statut
Membre
Dernière intervention
10 août 2010
-
Messages postés
14
Date d'inscription
jeudi 16 juillet 2009
Statut
Membre
Dernière intervention
10 août 2010
-
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

2 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
64
If strcomp(Cells(Lig, col1).Value , Target, vbtextCompare)=0 Then



Renfield - Admin CodeS-SourceS - MVP Visual Basic
Messages postés
14
Date d'inscription
jeudi 16 juillet 2009
Statut
Membre
Dernière intervention
10 août 2010

Genial! C'est parfait!

Merci beaucoup.

Miniboo