Bonjour
J'ai une colonne dans laquelle certaines cellules sont vides.
Je n'arrive pas à écrire la macro qui copie le contenu de la cellule non vide dans la cellule vide en-dessous.
Voici le bout de code sur lequel je bloque :
La boucle et le test fonctionnent.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 For i = 1 To nombre_lignes With ActiveSheet If IsEmpty(.Cells(3 + i, 7)) Then .Cells(3 - i, 7).Copy Destination:=.Cells(3 + i, 7) End If End With Next i
C'est le remplacement de la cellule indicée que je n'arrive pas à faire.
Merci pour votre aide.
Partager