Copie cellule du dessous Résolu

Question

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

aquarelle · Answer

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

Sph1nxXx · Answer

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é

aquarelle · Answer

Bonjour,

De rien, le principal étant que tu aies trouvé une solution :)

Bonne fin de journée

Copie cellule du dessous

3 réponses

Discussions similaires

Newsletters