Renvoie de donnée dans autres cellule

[geoffroybaumer]

Bonjour à tous,

Je désir créer une macro me permettant de renvoyer des données texte des cellules A1 à A10 aux cellules C1 à C10
en appuyant sur un bouton présent sur la feuille.

La ligne renvoyer en ligne C ne doit pas écraser la précédente mais la remplacer
ainsi la précédente prendrai la ligne D.

Merci par avance de votre aide car je nage.

Si questions je reste à votre dipo

Geoffroy

 

[skoobi]

Re : Renvoie de donnée dans autres cellule

Bonsoir geoffroybaumer, bienvenue sur XLD,

voici un exemple:

Sub Macro1()
  If Columns("C:C").Cells(1).Value <> "" Then Columns("C:C").Insert Shift:=xlToRight
  Range("A1:A10").Copy Columns("C:C")
End Sub