Ajustement de données MACRO EXCEL 1000 (help)

Bonjour, j'ai de nouveaux problèmes sur ma Macro, je vais vous faire part du premier en espérant que certains d'entre vous sauront le résoudre..

J'aimerais écrire le même texte ds la même colonne un certain nombre de fois.
En sachant que ce nombre de fois dépend des fichiers excel que je vais traiter.
Il peut être de 16,125,700, 1000

Je ne savais pas trop comment m'y prendre, j'avais donc décidé de mettre le même texte jusqu'à 1000 comme ça j'étais certain que ça allait compléter

Code:

---

1 2 3 4

' Catégorie du document   Sheets("Export").Select Range("H3:H1002") = "MULTI-CATEGORIES"

---

Mais au final il se trouve que ce n'est pas ce qu'il faut.
Il faut que ma colonne s"arrête en fonction des autres.

Par exemple prenons la Colonne A
Il y a 18 lignes

Il faudra donc que ma colonne H comprend 18lignes avec écrit "MULTI-CATEGORIE"


Colonne A---------------Colonne H
1--Titre---------------------Titre
2--Titre---------------------Titre
3--Texte a -----------------MULTI-CATEGORIE
4--Texte b---------------- MULTI-CATEGORIE
5--Texte c ---------------- MULTI-CATEGORIE
6--Texte d---------------- MULTI-CATEGORIE
7----------------------- MULTI-CATEGORIE
8----------------------- MULTI-CATEGORIE
9------------------------MULTI-CATEGORIE

J'espère que mon problème est assez clair, et que certains d'entre vous saurons le résoudre, je ne vois pas comment m'y prendre encore une fois pour le coup..

Code:

---

1 2 3

Dim Derl As Long Derl = Sheets("Export").Range("h" & Cells.Rows.Count).End(xlUp).Row Sheets("Export").Range("H3:H" & Derl) = "MULTI-CATEGORIES"

---

Il faudrait se référencer par rapport à la colonne B pardon, car la colonne A est vide
Mais avec votre formule le "MULTI-CATEGORIES" n'apparait que sur la case H3 et ne descends pas..?
Merci encore de votre aide

Code:

---

1 2	Derl = Sheets("Export").Range("B" & Cells.Rows.Count).End(xlUp).Row Sheets("Export").Range("H3:H" & Derl) = "MULTI-CATEGORIES"

---

"Erreur de variable, compilation non définie" sur le

Code:

---

Derl =

---

??

oui tu as et c'est bien l'option explicite!

Code:

---

1 2 3

dim Derl as long Derl = Sheets("Export").Range("B" & Cells.Rows.Count).End(xlUp).Row Sheets("Export").Range("H3:H" & Derl) = "MULTI-CATEGORIES"

---

Yes merci beaucoup rdurupt !! cest parfait !
Si tu as du temps si tu pourrais aller voir mes deux autres topics que j'ai créé en même temps ou jai un autre soucis
Merci bcp en tt cas!