Plage de cellule variable

Bonjour à tous.

J'ai une plage de cellule qui doit être absolument variable car elle servira à l'étape suivante pour un publipostage dans Word. Si je nomme ma plage de A2 à G200, il y aura 200 lettres de publipostage d'imprimer dans Word même si pour ce type de de rapport il n'y a que 15 noms.

Notez que la liste des destinataires est générée par une autre commande et selon le critère demandé.

Dans Word, il est possible de faire le publipostage à partir d'une plage d'Excel afin d'imprimer que pour les destinataires selon le critère.

Je sais que par le code VBA je suis en mesure de faire:

Code:

---

1 2	ActiveWorkbook.Names.Add Name:="PublipostagePourWord", RefersToR1C1:= _ "='Vers Word'!R1C1:R18C7"

---

Mon but :

J'aimerais utiliser une variable qui aurait pour but de faire varier "R18C7" pour "R37C7" (il y aurait dans cette exemple 36 destinataires car la première ligne correspond aux titres de collones).

Pour ce qui est de la variable, je n'ai pas de problème. Je ne sais pas comment l'inclure dans le code


Merci encore une fois pour votre aide.

Code:

---

1 2 3 4

Dim CelFin as range Set CelFin=Range("G37") ActiveWorkbook.Names.Add Name:="PublipostagePourWord", RefersToR1C1:= _ "='Vers Word'!R1C1:" &CelFin.Address(1, 1, xlR1C1)

---

Bonjour et merci pour la réponse mais ça ne fonctionne pas. Je vais essayer d'être plus claire.

Dans le code de mercatog, je comprends que la cellule de fin sera toujours G37. Ma plage de cellules sera toujours à partir de A2 pour ce terminer à collone G mais à une ligne variable.

Avant de déterminer le nombre de ligne, je fais trier le code afin de regrouper les données à partir de la ligne 2. Je détermine le nombre de ligne ayant des données en ulilisant les formules NBCAR et SI. Je suis à la recherche donc d'une façon de faire en sorte que G37 soit remplacé par "G" et la valeur de la cellule L1 (L1 représente le nombre de ligne pour ce rapport).

Comme L1 va varier en fonction du nombre de ligne, je recheche donc à créer une plage qui débute à A2 jusqu'à G__ (selon le nombre en L1).

En espérant avoir été plus claire dans mes explications, je vous remercie à nouveau pour l'aide.

dlight

Bonjour

Code:

---

1 2	ActiveWorkbook.Names.Add Name:="PublipostagePourWord", RefersToR1C1:= _ "='Vers Word'!R1C1:" & Range("G" & [L1]).Address(1, 1, xlR1C1)

---

Ou comme ça ?

Code:

---

1 2	ActiveWorkbook.Names.Add Name:="PublipostagePourWord", RefersToR1C1:= _ "='Vers Word'!R1C1:R" & Cells(Rows.Count, 7).End(xlUp).Row & "C7"

---

ou comme ça

Code:

---

1 2	ActiveWorkbook.Names.Add Name:="PublipostagePourWord", RefersTo:= _ Worksheets("Vers Word").Cells(1).CurrentRegion

---

Merci à vous tous pour vos réponses. J'ai utilisé la méthode de zyhack et ça fonctionne.