Copie cellule du dessous

Résolu/Fermé

Sph1nxXx Messages postés 66 Date d'inscription mercredi 30 juillet 2008 Statut Membre Dernière intervention 5 octobre 2010 - 16 nov. 2009 à 14:25
aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 - 17 nov. 2009 à 13:01

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

A voir également:

Copie cellule du dessous
Copie cachée - Guide
Copie écran samsung - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Copie disque dur - Guide

3 réponses

Réponse 1 / 3

aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
16 nov. 2009 à 20:15

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

Réponse 2 / 3

Sph1nxXx Messages postés 66 Date d'inscription mercredi 30 juillet 2008 Statut Membre Dernière intervention 5 octobre 2010 10
17 nov. 2009 à 12:23

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é

Réponse 3 / 3

aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
17 nov. 2009 à 13:01

Bonjour,

De rien, le principal étant que tu aies trouvé une solution :)

Bonne fin de journée

Discussions similaires

lien copié

Comment retrouver des lien copier sur sont téléphone

Excel si cellule contient texte alors...

manon

Discussions similaires

Newsletters