Discussion :

[desdenova]

bonjour,


je suis débutant et je souhaiterais faire la chose suivante :

dans ma colonne A j'ai une valeur en celulle A7, A50, A123, A321 ET rien en entre ces cellules.

Je souhaiterais copier la valeur de A7 jusqu'à la prochaine cellule non vide et ainsi de suite.

Grosso modo copier A7 de A8 à A49; copier A50 de A51 à A122 etc...

Là j'ai simplifier l'exemple mais il faut imaginer que j'ai plus de 4 valeurs...

MERCI D'AVANCE !!!

[fring]

Bonjour,

Essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim i%
For i = 1 To Range("A" & Rows.Count).End(xlUp)(-1).Row
If Cells(i, 1).Offset(1, 0) = "" Then
Cells(i, 1).Offset(1, 0) = Cells(i, 1)
End If
Next
End Sub

[desdenova]

merci bcp !
ça fonctionne