VBA Sous Excel

BERRACHED said

XLDnaute Accro

• 14 Octobre 2008

• #2

Re : VBA Sous Excel

Salut,tomtom09

une solution j'espere te conviendera

Cordialement

 

Pièces jointes

• tomtom.xls

  29.5 KB · Affichages: 55

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #3

Re : VBA Sous Excel

Bonjour tomtom09, Said,

On peut tout aussi bien utiliser une liste déroulante de validation (menu Données-Validation-Options Autoriser: Liste) en définissant la plage ou se trouve la liste des feuilles que l'on veut activer.

Si la validation concerne la cellule A1, entrer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) la macro suivante :

Code:

Private Sub Worksheet_Change(ByVal Cel As Range)
If Cel.Address <> "$A$1" Then Exit Sub
Sheets(Cel.Value).Activate
End Sub

A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 14 Octobre 2008

• #4

Re : VBA Sous Excel

tomtom, Saïd🙂,Job🙂,

Une solution ici qui vient d'être traitée

A bientôt

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Octobre 2008

• #5

Re : VBA Sous Excel

tom,

Dans le fichier joint tu trouveras une solution.

Dans le module de code de ThisWorkbook, l'évènement Workbook_SheetActivate se charge de remplir la combobox de la feuille active.

Les combobox de tes feuilles doivent toutes avoir le même nom pour que cela fonctionne. Pour le vérifier, sélectionne une combobox et regarde à gauche de la barre de formule ou apparaît normalement l'adresse de la cellule sélectionnée. Tu peux à cet emplacement renommer ta combo avec le nom que tu désires. L'important étant que chaque combo de liste de feuille ait le même nom dans chacune des feuilles. Si tu les nommes "MaListe" par exemple, change dans toutes les lignes de code des modules du classeur le mot "ComboBox1" par "MaListe".

Si tu as une question, reste dans ce fil.

A bientôt

 

Vote positif 0 Vote négatif

T

tomtom09

Guest

• 15 Octobre 2008

• #6

Re : VBA Sous Excel

La combox ne se charge pas tous seul. Je ne sais pas si j'ai fais les bonnes manip à propos l'évènement Workbook_SheetActivate.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Octobre 2008

• #7

Re : VBA Sous Excel

tom,

Je crois que le mieux est de joindre ton fichier, sinon nous allons perdre du temps pour rien.

A bientôt

 

Vote positif 0 Vote négatif

T

tomtom09

Guest

• 15 Octobre 2008

• #8

Re : VBA Sous Excel

Voila, je vous envoie ce fichier.
Pour obtenir la liste des sheets. Je suis obliger de cliker sur les feuilles correspondantes.

Merci d'avance

Ps : Mon fichier zippé est trop gros. J'ai du retirer des informations

 

Pièces jointes

• Test2.zip

  45.6 KB · Affichages: 32
• Test2.zip

  45.6 KB · Affichages: 31
• Test2.zip

  45.6 KB · Affichages: 33

Dernière modification par un modérateur: 15 Octobre 2008

Vote positif 0 Vote négatif

T

tomtom09

Guest

• 15 Octobre 2008

• #9

Re : VBA Sous Excel

Je ne sais pas si vous arriver à acceder au fichier.

 

Vote positif 0 Vote négatif

T

tomtom09

Guest

• 15 Octobre 2008

• #10

Re : VBA Sous Excel

Excuse HASCO,
Mais je n'arrive pas à creée le menu déroulant. Le faite qu'il soit déclarer en public permet de l'appeler ulterieurement.?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Octobre 2008

• #11

Re : VBA Sous Excel

tom,

voici ton fichier, modifié

la function publique GetListeDesFeuilles() peut-être appelée de n'importe quel module ou macro. D'où l'intérêt du mot Public, parfois.

tu n'es pas obligé de conserver ce qui concerne la création et suppression du menu si tu ne t'en sert pas.

Si je ne réponds pas de suite à un message, c'est pour des raisons qui me sont propres mais je jette toujours un coup d'oeil sur les fils que je suis. Aussi ton tour serait venu un moment ou à un autre. De plus ici nous ne somme pas soumis à obligation de résultat.

Un petit tout du côté de la charte du formum.

A bientôt

 

Vote positif 0 Vote négatif

T

tomtom09

Guest

• 15 Octobre 2008

• #12

Re : VBA Sous Excel

Re,
Je ne comprend pas le menu déroulant ne s'execute pas au démarage.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 16 Octobre 2008

• #13

Re : VBA Sous Excel

RE,

Code:

Private Sub Workbook_Open()
    Call DoMenuFeuilles
    Workbook_SheetActivate Sheets("Home")
End Sub

 

Vote positif 0 Vote négatif

T

tomtom09

Guest

• 16 Octobre 2008

• #14

Re : VBA Sous Excel

Ca marche très bien.
Merci HASCO
A+

 

Vote positif 0 Vote négatif