VBA_dev_Anne_Marie
XLDnaute Occasionnel
Bonjour,
Je voudrais ajouter une nouvelle feuille, dont le nom sera la valeur de Cells(2, 1) de la feuille Coûts.
Ensuite, je voudrais remplir la nouvelle feuille ajoutée, mais mon code With Sheets("& Cells(2, 1).Value &") ne marche pas.
Merci pour votre aide.
Je voudrais ajouter une nouvelle feuille, dont le nom sera la valeur de Cells(2, 1) de la feuille Coûts.
Ensuite, je voudrais remplir la nouvelle feuille ajoutée, mais mon code With Sheets("& Cells(2, 1).Value &") ne marche pas.
VB:
Sheets.Add.Name = Sheets("Coûts").Cells(2, 1)
With Sheets("& Cells(2, 1).Value &")
.Cells(1, 2) = "Numéro"
.Cells(1, 3) = Sheets("Coûts ").Cells(2, 1)
End With
Merci pour votre aide.