Concaténer les valeurs d'une colonne suite à un filtre

Bonjour,

Je suis un débutant en VBA. Je vais donc essayer d'être simple

J'ai un tableau Excel que je rempli avec un userform. Jusqu'à là tout va bien. Mon tableau va de la ligne 4 à 300.

Maintenant je veux récupérer les données d'une colonne (J) suite à un filtre effectué sur une autre colonne (G) pour ensuite les concaténer. Ce que je n'arrive pas à trouver, c'est de récupérer uniquement les valeurs filtrés. Dans ma procédure, je récupère les valeurs dans les cellules cachées suite au filtre.

Merci d'avance pour les réponses

Sub concatener()

Dim Adresse As String

Dim i As Integer

Worksheets("Liste Clients").Activate

'Vérification du contenu de la cellule

Adresse = ""

For i = 4 To 300

If Range("J" & i).Value <> "" Then

Adresse = Adresse & Range("J" & i) & ";"

End If

Next i

'copie le résultat dans une autre feuille

Worksheets("Adresses").Activate

Cells(4, 2) = Adresse

End Sub

Bonjour et bienvenue

Essaye :

Sub concatener()
Dim Adresse As String
Dim i As Integer

Worksheets("Liste Clients").Activate

'Vérification du contenu de la cellule
Adresse = ""
For i = 4 To 300
If Range("J" & i).Value <> "" And Not Range("J" & i).Rows.Hidden Then
Adresse = Adresse & Range("J" & i) & ";"
End If
Next i
'copie le résultat dans une autre feuille
Worksheets("Adresses").Activate
Cells(4, 2) = Adresse
End Sub

Amicalement

Nad

Merci Nad. C'est tout à fait ce que je recherchais