Pb dans ma syntaxe

[elriton]

Bonjour le forum

N'étant pas un pro (et loin de la) j'ai un soucis dans une macro qui me servirait à copier une ligne à la suite d'une liste :

Le pb (et je ne trouves vraiment pas) est que ça ne me recopie la ligne qu'une fois.

Ci-joint 1 fichier test;

Si, à la fin du code :
Range("f" & l).Select

Je remplace "f" par "a", la macro fonctionne normalement;

Merci de vos éclaircissements éclairés

 

[pierrejean]

Re : Pb dans ma syntaxe

bonjour elriton

et bienvenue sur XLD

Teste ceci

Sub déplace_ligne_qtce_a_la_fin()
    Range("$F$8:$I$8").Select
    Selection.Copy
    l = 9
    Do While Cells(l,[COLOR=red] 6[/COLOR]) <> ""
        l = l + 1
    Loop
    Range("F" & l).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[kjin]

Re : Pb dans ma syntaxe

Bonsoir,
pas compris la même chose, à condition qu'il y ait qq chose en B9 et suivantes

Sub déplace_ligne_qtce_a_la_fin()
Range("F8:I8").Copy
l = 9
Do While Cells(l, 2) <> ""
Range("f" & l).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
l = l + 1
Loop
End Sub

A+
kjin

 

[job75]

Re : Pb dans ma syntaxe

Bonjour,
Désolé HS.
A+

 

[elriton]

Re : Pb dans ma syntaxe

Merci Pierre Jean ca marche du tonerre
J'avais bien éssayé de modifier ce chiffre mais je m'étais arrêté à 4 car cela ne donnait rien de bon.

Merci aux autre également de vous être penchés sur mon pb