Je voudrais faire une macro qui réalise la séquence suivante :
- sélectionner une feuille "patron" à partir d'une cellule paramétrée
- la copier avant elle-même
- la renommer avec le contenu d'une cellule
J'essaye un truc du genre :
Sub RecopieFeuille()
Dim Compteur As Integer
Dim Patron as String
Patron = Range("TypeTableur").Value
Compteur = 1
Sheets(Patron).Copy Before:=Sheets(1)
Sheets(???).Name = Compteur
End Sub
Mon pb :
- même en manuel la séquence "recopie - renomme la nouvelle feuille" ne
marche pas (alors que la séquence simple "renomme" marche, va comprendre...)
- je ne sais pas quoi mettre dans la pareenthèse (???)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Gilgamesh,
ActiveSheet.Name = Compteur
isabelle
Bonjour,
Je voudrais faire une macro qui réalise la séquence suivante : - sélectionner une feuille "patron" à partir d'une cellule paramétrée - la copier avant elle-même - la renommer avec le contenu d'une cellule
J'essaye un truc du genre :
Sub RecopieFeuille()
Dim Compteur As Integer Dim Patron as String Patron = Range("TypeTableur").Value Compteur = 1 Sheets(Patron).Copy Before:=Sheets(1) Sheets(???).Name = Compteur End Sub
Mon pb :
- même en manuel la séquence "recopie - renomme la nouvelle feuille" ne marche pas (alors que la séquence simple "renomme" marche, va comprendre...)
- je ne sais pas quoi mettre dans la pareenthèse (???)
any idea ?
merci
bonjour Gilgamesh,
ActiveSheet.Name = Compteur
isabelle
Bonjour,
Je voudrais faire une macro qui réalise la séquence suivante :
- sélectionner une feuille "patron" à partir d'une cellule paramétrée
- la copier avant elle-même
- la renommer avec le contenu d'une cellule
J'essaye un truc du genre :
Sub RecopieFeuille()
Dim Compteur As Integer
Dim Patron as String
Patron = Range("TypeTableur").Value
Compteur = 1
Sheets(Patron).Copy Before:=Sheets(1)
Sheets(???).Name = Compteur
End Sub
Mon pb :
- même en manuel la séquence "recopie - renomme la nouvelle feuille" ne
marche pas (alors que la séquence simple "renomme" marche, va comprendre...)
- je ne sais pas quoi mettre dans la pareenthèse (???)
Je voudrais faire une macro qui réalise la séquence suivante : - sélectionner une feuille "patron" à partir d'une cellule paramétrée - la copier avant elle-même - la renommer avec le contenu d'une cellule
J'essaye un truc du genre :
Sub RecopieFeuille()
Dim Compteur As Integer Dim Patron as String Patron = Range("TypeTableur").Value Compteur = 1 Sheets(Patron).Copy Before:=Sheets(1) Sheets(???).Name = Compteur End Sub
Mon pb :
- même en manuel la séquence "recopie - renomme la nouvelle feuille" ne marche pas (alors que la séquence simple "renomme" marche, va comprendre...)
- je ne sais pas quoi mettre dans la pareenthèse (???)
