[VBA] Parcour de colonne + ecriture Résolu/Fermé

Question

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 !


Configuration: Hp pavilion dv7 
DD :300Go
Ram : 4Go
Carte graph : ATI mobility Radeon HD 4500 
Processeur : Dual core T4200 2.00Ghz
OS : Windobe 7 Pro

GardienDeMoutons · Answer

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

digsaw_- · Answer

Super réponse rapide ! Et tout fonctionne au poil ! Merci beaucoup !

[VBA] Parcour de colonne + ecriture

2 réponses

Discussions similaires