Copie cellule du dessous
Résolu
Sph1nxXx
Messages postés
69
Statut
Membre
-
aquarelle Messages postés 7435 Statut Modérateur -
aquarelle Messages postés 7435 Statut Modérateur -
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
A voir également:
- Copie cellule du dessous
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Copie écran samsung - Guide
- Copie disque dur - Guide
- Excel cellule couleur si condition texte - Guide
3 réponses
Bonsoir,
Essaie ceci :
Bonne soirée
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é
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é
