Déplacement d'une partie de colonne

Bonjour,

Je possède en colonne "B" une série de numéro.

j'aimerais copier les x dernier numéros (x se trouvant en case "R2") dans la colonne "Z" à partir de la ligne 18.

Merci pour votre aide.

Bonjour

tu peux essayer ceci:

Sub CopieCellules()
Dim x As Integer
Dim derligne As Integer

x = Sheets(1).Range("R2").Value
derligne = Range("B" & Rows.Count).End(xlUp).Row

Sheets("Feuil1").Range("B" & derligne - x & ":B" & derligne).Copy Sheets("Feuil1").Range("Z18")

End Sub

Cordialement

Jarodness

MERCI SUPER

Bonne journée

Rechercher des sujets similaires à "deplacement partie colonne"