Aide Macro copier valeur selon cellule

Bonjour le Forum,

Je reviens vers vous pour un petit coup de main sur l'adaptation d'une macro.

Je vous joints le fichier exemple pour avoir un visuel.

En fait, il faudrait m'aider à adapter cette macro pour que la copie des lignes voulues se fasse selon la valeur renseignée dans une cellule.... ("info publipostage").

Un grand merci d'avance pour votre aide..

Bonjour,

Je ne sais pas si le fichier que tu as proposé fait ce que tu souhaites, hormis ce filtrage, mais pour ta demande, voici le code que tu placer.

    For Each Cel In WsS.Range("A3:A" & WsS.Range("A" & Rows.Count).End(xlUp).Row)
        If Cel.Offset(, 15) = "publi multiple" Then
            Texte = Texte & Cel & " " & Cel.Offset(, 1) & ", "
        End If
    Next Cel

en remplacement de

    For Each Cel In WsS.Range("A3:A" & WsS.Range("A" & Rows.Count).End(xlUp).Row)
            Texte = Texte & Cel & " " & Cel.Offset(, 1) & ", "
    Next Cel

Bien à toi

Jp

Bonsoir JP,

Merci pour ce petit bout de code... ce qu'il me manquait ^^