[VBA] Ajout d'une feuille excel via un bouton

Ajout d'une feuille excel via un bouton [VBA] - Logiciels - Windows & Software

Marsh Posté le 04-10-2007 à 10:11:19    

Bonjour,
 
J'aimerais rajouter une feuille excel via un bouton, et j'aimerais que cette feuille soit faite à partir d'un modèle.
J'ai crée le bouton, et quand je double clik dessus, j'ai la fenêtre VBA qui apparaît, mais que mettre entre :
 
Private Sub CommandButton1_Click()
 
End Sub

Reply

Marsh Posté le 04-10-2007 à 10:11:19   

Reply

Marsh Posté le 04-10-2007 à 11:16:37    

Le plus simple est de commencer l'enregistrement d'une macro, de faire l'opération en environnement Excel (Fichier/Nouveau... et ta feuille, ou un truc du genre) et d'arrêter l'enregistrement.  
Ensuite tu pompes le code généré. :D

Reply

Marsh Posté le 04-10-2007 à 13:43:28    

La création d'une nouvelle feuille marche avec :
 
Sheets.Add
 
Maintenant j'aimerais donner un nom à cette feuille, le nom étant récupéré à partir d'une cellule.

Reply

Marsh Posté le 04-10-2007 à 16:48:51    

Ceci te crée une feuille standard... C'est ce que tu veux ? Tu parlais d'un modèle ?
En tout cas, une fois que tu as fait Sheets.add (ou Worksheets.add), la feuille nouvellement créée devient la feuille active, et tu peux la nommer avec un :
Activesheet.name=Worksheets("LeNomdelafeuillequicontientlacelluleNom" ).Range("A1" ).value (si A1 est la cellule en question)
Fais F1 après Add en VBA et tu auras l'aide correspondante (vive la touche F1 ! :D )

Reply

Marsh Posté le 05-10-2007 à 13:45:38    

Merci, pour le modèle oui tu as raison, la feuille crée devra toujours contenir le mème modèle de base (mais j'apprends étape par étape) maintenant il faut que je mette automatiquement le mème modèle dans la feuille...

Reply

Marsh Posté le 05-10-2007 à 14:43:03    

Tu peux aussi éventuellement te faire une feuille "modèle" dans ton classeur, que tu masques (soit juste masquée, soit "very hidden", et ça en code), et que tu copies ensuite...

Reply

Marsh Posté le 08-10-2007 à 13:26:27    

Je n'arrive pas à la copier, voila mon code :
 
Sheets("Mod_Fich_Ano" ).Select
Selection.Copy
 
Sheets.Add.name = "test"
Sheets("test" ).Select
ActiveSheet.Paste
 
Et la il me sort l'erreur suivante :
"La méthode Select de la classe WorkSheet a échoué"

Reply

Marsh Posté le 09-10-2007 à 08:35:09    

Bon j'ai réussi a créer la feuille excel à partir du modèle, voila le code :
 
Dim i As String
i = "ANO_"
Sheets("Mod_Fich_Ano" ).Copy
ActiveSheet.Name = i + ComboBox1.Value
 
Seulement cette nouvelle feuille excel se crée dans un autre classeur, et j'aimerais qu'elle se crée dans le mème classeur. Quelqu'un peut m'aider

Reply

Marsh Posté le 09-10-2007 à 12:42:34    

L'utilisation de l'aide sur la méthode Copy te donne l'explication ! ;)
Si tu ne veux pas qu'il te copie la feuille dans un nouveau classeur, tu dois préciser soit "avant FeuilleTruc", soit "après FeuilleTruc", avec:
Sheets("Mod_Fich_Ano" ).Copy After:=Sheets(Sheets.count) 'ici copie la feuille en dernière position

Reply

Marsh Posté le 10-10-2007 à 13:17:51    

Merci cela marche très bien

Reply

Marsh Posté le 10-10-2007 à 13:17:51   

Reply

Marsh Posté le 10-01-2018 à 13:17:52    

Bonjour,
 
J'ai besoin de votre aide pour créer un bouton qui crée une nouvelle feuille dans le classeur à partir d'une feuille modèle.
Enfin quelque chose d'un peu plus pointu...
Je souhaite créer un bouton avec un champ sur ce même bouton qui va me permettre de renseigner le nom de cette future feuille.
Une fois le champ renseigné, je clique sur ok/valider et cela crée ma feuille qui portera le nom du champ renseigné dans le bouton.
 
Merci d'avance,

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed