A voir également:
- Mise en forme Excel
- Mise en forme conditionnelle excel - Guide
- Mise en forme tableau word - Guide
- Liste déroulante excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Si et excel - Guide
1 réponse
jejelefou
Messages postés
304
Date d'inscription
mercredi 21 mai 2008
Statut
Membre
Dernière intervention
18 février 2016
42
10 mai 2010 à 17:35
10 mai 2010 à 17:35
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
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
11 mai 2010 à 10:00
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