Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MACRO copie feuille + Nom de cellule + etc...

  • Initiateur de la discussion Initiateur de la discussion caseras
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

caseras

XLDnaute Nouveau
Bonjour,

je suis nouveau et j'aurais besoin d'un coup de mains, svp.


J'ai fait une macro qui recopie une feuille type et se renomme à partir de 3 cellules, ce qui m'est nécessaire.

J'ai trois soucis avec la macro que j'ai fait :

1. La copie de ma feuille se fait à la fin, et non juste après ma feuille type
2. Si j'envoie deux fois la même feuille à copier, la deuxième copie plante au lieu de mettre "NOM" (1) alors que je dois pouvoir la copier plusieurs fois
3. Je reste sur la feuille copiée alors que j'aimerais plutôt me retrouver sur la feuille type en A1

(Dans ma macro il y a une ligne pour supprimer les objets que je veux conserver)

Vos idées seront la bienvenues, merci !
 

Pièces jointes

Re : MACRO copie feuille + Nom de cellule + etc...

Bonjour caseras, et bienvenue sur le forum

essaie ceci:
Code:
Sub Archiver()
Dim nomE As String
Dim plage As Range
Dim dj As String
 
With Sheets("Dooo")

nomE = .[A1]
nomD = .[B1]
Set plage = Union(.[A1], .[B1], .[C1])
dj = Format(.[C1], "dd-mm")

End With

Sheets("Dooo").Copy after:=Sheets("Dooo")
Sheets(2).Name = nomE & "  " & dj & " à " & nomD & "  (" & Sheets.Count - 1 & ")"

With ActiveSheet
ActiveSheet.DrawingObjects.Delete
End With

Sheets("Dooo").Select
Range("A1").Select
End Sub

à+
Philippe
 

Pièces jointes

Re : MACRO copie feuille + Nom de cellule + etc...

Bonsoir Philippe,

Nickel, exactement ce que je voulais !

Et puis quelle rapidité ! je croyais naïvement que ce problème prendrait beaucoup plus de temps !

En attendant un grand MERCI ! 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…