Bonjour,
J'utilise une macro qui me permet d'aller chercher des informations dans une feuille "Fiche Achat" pour les coller dans une autre feuille "synthese"
La macro est la suivante :
Private Sub CommandButton1_Click()
Dim L As Integer L = Sheets("synthese").Range("a65536").End(xlUp).Row + 1
Sheets("synthese").Activate
With Sheets("synthese")
'Baker
.Range("a" & L).Value = Worksheets("Fiche Achat").Range("c9")
.Range("b" & L).Value = Worksheets("Fiche Achat").Range("c10")
.Range("c" & L).Value = Worksheets("Fiche Achat").Range("c11")
.Range("d" & L).Value = Worksheets("Fiche Achat").Range("j14")
.Range("e" & L).Value = Worksheets("Fiche Achat").Range("c14")
.Range("f" & L).Value = Worksheets("Fiche Achat").Range("c19")
.Range("g" & L).Value = Worksheets("Fiche Achat").Range("c18")
.Range("h" & L).Value = Worksheets("Fiche Achat").Range("k19")
.Range("i" & L).Value = Worksheets("Fiche Achat").Range("k18")
.Range("j" & L).Value = Worksheets("Fiche Achat").Range("a22")
.Range("k" & L).Value = Worksheets("Fiche Achat").Range("i22")
End With
End Sub
Ensuite je copie la feuille "Fiche Achat" et j'obtiens donc "Fiche Achat (2)" et ainsi desuite pour un nombre x d'achats. Du coup la macro ne fonctionne plus puisque la macro permet d'aller chercher les infos dans worksheets("Fiche Achat").
Y aurait-il un moyen pour que dans les parenthèses se mette automatiquement le nom de la feuille ouverte? Ou pour que la macro aille chercher les infos dans la feuille ouverte?
Cette macro n'est peut être plus utilisable dans ces conditions?
Merci d'avance pour votre aide que me sera d'un grand secours.
J'utilise une macro qui me permet d'aller chercher des informations dans une feuille "Fiche Achat" pour les coller dans une autre feuille "synthese"
La macro est la suivante :
Private Sub CommandButton1_Click()
Dim L As Integer L = Sheets("synthese").Range("a65536").End(xlUp).Row + 1
Sheets("synthese").Activate
With Sheets("synthese")
'Baker
.Range("a" & L).Value = Worksheets("Fiche Achat").Range("c9")
.Range("b" & L).Value = Worksheets("Fiche Achat").Range("c10")
.Range("c" & L).Value = Worksheets("Fiche Achat").Range("c11")
.Range("d" & L).Value = Worksheets("Fiche Achat").Range("j14")
.Range("e" & L).Value = Worksheets("Fiche Achat").Range("c14")
.Range("f" & L).Value = Worksheets("Fiche Achat").Range("c19")
.Range("g" & L).Value = Worksheets("Fiche Achat").Range("c18")
.Range("h" & L).Value = Worksheets("Fiche Achat").Range("k19")
.Range("i" & L).Value = Worksheets("Fiche Achat").Range("k18")
.Range("j" & L).Value = Worksheets("Fiche Achat").Range("a22")
.Range("k" & L).Value = Worksheets("Fiche Achat").Range("i22")
End With
End Sub
Ensuite je copie la feuille "Fiche Achat" et j'obtiens donc "Fiche Achat (2)" et ainsi desuite pour un nombre x d'achats. Du coup la macro ne fonctionne plus puisque la macro permet d'aller chercher les infos dans worksheets("Fiche Achat").
Y aurait-il un moyen pour que dans les parenthèses se mette automatiquement le nom de la feuille ouverte? Ou pour que la macro aille chercher les infos dans la feuille ouverte?
Cette macro n'est peut être plus utilisable dans ces conditions?
Merci d'avance pour votre aide que me sera d'un grand secours.