Microsoft 365 Selectionner toutes les cellules contenant @

[DELATTE]

Bonjour à tous,

Pourriez-vous m'aider à rédiger une petite macro qui sélectionnerait l'ensemble des cellules d'une colonne comprenant le caractère @.
En effet, je rapatrie une liste d'adresse emails par une formule sur 500 lignes et j'aimerais sélectionner seulement les cellules contenant une adresse email.

Merci d'avance.

Bien à vous,

 

[fanch55]

Bonjour, Test à lancer

Sub Test()

    Sel_String "@", ActiveSheet.Columns("B")
    
End Sub

Sub Sel_String(To_Find As String, Plage As Range)
Dim Cel As Range, Adr As String
    Set Cel = Plage.Find(To_Find, , xlValues, xlPart)
    Do While Not Cel Is Nothing
        If Adr = "" Then
            Adr = Cel.Address
            Cel.Select
        Else
            Union(Selection, Cel).Select
        End If
        Set Cel = Plage.FindNext(Cel)
        If Cel.Address = Adr Then Set Cel = Nothing
    Loop
End Sub

 

[DELATTE]

C'est parfait, merci beaucoup.

Excellente journée.