Discussion :

[EnzoExcel]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[EnzoExcel]

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EnzoExcel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Derl =

??

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[EnzoExcel]

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!