Discussion :

[tif74]

Bonjour,
Je cherche à copier une cellule, la déplacer d'un nombre de lignes selon une valeur qui se trouve dans une autre cellule et la coller. Je fais mes premiers pas en vba et je galère.
J'ai essayé de faire séparément chacune des étapes mais quand je mets tout ensemble... c'est plus compliqué.
Voilà ce que j'ai fait :

Code :

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

1
2
3
4
Range("D9").Select
    Selection.Copy
    Range(ActiveCell(Range("P9").Value, 15).Select).Select
    ActiveSheet.Paste

Merci de vos conseils et corrections.

[Philippe Tulliez]

Bonjour,

Je cherche à copier une cellule, la déplacer d'un nombre de lignes selon une valeur qui se trouve dans une autre cellule et la coller

Pour copier une cellule vers un autre endroit il suffit d'utiliser la méthode Copy de l'objet Range en utilisant son argument Destination

Exemple de la copie de la cellule B3 de la feuille nommée [Feuil1] du classeur où se trouve le code VBA vers la cellule F25 de la même feuille

Code :

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

1
2
3
  With ThisWorkbook.Worksheets("Feuil1")
  .Range("B3").Copy .Range("F25")
  End With

Exemple de la copie de la cellule B3 de la feuille nommée Feuil1 du classeur où se trouve le code VBA vers la cellule E3 de la feuille nommée [Feuil2] du même classeur

Code :

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

1
2
3
4
  With ThisWorkbook
  .Worksheets("Feuil1").Range("B3").Copy .Worksheets("Feuil2").Range("E3")
  End With
End Sub

Exemple de la copie de la cellule B3 de la feuille nommée [Feuil1] du classeur où se trouve le code VBA en se déplaçant d'un nombre de lignes défini par la valeur contenue dans la cellule C3 de la même feuille

Code :

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

1
2
3
  With ThisWorkbook.Worksheets("Feuil1")
  .Range("B3").Copy .Range("B3").Offset(.Range("C3").Value)
  End With

ou

Code :

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

1
2
3
  With ThisWorkbook.Worksheets("Feuil1").Range("B3")
  .Copy .Offset(.Parent.Range("C3").Value)
  End With