Impression étiquettes ou enveloppes

Bonjour,

Dans excel j'ai créé une liste de clients, avec filtre et tout. Donc tout est alligné (1 client sur la ligne B, un autre sur la ligne C...)

Un fois que j'ai filtré ceux qui m'interèsse, je voudrais imprimer leur coordonées sur une étiquette et/ou sur une enveloppe ???

C'est possible, mais ...

Il faudrait faire une macro qui récupère les données sur une autre feuille en changeant la mise en forme.

Voilà un début (en partant de l'idée qu'il existe une feuille "Etiquettes" et que l'adresse comporte 4 lignes (colonnes A, B, C, D).

Sub Selectionne()
    Dim Ligne As Long, Max As Long, IndexEtiquette As Long

    Max = Range("A1").End(xlDown).Row

    For Ligne = 2 To Max
        If Range("A" & Ligne) <> "" And _
            ActiveSheet.Rows(Ligne).RowHeight > 0 Then
                IndexEtiquette = IndexEtiquette + 1
                Sheets("Etiquettes").Range("A" & IndexEtiquette) = _
                Range("A" & Ligne) & Chr(10) & Range("B" & Ligne) & Chr(10) _
                & Range("C" & Ligne) & Chr(10) & Range("D" & Ligne)
        End If
    Next Ligne

End Sub

Chaque étiquette sera dans une cellule (paramétrez la largeur et le retour à la ligne automatique).

Rechercher des sujets similaires à "impression etiquettes enveloppes"