Impression étiquettes ou enveloppes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Sandrine Pierre
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 24 mars 2006

Message par Sandrine Pierre » 24 mars 2006, 11:19

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 ???
s
soft
Membre fidèle
Membre fidèle
Messages : 172
Inscrit le : 29 septembre 2005
Version d'Excel : FR 2003 & 2007
Contact :

Message par soft » 30 mars 2006, 08:20

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).
soft
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message