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 Liste déroulante

Liste déroulante

3 réponses
Avatar
EG
Lorsque je clique sur le bouton (code ci-bas), la fl=E8che=20
de la bande d=E9roulante est visible. Si je clique=20
directement sur la fl=E8che de la bande d=E9roulante sans=20
avoir cliquer ailleurs dans la feuille, un message=20
d'erreur appara=EEt et l'application se ferme. Que dois-je=20
faire pour que la fl=E8che de la bande d=E9roulante ne soit=20
pas visible pour =E9viter que l'application se ferme.

=C0 faire dans la feuille 1 d'un nouveau classeur

Inscrire dans la feuille 1 =E0 la colonne
E1 =E0 E4 du texte.

Ajouter un bouton et ajouter le code suivant.

Option Explicit

Private Sub CommandButton1_Click()
Dim strListe As String

Feuil1.Range("E8").Select
ActiveWorkbook.Names("ListeNombre").Delete
strListe =3D "=3DFeuil1!$E$1:$E$4"
ActiveWorkbook.Names.Add "ListeNombre", strListe
CreerListe "=3DListeNombre"
Feuil1.Range("A1").Select

End Sub

Public Sub CreerListe(strNom As String)

'Cr=E9ation de la liste d=E9roulante
ActiveCell.Select
With Selection.Validation
.Delete
.Add Type:=3DxlValidateList, _
AlertStyle:=3DxlValidAlertStop, _
Operator:=3DxlBetween, _
Formula1:=3DstrNom
.IgnoreBlank =3D True
.InCellDropdown =3D True
.InputTitle =3D ""
.ErrorTitle =3D ""
.InputMessage =3D ""
.ErrorMessage =3D ""
.ShowInput =3D True
.ShowError =3D True
End With
=20
End Sub

N.B.: Enregistrer tout vos fichiers avant de cliquer sur=20
le bouton.
Signaler un problème avec ce contenu

3 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
Joël
Bonsoir,

Je n'ai pas le problème !!!

Sur quelle version d'excel es-tu ?

--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"EG" a écrit dans le message de news:
003f01c39a42$f698e480$
Lorsque je clique sur le bouton (code ci-bas), la flèche
de la bande déroulante est visible. Si je clique
directement sur la flèche de la bande déroulante sans
avoir cliquer ailleurs dans la feuille, un message
d'erreur apparaît et l'application se ferme. Que dois-je
faire pour que la flèche de la bande déroulante ne soit
pas visible pour éviter que l'application se ferme.

À faire dans la feuille 1 d'un nouveau classeur

Inscrire dans la feuille 1 à la colonne
E1 à E4 du texte.

Ajouter un bouton et ajouter le code suivant.

Option Explicit

Private Sub CommandButton1_Click()
Dim strListe As String

Feuil1.Range("E8").Select
ActiveWorkbook.Names("ListeNombre").Delete
strListe = "þuil1!$E$1:$E$4"
ActiveWorkbook.Names.Add "ListeNombre", strListe
CreerListe "=ListeNombre"
Feuil1.Range("A1").Select

End Sub

Public Sub CreerListe(strNom As String)

'Création de la liste déroulante
ActiveCell.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=strNom
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

End Sub

N.B.: Enregistrer tout vos fichiers avant de cliquer sur
le bouton.
Avatar
Joël
Re-Bonsoir,

Bon d'accord, le problème apparaît sur Excel 97...
Ajout ces 2 lignes à la fin de ta première procédure

ActiveWindow.LargeScroll Down:=4
ActiveWindow.LargeScroll Up:=4

ça devrait le faire !!! question de rafraichissement d'écran !

--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"EG" a écrit dans le message de news:
003f01c39a42$f698e480$
Lorsque je clique sur le bouton (code ci-bas), la flèche
de la bande déroulante est visible. Si je clique
directement sur la flèche de la bande déroulante sans
avoir cliquer ailleurs dans la feuille, un message
d'erreur apparaît et l'application se ferme. Que dois-je
faire pour que la flèche de la bande déroulante ne soit
pas visible pour éviter que l'application se ferme.

À faire dans la feuille 1 d'un nouveau classeur

Inscrire dans la feuille 1 à la colonne
E1 à E4 du texte.

Ajouter un bouton et ajouter le code suivant.

Option Explicit

Private Sub CommandButton1_Click()
Dim strListe As String

Feuil1.Range("E8").Select
ActiveWorkbook.Names("ListeNombre").Delete
strListe = "þuil1!$E$1:$E$4"
ActiveWorkbook.Names.Add "ListeNombre", strListe
CreerListe "=ListeNombre"
Feuil1.Range("A1").Select

End Sub

Public Sub CreerListe(strNom As String)

'Création de la liste déroulante
ActiveCell.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=strNom
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

End Sub

N.B.: Enregistrer tout vos fichiers avant de cliquer sur
le bouton.
Avatar
Merci, ça fonctionne!
-----Message d'origine-----
Re-Bonsoir,

Bon d'accord, le problème apparaît sur Excel 97...
Ajout ces 2 lignes à la fin de ta première procédure

ActiveWindow.LargeScroll Down:=4
ActiveWindow.LargeScroll Up:=4

ça devrait le faire !!! question de rafraichissement
d'écran !


--


Bien Cordialement

Joël GARBE
+33 6 60 58 20 68

"EG" a écrit dans le message de news:
003f01c39a42$f698e480$
Lorsque je clique sur le bouton (code ci-bas), la flèche
de la bande déroulante est visible. Si je clique
directement sur la flèche de la bande déroulante sans
avoir cliquer ailleurs dans la feuille, un message
d'erreur apparaît et l'application se ferme. Que dois-je
faire pour que la flèche de la bande déroulante ne soit
pas visible pour éviter que l'application se ferme.

À faire dans la feuille 1 d'un nouveau classeur

Inscrire dans la feuille 1 à la colonne
E1 à E4 du texte.

Ajouter un bouton et ajouter le code suivant.

Option Explicit

Private Sub CommandButton1_Click()
Dim strListe As String

Feuil1.Range("E8").Select
ActiveWorkbook.Names("ListeNombre").Delete
strListe = "þuil1!$E$1:$E$4"
ActiveWorkbook.Names.Add "ListeNombre", strListe
CreerListe "=ListeNombre"
Feuil1.Range("A1").Select

End Sub

Public Sub CreerListe(strNom As String)

'Création de la liste déroulante
ActiveCell.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:=strNom
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

End Sub

N.B.: Enregistrer tout vos fichiers avant de cliquer sur
le bouton.


.