Bonjour
j'aimerai copier les cellules C9 à C14 et H9 à H14 de la "feuil1" dans la colonne à partir de C9 sur la feuille "archive"
mais si la colonne C est deja occupée copier dans la colonne à partir de D9 et ains de suite.
merci de votre aide
Bonjour
j'aimerai copier les cellules C9 à C14 et H9 à H14 de la "feuil1" dans la colonne à partir de C9 sur la feuille "archive"
mais si la colonne C est deja occupée copier dans la colonne à partir de D9 et ains de suite.
merci de votre aide
Si tu souhaites le faire par macro, voici les étapes pour le faire :
1) Activer le ruban développeur (option d'excel)
2) Ajouter un bouton de commande active x
3) clic droit et choisir l'option "visualiser le code"
4) Enfin insérer le code suivant :
voilà bon courage
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub CommandButton21_Click() If Worksheets("archive").Range("C9:C14") = "" or Worksheets("archive").Range("H9:H14") ="" Then Worksheets("archive").Range("C9:C14") = Worksheets("feuil1").Range("C9:C14") Worksheets("archive").Range("H9:H14") = Worksheets("feuil1").Range("H9:H14") Else Worksheets("archive").Range("D9:D14") = Worksheets("feuil1").Range("C9:C14") Worksheets("archive").Range("I9:I14") = Worksheets("feuil1").Range("H9:H14") End If End Sub![]()
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Worsheets("feuil1").Range("C9:C14").Copy destination:=Worsheets("archive").Range("C9").End(xlToRight).Offset(0,1) Worsheets("feuil1").Range("H9:H14").Copy destination:=Worsheets("archive").Range("C9").End(xlToRight).Offset(0,1)
Partager