copier cellules contenant valeurs vers le bas

[CMoa]

Bonjour le Forum 🙂

Comment copier des valeurs(dates) contenues dans la colonne A vers le bas sachant que la position des cellules changent tout le temps?
exemple:
colonne A
ligne 2 :30/01/08
Ligne 3 : vide(cellule du dessus à copier ici)
Ligne 4 : vide(cellule du dessus à copier ici)
Ligne 5 : vide(cellule du dessus à copier ici)
Ligne 6 : vide(cellule du dessus à copier ici)
Ligne 7 : vide à laisser vide
Ligne 8 : vide(cellule du dessus à copier ici)
etc...
La ligne 7 doit rester vide parce-que la cellule B7 est vide.toutes les cellules de B2 à B6 ainsi que B8 etc...contiennet des valeurs jusqu'à la date suivante.
Merci pour votre aide.

 

[porcinet82]

Re : copier cellules contenant valeurs vers le bas

Salut,

Pas certains d'avoir tout saisie, m'enfin, je tente quand meme ma chance :

Sub test()
Dim i As Integer
For i = 2 To Range("B65536").End(xlUp).Row
    If Cells(i, 2).Value <> "" And Cells(i, 1).Value = "" Then
        Cells(i, 1).Value = Cells(i - 1, 1).Value
    End If
Next i
End Sub

@+

 

[CMoa]

Re : copier cellules contenant valeurs vers le bas

Merci d'avoir répondu.🙂
J'essaye et te tiens au courant.

 

[CMoa]

Re : copier cellules contenant valeurs vers le bas

Re porcinet82 🙂
Excuse-moi pour les formalités de mon premier post.
C'est parfaitement ce que je cherchais et ce depuis la semaine dernière.
Comme ma demande se trouvait dans un autre post qui a évolué au fure et à mesure que mon travail a avancé,je n'avais pas de réponse.
En tout cas MERCI pour ta rapidité et ta justesse dans cette réponse.
je vais pouvoir avancer dans mon travail.