Bonjour,

Je cherche à tester la présence d'une adresse mail contenue dans une chaine de caractère. Les chaines de caractères sont dans une colonne.Si l'adresse mail est présente je voudrai la transférer dans une nouvelle colonne. J'ai commencé en utilisant range.Find() pour mettre la chaine dans un tableau. Mon probleme est ensuite de faire une boucle pour tester toute la colonne. Est ce que c'est la bonne façon de procéder?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub chercheMot()
    Dim Tableau() As String
    Dim cell As Range
 
    Set cell = Columns("B:B").Find(What:="connexion")
 
    If Not cell Is Nothing Then
        Tableau = Split(cell, ":")
    End If
 
 
 End Sub