Aide sur code vba

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #2

Re : Aide sur code vba

Bonjour, je suis peut être allé un peu vite en besogne ...
la macro n'est effectivement pas complète ...
La voici donc.
Private Sub Worksheet_Activate()
ComboBox1.Value = "Sélectionner un Tableau de Bord"
ActiveWindow.WindowState = xlMaximized
Application.WindowState = xlMaximized

End Sub
Private Sub ComboBox1_Click()
Sheets(ComboBox1.Text).Select
End Sub

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count

If Sheets(i).Name = "Accueil" Then
ComboBox1.AddItem Sheets(i).Name

End If

Next
End Sub

A +

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #3

Re : Aide sur code vba

Voici donc un fichier, avec des explications sur la feuille.

Merci

A +

 

Pièces jointes

• EXEMPLE.xls

  46 KB · Affichages: 57
• EXEMPLE.xls

  46 KB · Affichages: 61
• EXEMPLE.xls

  46 KB · Affichages: 61

Vote positif 0 Vote négatif

treza88

XLDnaute Occasionnel

• 20 Janvier 2010

• #4

Re : Aide sur code vba

bonjour,

Dans ton code j'ai remplacé Accueil par synthese car il me semble que c'est ce que tu voulais dire, car sinon je ne comprend pas tres bien ou tu veux en venir.

j'ai pas testé a toi de voir si ça correspond a ce que tu veux.

Code:

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "Synthèse" or Sheets(i).Name = "Site 1" Then
ComboBox1.AddItem Sheets(i).Name
End If
Next
End Sub

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #5

Re : Aide sur code vba

Bonjour,

exact pour la correction, ma version avait évoluée ...

par contre le code ne donne rien de plus que Synthèse comme choix.



Merci

A +

 

Vote positif 0 Vote négatif

treza88

XLDnaute Occasionnel

• 20 Janvier 2010

• #6

Re : Aide sur code vba

Fait un copié coller du code si dessous.
Il faut faire attention au maj et minuscule

Code:

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
For i = 1 To ActiveWorkbook.Sheets.Count
    If Sheets(i).Name = "Accueil" Or Sheets(i).Name = "SITE 1" Then
        ComboBox1.AddItem Sheets(i).Name
    End If
Next i
End Sub

 

Vote positif 0 Vote négatif

T

THIERRY35

XLDnaute Occasionnel

• 20 Janvier 2010

• #7

Re : Aide sur code vba

Autant pour moi, un espace oublié ....


Merci, c'est parfait

A +

 

Vote positif 0 Vote négatif