[Vba-E] Génération page

**antoinelavigne** · 14/06/2006, 09h51

Bonjour,
je suis encore un débutant sous VBA (1 jour à peine que je me suis mis à ce language) et j'ai quelques questions qui nécessiteraient des réponses. Voilà :

- Je suis en stage dans une société et je dois coder une macro qui, en gros, doit extraire certaines données d'une première feuille (ça je sais faire!), créer un autre feuille automatiquement, pour après grâce à un module codé par mes soins rentrer les données voulues.

Je voudrais donc savoir comment générer une nouvelle page et me permettre de travailler dessus. Merci beaucoup d'avance !

**Catbull** · 14/06/2006, 09h58

Une feuille Excel est représentée par l'objet Worksheet. Les feuilles d'un classeur sont contenues dans la collection Worksheets. Pour ajouter un élément à la collection WorkSheets, il faut utiliser la méthode Add.

Voici un exemple basique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub AjouterFeuille()
    Dim NouvelleFeuille As Worksheet
 
    Set NouvelleFeuille = Worksheets.Add
    NouvelleFeuille.Name = "Nouvelle Feuille"
End Sub

**antoinelavigne** · 14/06/2006, 10h09

Oh ca marche impec merci

Maintenant juste une dernière question : mon but est de créer une nouvelle page et d'y exécuter une procédure Sub à l'intérieur. Je sais donc désormais comment créer la page et j'ai déjà mon module de codé. Mais le problème reste que je n'arrive pas à faire exécuter le module DANS la nouvelle page crée : il est éxécuté dans la page courante.

Comment faire ? Thanks a lot

P.S : mon module est sur ce topic : http://www.developpez.net/forums/sho...d.php?t=164739

**Catbull** · 14/06/2006, 10h13

Par page tu entends feuille Excel?

Comment créés-tu cette nouvelle page? Par code ou est-ce une page créer par l'utilisateur?

Cette page est-elle créée dans le même classeur Excel ou dans un autre?

**ouskel'n'or** · 14/06/2006, 10h15

Deux solutions :
Soit tu actives la feuille concernée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("NomDeLaFeuille").activate

et là tu peux ensuite mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A1").value = 22
'ou
Cells(1,1).value = 22

Soit tu l'insères dans tes instructions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("NomDeLaFeuille").Range("A1").value = 22

A+

**antoinelavigne** · 14/06/2006, 10h35

Envoyé par CatBull

Par page tu entends feuille Excel?

Oui

Envoyé par CatBull

Comment créés-tu cette nouvelle page? Par code ou est-ce une page créer par l'utilisateur?

Il faudrait qu'elle soit crée automatiquement.

Envoyé par CatBull

Cette page est-elle créée dans le même classeur Excel ou dans un autre?

Pour l'instant faisons comme si elle était dans le même classeur, de toute façon je crois qu'il suffit de mettre Workbook().worksheet() si c'est dans un autre classeur.

Envoyé par ouskel'n'or

Worksheets("NomDeLaFeuille").activate

Je ne connais pas cette technique : donc en activant une page, toutes les instructions qui sont tapées par la suite s'éxécute sur cette dernière ? Si Oui, comment la désactiver aussi ?

Merci à vous 2 pour l'attention que vous me portez