Recherche une solution VBA au problème suivant
Bonjour,
Nous disposons d'une colonne qui contient des cellules vides. Il ne peut y avoir plus d'une cellule vide à la suite.
Nous recherchons une solution en vba qui permettrait de recopier la cellule du dessous par la cellule du dessus lorsque cette dernière est vide.
exemple:
cellule vide
jean
marc
paul
cellule vide
claude
bruno
cellule vide
charlie
Résultat recherché:
jean
jean
marc
paul
claude
claude
bruno
charlie
charlie
Merci à vous
Bonjour,
A tester :
Private sub Remplissage()
Dim i as integer
For i = 1 to Worksheets("Feuil1").range("A65366").End(xlup).row
if Worksheets("Feuil1").Range("A" & i) = "" then
Worksheets("Feuil1").range("A" & i) = Worksheets("Feuil1").Range("A" & i+1)
end if
next i
end subEn remplaçant le nom de feuille et la colonne par les vrais.
Cordialement,
Zirak a écrit :Bonjour,
A tester :
Private sub Remplissage() Dim i as integer For i = 1 to Worksheets("Feuil1").range("A65366").End(xlup).row if Worksheets("Feuil1").Range("A" & i) = "" then Worksheets("Feuil1").range("A" & i) = Worksheets("Feuil1").Range("A" & i+1) end if next i end subEn remplaçant le nom de feuille et la colonne par les vrais.
Cordialement,
Bonjour Zirak
Merci pour votre réponse rapide. Juste une question.
Ou est ce que je dois copier ce code pour qu'il soit effectif ?
Bien à vous
Dans un module ou sur le code de la feuille, et soit le lancer par le menu macro, soit y associer un bouton.
Cordialement,
Bonjour,
- Enlève le mot Private de ton code
- ALT + F11 sur ton clavier
- Dans le menu clique sur INSERTION / MODULE
- Colle le code de Zirak
- Retour sur EXcel et clique sur l'outils DEVELOPPEUR
- Clique sur le bouton Macro
- Sélectionne la macro de Zirak, puis clique sur Exécuter
Si ok, cloture le fil en cochant le V vert à coté du bouton EdITER
Amicalement
Edit Dan : oups Zirak, on a du poster en même temps là.... désolé