Mise en forme Excel
ophi
-
ophi -
ophi -
Bonjour,
Afin de procéder à un publipostage, j'essaie vainement de mettre en forme un tableau qu'on m'a transmis. Il se trouve sous la forme suivante :
ABC Gestion SA
Avenue des Baumettes 11
Case postale 651
1020 Renens 1
Tel. 021 / 635 11 71
Fax 021 / 635 67 41
E-Mail: abcgestion@bluewin.ch
ABM Fiduciaire
Ch. des Chênes 9
1009 Pully
Tel. 021.534.54.05
Fax 021.534.54.05
E-Mail: jean-jacques.schwab@hispeed.ch
ACF Audit Conseil Fiduciaire et Fiscal SA
Rue des Fossés 20
Case postale 32
1110 Morges 1
Tel. 021 311 44 40
Fax 021 311 27 10
E-Mail: afcaudit@bluewin.ch
Homepage: www.acfaudit.ch
S'achant qu'il ne s'agit que d'une seule colonne (colonne A) et que chaque ligne correspond ben à une ligne!
J'aimerais pouvoir faire un tableau basique avec plusieurs colonnes à en-tête (nom, adresse, Tél,...).
Y a t'il un moyen de le faire rapidement) j'ai plus de 700 adresses comme ça!
Merci pour votre aide
Afin de procéder à un publipostage, j'essaie vainement de mettre en forme un tableau qu'on m'a transmis. Il se trouve sous la forme suivante :
ABC Gestion SA
Avenue des Baumettes 11
Case postale 651
1020 Renens 1
Tel. 021 / 635 11 71
Fax 021 / 635 67 41
E-Mail: abcgestion@bluewin.ch
ABM Fiduciaire
Ch. des Chênes 9
1009 Pully
Tel. 021.534.54.05
Fax 021.534.54.05
E-Mail: jean-jacques.schwab@hispeed.ch
ACF Audit Conseil Fiduciaire et Fiscal SA
Rue des Fossés 20
Case postale 32
1110 Morges 1
Tel. 021 311 44 40
Fax 021 311 27 10
E-Mail: afcaudit@bluewin.ch
Homepage: www.acfaudit.ch
S'achant qu'il ne s'agit que d'une seule colonne (colonne A) et que chaque ligne correspond ben à une ligne!
J'aimerais pouvoir faire un tableau basique avec plusieurs colonnes à en-tête (nom, adresse, Tél,...).
Y a t'il un moyen de le faire rapidement) j'ai plus de 700 adresses comme ça!
Merci pour votre aide
1 réponse
-
Bonjour,
ton probleme est assez compliqué car parfois tu as 2 lignes pour l'adresse et parfois 3
j'ai donc fait cette petite macro pour dégrossir le travail, mais ne resoud pas tout. A toi de finir à la main.
Sub mailing()
compteur = 1
col = 3
For i = 1 To 10000
If Cells(i, 1) = "" Then
compteur = compteur + 1
col = 2
End If
Cells(compteur, col) = Cells(i, 1)
col = col + 1
Next
End Sub
bon courrage-
Bonjour
Un tout grand merci de vous être penché sur mon problème... quoique bien compliqué!
Je ne suis malheureusement pas une pro des macros, je vais donc essayer de faire qqch avec vos indications, le cas échéant, je demanderai un autre fichier si c'est possible.
Merci beaucoup et bonne continuation
-
