[Catégorie modifiée VB6 -> VBA] créer variable qui effectue plusieurs actions

Messages postés
35
Date d'inscription
mercredi 25 mai 2011
Statut
Membre
Dernière intervention
3 mai 2012
- - Dernière réponse : ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
- 31 mai 2011 à 16:51
Bonjour tout le monde,

Mon probleme est que je n'arrive pas à donner à une variable plusieurs actions. (créer une feuille et la renommer).
Voici ce que j'ai essayé de faire pour l'instant.

Dim create_sheets_1
create_sheets_1 Sheets.Add Sheets(Sheets.Count) And _
     Sheets("Feuil1").Select And _
     Sheets("Feuil1").Name = "AUTO G OU D"


J'espère que vous allez pouvoir m'aider
Afficher la suite 

3 réponses

Messages postés
49
Date d'inscription
mardi 29 avril 2003
Statut
Membre
Dernière intervention
22 mai 2012
1
0
Merci
Salut...

Je ne comprends pas ce que tu veux faire...

Apparemment, tu veux insérer une feuille dans le classeur et la renommer.
Tu ne peut pas le faire en une seule ligne de code...

Sous Excel 2007, en VBA :
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Auto G ou D"



A+.
Sbt
Commenter la réponse de cs_Sbt
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
214
0
Merci
Bonjour,

Aussi et surtout :
Une procédure, une fonction ... peuvent exécuter des instructions
En aucun cas une variable !
Une variable n'effectue rien ! Elle ne sert qu'à stocker en mémoire son contenu
Le contenu d'une variable peut dont être utilisé dans une procédure ou une fonction, mais n'exécute rien en soi !


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Commenter la réponse de ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
214
0
Merci
et également, si l'on veut éviter deux fois le compte de la collection :
With Worksheets.Add
        .Move after:=Worksheets(Worksheets.Count): .Name = "feuille ajoutée"
 End With


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Commenter la réponse de ucfoutu