Problème macro copier/coller
Bonjour,
j'ai quelque souci avec une macro copier/coller. Voici mon problème, je possède un fichier récapitulatif avec 2 bouton que j'ai crée je veux qu'une fois le tableau remplis de données on puisse cliquer sur le bouton copie et que les données ce copie dans un autre onglet.
voici la macro que j'utilise qui fonctionne :
Code:
1 2 3 4 5 6 7 8 9
| Sub Copyover()
With Workbooks("Test Me.xlsm").Sheets("BDD")
Tablotransfer = .Range("A3:A29").Value
End With
With Workbooks("Test Me.xlsm").Sheets("COPY")
.Range("E1:E27").Value = Tablotransfer
End With |
Pour faire fonctionner mon bouton j'utilise cette macro toute simple :
Code:
1 2 3 4
| Private Sub CommandButton1_Click()
If [A1] = Sheets("BDD").Range("a2") Then Copyover
End Sub |
j'ai une liste déroulante en A1, donc j'ai plusieurs macro Copyover et plusieurs condition IF.
Mon problème et le suivant car toute mes étapes précédentes fonctionnent : je peux avoir besoin de recopier des données différentes dans un même onglet, donc je voudrai rajouter des plages de zone de copie supplémentaire si et uniquement si j'ai besoin de place supplémentaire.
J'espère avoir été assez clair
Merci