Discussion :

[sam01]

Bonjour,

j'aimerais parcourir toutes les lignes d'un fichier excell jusqu'à atteindre une ligne vide.

Et pour chaque ligne, je veux copier le contenu de la colonne A, et ajouter ce contenu à la colonne D (sans écraser les données de la colonne D). Au fait j'aimerais coller les données de A en première ligne dans la cellule D (c'est-à-dire avant toutes les données de la colonne D). Voilà, j'ai un peu de mal à faire cela.
Copier le contenu de A et coller dans D en écrasant les données de D ne m'aurait pas poser de problème, mails là j'ai un peu de mal.

Merci d'avance pour votre aide.

[ouskel'n'or]

Peux-tu reformuler tout ça ? J'ai rien compris... et je pense ne pas être le seul
Où veux-tu mettre tes résultats ? Sous quelle forme ? Un exemple serait le bien venu

[illight]

pas mieux que le dodo du dessus

[SfJ5Rpw8]

essai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Dim rPlage As Range
Dim i As Integer
Set rPlage = Range("A1").CurrentRegion
For i = 1 To rPlage.Rows.Count
  rPlage.Cells(i, 4) = rPlage.Cells(i, 1) & rPlage.Cells(i, 4)
 
  'Si nécessaire efface cellule A...
  rPlage.Cells(i, 1).ClearContents
 
Next

[ricachu]

Excuse-moi, mais à quoi correspond "rplage.rows.count" dans ton code?

Code :

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

1
2
3
Set rPlage = Range("A1").CurrentRegion
For i = 1 To rPlage.Rows.Count
  rPlage.Cells(i, 4) = rPlage.Cells(i, 1) & rPlage.Cells(i, 4)

[ouskel'n'or]

rPlage.Rows.Count correspond au nombre de lignes de la plage de cellules renseignées adjacentes à la cellule sélectionnée (ici A1)
Attention, si tu as des lignes ou des colonnes entièrement vides dans tes données, CurrentRegion ne prend pas au delà des colonnes ou lignes vides

[sam01]

merci je tente le coup.