Aide sur code vba

[THIERRY35]

Bonjour,

j'ai récupéré un code combobox et je souhaite le modifier pour
ne sélectionner que les feuilles consultables.
mais je bloque dés que je rajoute un deuxième IF.

Voilà le code qui fonctionne et qui sélectionne la feuille nommée "Synthèse":

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

Je souhaite par exemple rajouter la feuille "Site 1", mais impossible d'ajouter un autre IF sans avoir un message D'erreur "Next sans For"

Merci
A +

 

[THIERRY35]

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 +

 

[THIERRY35]

Re : Aide sur code vba

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

Merci

A +

 

[treza88]

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.

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

 

[THIERRY35]

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 +

 

[treza88]

Re : Aide sur code vba

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

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

 

[THIERRY35]

Re : Aide sur code vba

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


Merci, c'est parfait

A +