Copie cellule du dessous
Résolu
Sph1nxXx
Messages postés
69
Statut
Membre
-
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention -
aquarelle Messages postés 7181 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je viens vers vous car je ne touche rien en VBA mais j'ai besoin d'une macro.
En faite je souhaiterais recopier la cellule du DESSOUS si la cellule en question est vide.
La seul chose que j'ai trouvé c'est comment recopier la cellule du DESSUS :
Sub recopidessus()
x = [A65536].End(3).Row
For Each c In Range("A1: A" & x).SpecialCells(xlCellTypeBlanks)
c.Value = Range(c.Address).End(3).Value
Next
End Sub
Celle-ci permet de recopier la valeur de la cellule du dessus si la cellule est vide...
Moi je souhaiterais qu'il recopie la valeur de la cellule du dessous si elle est vide...
Cordialement
Je viens vers vous car je ne touche rien en VBA mais j'ai besoin d'une macro.
En faite je souhaiterais recopier la cellule du DESSOUS si la cellule en question est vide.
La seul chose que j'ai trouvé c'est comment recopier la cellule du DESSUS :
Sub recopidessus()
x = [A65536].End(3).Row
For Each c In Range("A1: A" & x).SpecialCells(xlCellTypeBlanks)
c.Value = Range(c.Address).End(3).Value
Next
End Sub
Celle-ci permet de recopier la valeur de la cellule du dessus si la cellule est vide...
Moi je souhaiterais qu'il recopie la valeur de la cellule du dessous si elle est vide...
Cordialement
Configuration: OS : Vista Ultimate + Ubuntu CM : Asus P5n32e-sli plus Proc : Intel E8750 RAM : Corsair dominator cl5 pc8500 (2x1GO) CG : XFX GF8800GT alpha dog 512MB XXX Disque Dur : WD Raptor 150GO + Seagate baraccuda 320 GO
3 réponses
-
Bonsoir,
Essaie ceci :Sub recopidessous() x = [A65536].End(4).Row For Each c In Range("A1: A" & x).SpecialCells(xlCellTypeBlanks) c.Value = Range(c.Address).End(4).Value Next End Sub
Bonne soirée -
Merci pour la réponse mais j'avais fini par trouver ceci
Sub complèterdessous()
Dim c As Range
On Error Resume Next
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeBlanks)
c.Value = Range(c.Address).End(xlDown).Value
Next
End Sub
Et celle-ci fonctionne merci quand même du temps passé -
Bonjour,
De rien, le principal étant que tu aies trouvé une solution :)
Bonne fin de journée
