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

maxxx08 Messages postés 33 Date d'inscription mercredi 25 mai 2011 Statut Membre Dernière intervention 3 mai 2012 - 31 mai 2011 à 14:38
ucfoutu Messages postés 18038 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

3 réponses

cs_Sbt Messages postés 47 Date d'inscription mardi 29 avril 2003 Statut Membre Dernière intervention 22 mai 2012 1
31 mai 2011 à 16:01
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
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
31 mai 2011 à 16:29
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
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 211
31 mai 2011 à 16:51
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
0
Rejoignez-nous