report cellule vers le bas si cellule vide

[franck70]

Bonjour,

Voici mon problème:
Je voudrais que le code qui figure dans la 1ère colonne soit reporté sur les cellules plus bas et qu'il s'arrête dès qu'il y a déjà un code dans la cellule.
Ensuite, il faudra faire pareil pour le code suivant, la macro s'arrêtant quand il n'y a plus de chiffre dans la colonne de droite.

Merci à toutes et à tous

 

[jeanpierre]

Re : report cellule vers le bas si cellule vide

Bonsoir franck,

Ouvert ton fichier et rien cimpris.

Pas de code, ni formules....

A te relire pour plus.

 

[franck70]

Re : report cellule vers le bas si cellule vide

Bonjour Jeanpierre.

Il n'y a aucune formule dans mon fichier. Comme j'arrivais à gérer les formules dans ma macro, j'ai tout retirer pour simplifier.
En colonne A, il y a un parfois un code (par exemple I601000 ou I602000) et parfois la cellule est vide. Si la cellule est vide, alors il faudrait qu'il remette le code de la cellule précédente. Par contre, s'il y a déjà un code, il faut que la macro le laisse.
Enfin, la macro doit s'arrêtre quand la cellule en colonne B est vide.

J'ai modifié le fichier ci-joint pour montrer ce que je souhaite obtenir à la fin.

Merci pour tes remarques jeanpierre, j'espère que ce sera plus compréhensible maintenant.

 

[pierrejean]

Re : report cellule vers le bas si cellule vide

bonjour franck70

vois si cela te convient

Encore bon WE jeanpierre

 

[franck70]

Re : report cellule vers le bas si cellule vide

Rebonjour,

Je n'arrive pas à ouvrir le fichier joint.
Pourrais-tu m'indiquer si c'est bien un fichier zip ? (quand j'ai voulu décompresser, il m'a signifié que ce n'était pas le cas).

Merci d'avance pour ton aide.

 

[pierrejean]

Re : report cellule vers le bas si cellule vide

Re

Oui c'est bien un .zip
Je brave les foudres de jeanpierre et je le poste en .xls

 

[jeanpierre]

Re : report cellule vers le bas si cellule vide

Re, aux amis et les autres.

Utilises IzArc au besoin... c'est gratuit. Reconnaissance de (presque) tous les formats...

Le fichier de PierreJean fonctionne chez-moi, sans rien de plus que windows

 

[franck70]

Re : report cellule vers le bas si cellule vide

Merci, c'est exactement ce que je voulais.

Merci beaucoup

 

[Gorfael]

Re : report cellule vers le bas si cellule vide

Salut à tous
une autre forme de la macro de Pierrejean (qui m'a grillé pendant que je m'occupais de mon gamin).

Sub Test()
Dim Cel As Range
For Each Cel In Range([A1], Range("A" & [B65536].End(xlUp).Row))
    Cel.MergeCells = False
    If IsEmpty(Cel) Then Cel = Cel.Offset(-1, 0)
Next Cel
End Sub

A+