Discussion :

[Galdwin]

Bonjour,

Voilà après deux jours de recherche sur le net j'ai trouvé quelque chose qui me semble correcte mais le problème c'est que ma macro tourne en boucle sans prendre fin.

Voilà l'explication:
J'ai 5 collones.
A;B;C;D;E

Je voulais que si la cellule E5 est non vide alors il me copier les cellules de A4 a D4 et me la colle a coté de la cellule E5 en dessous de la ligne précédente.
Je veux qu'il face ce controle sur toute la collone E en sachant qu'elle n'à pas toujours le même nombre de cellule.

Voici le code que j'ai trouvé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Cell As Range
     For Each Cell In Range("E4:E9999")
                If Cell.Value <> "" Then Range("A4 : D4").Select
                Selection.Copy
                Range("A" & Range("A65535").End(xlUp).Row + 1).Select
                ActiveSheet.Paste
            Next Cell

Le problème ces qu'il s'ârrête jamais. Il continue a coller même si la cellule EX est vide.

Monde code est faux? une autre sollution à proposer ?

J'attend avec impatiente votre aide.

Cordialement

[EngueEngue]

Si j'ai bien compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Cell As Range
If Range("E5") <> "" then
Range("A4:D4").Copy Range("E" & Range("E65535").End(xlUp).Row + 1)
End if

[Marc-L]

Bonjour,

juste en passant (pas trop le temps en fait) pour affirmer que oui, ce code est totalement aware ‼

Deux jours de recherche pour cela !

Et dire que cela doit prendre moins d'une demi-journée à un grand débutant pour rédiger un code propre !