Copier plusieurs lignes suivant variable VBA

[jmh1]

Bonsoir à tous

J'ai une ligne de code qui me pose problème :

k = 4
Do While IsEmpty(ActiveCell) = False

If IsEmpty(Sheets(sh).Cells(k, Scrol)) Then
k = k + 6
ActiveCell.Offset(1, 0).Activate
Else
Sheets(sh).Rows(k : k + 5).Copy
End If
Loop

J'ai l'impression que VBA ne comprend pas ma ligne après le Else. En fait, je voudrais qu'après vérification d'une cellule, si celle-ci n'est pas vide, qu'il me copie les lignes de la ligne active jusqu'à 5 lignes de plus.

Quelqu'un pourrait-il me dire où est l'erreur dans mon code.

Merci

 

[job75]

Re : Copier plusieurs lignes suivant variable VBA

Bonjour jmh1,

Donnez au moins un code avec une syntaxe correcte, Rows(k : k + 5) n'a pas de sens.

Par ailleurs si vous copiez il faut aussi coller sinon rien ne se passe...

A+

 

[jmh1]

Re : Copier plusieurs lignes suivant variable VBA

Bonsoir job75

C'est justement ce que je n'arrive pas à interpréter, comment faire pour que si ma variable k a une valeur de 4 par exemple, la macro me copie de la ligne 4 à la ligne 9.

Sinon je suis d'accord pour le copier qui manque mais je n'ai pas mis tout mon code pour l'exemple.

Merci

 

[job75]

Re : Copier plusieurs lignes suivant variable VBA

Re,

Rows(k & ":" & k + 5).Copy

A+

 

[jmh1]

Re : Copier plusieurs lignes suivant variable VBA (résolu)

Merci pour la solution.

@+