[VBA] Parcour de colonne + ecriture

Résolu/Fermé
digsaw_- Messages postés 489 Date d'inscription lundi 14 septembre 2009 Statut Membre Dernière intervention 24 septembre 2013 - 24 juin 2011 à 09:16
digsaw_- Messages postés 489 Date d'inscription lundi 14 septembre 2009 Statut Membre Dernière intervention 24 septembre 2013 - 24 juin 2011 à 09:54
Bonjour,

Mon problème parait bête comme sa mais je ne trouve pas quelque chose qui me conviendrais..

J'ai une feuille excel ou il y a 7 colonnes.. le nombres de lignes est indéfini car il peux y en avoir 10 comme 40.. J'aimerais créer une boucle qui parcour la colonne A de la feuille1 sans compter la premiere ligne, et qui en fonction du nombre de ligne quelle contient, ecrive dans la feuille2 un text précis ("C00001") au même nombre de ligne remplis de la feuille1.

Exemple :

Si dans la feuille1 colonne A (et uniquement cette colonne) il y a 9 lignes remplies sans compté la première ligne qui est un libéllé, dans la feuille2 il y aura dans la colonne A, à partir de la 2eme ligne, 9 fois le texte C00001 (une fois dans chaque cellule bien sur)

Merci d'avance pour votre aide !



A voir également:

2 réponses

GardienDeMoutons
24 juin 2011 à 09:48
Sub ecritenFeuill2()
Dim derniereLigne As Integer
Dim monTexte As String

monTexte = "C00001"

derniereLigne = Sheets("Feuil1").Range("a1").End(xlDown).Row - 1
For i = 1 To derniereLigne
Sheets("feuil2").Range("A1").Offset(i, 0).Value = monTexte
Next


End Sub
1
digsaw_- Messages postés 489 Date d'inscription lundi 14 septembre 2009 Statut Membre Dernière intervention 24 septembre 2013 57
24 juin 2011 à 09:54
Super réponse rapide ! Et tout fonctionne au poil ! Merci beaucoup !
0