copier sur un nb de lignes

[mikeo]

Bonjour à tous,

J'essaie de faire une macro qui fait : copier ligne 135 ; coller de la ligne 136 à un nombre de lignes calculé. Ma macro ci-après ne marche pas. Problème de syntaxe sur nblig ?


Private Sub CommandButton1_Click()
'
Dim N As Long, nblig As Long

nblig = N - 120 + 136
If nblig > 0 Then
Rows("135:135").Select
Selection.Copy
Rows("136:nblig").Select
ActiveSheet.Paste
End If
End Sub

Merci pour vos réponses

 

[pierrejean]

Re : copier sur un nb de lignes

bonjour mikeo

A tester

[COLOR=#000000]Sub CommandButton1_Click()[/COLOR]
[COLOR=#000000]'[/COLOR]
[COLOR=#000000]Dim N As Long, nblig As Long[/COLOR]
[COLOR=#000000]nblig = N - 120 + 136[/COLOR]
[COLOR=#000000]If nblig > 0 Then[/COLOR]
[COLOR=#000000]Rows("135:135").Select[/COLOR]
[COLOR=#000000]Selection.Copy[/COLOR]
[COLOR=#000000]Rows("136:"[COLOR=blue] & 136 + nblig[/COLOR]).Select
ActiveSheet.Paste
End If
End Sub
[/COLOR]

 

[mikeo]

Re : copier sur un nb de lignes

Re,

Merci PierreJean, toujours prêt à aider comme d'habitude.

A+