MACRO [si la cellule est vide, copier celle du dessus...]

[Didier]

Bonjour,

J'ai 2 tableaux conséquents à comparer ligne à ligne (les lignes n'étant évidemment pas dans le même ordre dans les 2 tableaux), et certaines lignes connexes étant solidaires entre elles.

Les lignes solidaires entres elles se présentent ainsi :
la première cellule de la première ligne contient un texte qui la distingue, et les lignes suivantes qui sont solidaires ont la cellule de la même colonne, vide.


Je pense procéder comme ceci :

Dans un premier temps repérer toutes les cellules vides de la colonne A et si la cellule est vide, alors faire une copie de la cellule qui se trouve au dessus. Cette macro a l'air fort simple mais je ne connais pas la syntaxe. Je vous remercie pour votre aide.

Une fois ceci fait j'aurai 2 tableaux avec des lignes indépendantes et je pourrai comparer ligne par ligne, enfin j'espère.

 

[Didier]

Merci à AV qui m'a donné la solution sur le forum Microsoft. Je cite :


A tester
Lignes vierges en colonne A et lignes toutes renseignées en colonne B

Sub complèter()
x = [B65536].End(3).Row
For Each c In Range("A1: A" & x).SpecialCells(xlCellTypeBlanks)
c.Value = Range(c.Address).End(3).Value
Next
End Sub

AV