Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Combobox

Combobox

5 réponses
Avatar
YANN24
Bonjour,
j'ai la synthaxe suivante pour ma combobox. Mais j'ai un petit hic.
Quand je suis en Administrateur, et que je veux revenir en "Résumé 2005" ou
2006, les feuilles qui ne doivent plus etre visible le restent. Comment faire?
merci d'avance.
YANN
-----------------
Private Sub combobox1_Click()
Select Case Me.ComboBox1.Value

Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
Unload Me

Case "Administrateur"
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With

End Select
End Sub
----------------
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Quelles feuilles ?
Cordialement.
Daniel
"YANN24" a écrit dans le message de news:

Bonjour,
j'ai la synthaxe suivante pour ma combobox. Mais j'ai un petit hic.
Quand je suis en Administrateur, et que je veux revenir en "Résumé 2005"
ou
2006, les feuilles qui ne doivent plus etre visible le restent. Comment
faire?
merci d'avance.
YANN
-----------------
Private Sub combobox1_Click()
Select Case Me.ComboBox1.Value

Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
Unload Me

Case "Administrateur"
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With

End Select
End Sub
----------------


Avatar
YANN24
Re,
en fait, quand je sélectionne au début "Résumé 2005", seule la feuille 4
s'affiche.
Si je sélectionne "Administrateur", toutes les feuilles sont visibles.
Si je veux repasser en "Résumé 2005", rien ne se passe (je voudrais que
seule la feuille 4 soit visible).
Donc il faut que je modifie mon code, mais comment?

je te remercie.
YANN


Bonjour.
Quelles feuilles ?
Cordialement.
Daniel
"YANN24" a écrit dans le message de news:

Bonjour,
j'ai la synthaxe suivante pour ma combobox. Mais j'ai un petit hic.
Quand je suis en Administrateur, et que je veux revenir en "Résumé 2005"
ou
2006, les feuilles qui ne doivent plus etre visible le restent. Comment
faire?
merci d'avance.
YANN
-----------------
Private Sub combobox1_Click()
Select Case Me.ComboBox1.Value

Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
Unload Me

Case "Administrateur"
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With

End Select
End Sub
----------------







Avatar
Daniel
Il faut masquer les autres.
Cordialement.
Daniel
"YANN24" a écrit dans le message de news:

Re,
en fait, quand je sélectionne au début "Résumé 2005", seule la feuille 4
s'affiche.
Si je sélectionne "Administrateur", toutes les feuilles sont visibles.
Si je veux repasser en "Résumé 2005", rien ne se passe (je voudrais que
seule la feuille 4 soit visible).
Donc il faut que je modifie mon code, mais comment?

je te remercie.
YANN


Bonjour.
Quelles feuilles ?
Cordialement.
Daniel
"YANN24" a écrit dans le message de
news:

Bonjour,
j'ai la synthaxe suivante pour ma combobox. Mais j'ai un petit hic.
Quand je suis en Administrateur, et que je veux revenir en "Résumé
2005"
ou
2006, les feuilles qui ne doivent plus etre visible le restent. Comment
faire?
merci d'avance.
YANN
-----------------
Private Sub combobox1_Click()
Select Case Me.ComboBox1.Value

Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
Unload Me

Case "Administrateur"
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With

End Select
End Sub
----------------









Avatar
PMO
Bonjour,

Essayez et adaptez le code suivant

'**********
Private Sub combobox1_Click()
Dim i&
Select Case Me.ComboBox1.Value
Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
For i& = 1 To Sheets.Count
If i& <> 4 Then Sheets(i&).Visible = xlSheetHidden
Next i&
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
For i& = 1 To Sheets.Count
If i& <> 5 Then Sheets(i&).Visible = xlSheetHidden
Next i&
Unload Me

Case "Administrateur"
For i& = 1 To Sheets.Count
Sheets(i&).Visible = xlSheetVisible
Next i&
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With
End Select
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange



Bonjour,
j'ai la synthaxe suivante pour ma combobox. Mais j'ai un petit hic.
Quand je suis en Administrateur, et que je veux revenir en "Résumé 2005" ou
2006, les feuilles qui ne doivent plus etre visible le restent. Comment faire?
merci d'avance.
YANN
-----------------
Private Sub combobox1_Click()
Select Case Me.ComboBox1.Value

Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
Unload Me

Case "Administrateur"
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With

End Select
End Sub
----------------


Avatar
YANN24
Salut,

j'ai essayer ta macro,mais malheureusement, ça ne fontionne pas, il me met :
"impossible de définir la propriété Visible de la classe Worksheet"
et il bloque sur :

ase "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
For i& = 1 To Sheets.Count
If i& <> 4 Then **********Sheets(i&).Visible = xlSheetHidden********
Next i&
Unload Me

Je te remercie si tu as un emodif à apporter.

YANN




Bonjour,

Essayez et adaptez le code suivant

'**********
Private Sub combobox1_Click()
Dim i&
Select Case Me.ComboBox1.Value
Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
For i& = 1 To Sheets.Count
If i& <> 4 Then Sheets(i&).Visible = xlSheetHidden
Next i&
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
For i& = 1 To Sheets.Count
If i& <> 5 Then Sheets(i&).Visible = xlSheetHidden
Next i&
Unload Me

Case "Administrateur"
For i& = 1 To Sheets.Count
Sheets(i&).Visible = xlSheetVisible
Next i&
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With
End Select
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange



Bonjour,
j'ai la synthaxe suivante pour ma combobox. Mais j'ai un petit hic.
Quand je suis en Administrateur, et que je veux revenir en "Résumé 2005" ou
2006, les feuilles qui ne doivent plus etre visible le restent. Comment faire?
merci d'avance.
YANN
-----------------
Private Sub combobox1_Click()
Select Case Me.ComboBox1.Value

Case "Résumé 2005"
ThisWorkbook.IsAddin = False
Sheets(4).Visible = True
Unload Me

Case "Résumé 2006"
ThisWorkbook.IsAddin = False
Sheets(5).Visible = True
Unload Me

Case "Administrateur"
With Me
.ComboBox1.Visible = False
With .TextBox1
.Visible = True
.SetFocus
End With
.Label1.Visible = True
End With

End Select
End Sub
----------------