OVH Cloud OVH Cloud

Liste déroulante menu validation positionnement dans la liste

7 réponses
Avatar
Jacques Gronier
Bonjour à Tous,
[Office Xp] ( Théoriquement à jour..)
Savez-vous comment faire pour qu'une liste déroulante générée par le menu
Validations se positionne sur le premier Item ?
D'avance Merci


--
Jacques

7 réponses

Avatar
ChrisV
Bonjour Jacques,

A défaut, tu pourrais utiliser une zone de liste déroulante de la BO
"Contrôles" puis associer le code correspondant:

Private Sub ComboBox1_GotFocus()
ComboBox1.ListIndex = 0
End Sub


ChrisV


"Jacques Gronier" a écrit dans le message de
news: #
Bonjour à Tous,
[Office Xp] ( Théoriquement à jour..)
Savez-vous comment faire pour qu'une liste déroulante générée par le menu
Validations se positionne sur le premier Item ?
D'avance Merci


--
Jacques




Avatar
Jacques Gronier
Merci beaucoup ChrisV,
Je prends cette soluce, bien qu'elle oblige à passer par la boite dialogue "
attention macros..."
Encore merci
Jacques
ChrisV wrote:
Bonjour Jacques,

A défaut, tu pourrais utiliser une zone de liste déroulante de la BO
"Contrôles" puis associer le code correspondant:

Private Sub ComboBox1_GotFocus()
ComboBox1.ListIndex = 0
End Sub


ChrisV


"Jacques Gronier" a écrit dans le message
de news: #
Bonjour à Tous,
[Office Xp] ( Théoriquement à jour..)
Savez-vous comment faire pour qu'une liste déroulante générée par le
menu Validations se positionne sur le premier Item ?
D'avance Merci


--
Jacques




Avatar
ChrisV
Re,

Reste toujours la possibilité, si le niveau d'alerte de sécurité des macros
doit être activé, de créer un certificat (avec SELFCERT.EXE)...


ChrisV


"Jacques Gronier" a écrit dans le message de
news:
Merci beaucoup ChrisV,
Je prends cette soluce, bien qu'elle oblige à passer par la boite dialogue
"

attention macros..."
Encore merci
Jacques
ChrisV wrote:
Bonjour Jacques,

A défaut, tu pourrais utiliser une zone de liste déroulante de la BO
"Contrôles" puis associer le code correspondant:

Private Sub ComboBox1_GotFocus()
ComboBox1.ListIndex = 0
End Sub


ChrisV


"Jacques Gronier" a écrit dans le message
de news: #
Bonjour à Tous,
[Office Xp] ( Théoriquement à jour..)
Savez-vous comment faire pour qu'une liste déroulante générée par le
menu Validations se positionne sur le premier Item ?
D'avance Merci


--
Jacques








Avatar
Jacques Gronier
Oui CHrisV,
mais malheureusement il existe toujours une incompatibilité entre 2000 et Xp
pour ce certificat qui génère une erreur fatale...
Encore Merci
Jacques

ChrisV wrote:
Re,

Reste toujours la possibilité, si le niveau d'alerte de sécurité des
macros doit être activé, de créer un certificat (avec SELFCERT.EXE)...


ChrisV


"Jacques Gronier" a écrit dans le message
de news:
Merci beaucoup ChrisV,
Je prends cette soluce, bien qu'elle oblige à passer par la boite
dialogue " attention macros..."
Encore merci
Jacques
ChrisV wrote:
Bonjour Jacques,

A défaut, tu pourrais utiliser une zone de liste déroulante de la BO
"Contrôles" puis associer le code correspondant:

Private Sub ComboBox1_GotFocus()
ComboBox1.ListIndex = 0
End Sub


ChrisV


"Jacques Gronier" a écrit dans le
message de news: #
Bonjour à Tous,
[Office Xp] ( Théoriquement à jour..)
Savez-vous comment faire pour qu'une liste déroulante générée par
le menu Validations se positionne sur le premier Item ?
D'avance Merci


--
Jacques








Avatar
AV
Savez-vous comment faire pour qu'une liste déroulante générée par le menu
Validations se positionne sur le premier Item ?


Avec une liste de validation en A1 faisant référence à un nom ("laListe")
Dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Address = "$A$1" Then [A1] = Range("laListe").Item(1)
End Sub

AV

Avatar
Jacques Gronier
Merci Beaucoup Alain,
Bonne journée
A propos pas d'idée pour mise à jour zone Filtrée sur Filtre auto? Fil de
Samedi?
Encore merci
Jacques
AV wrote:
Savez-vous comment faire pour qu'une liste déroulante générée par le
menu Validations se positionne sur le premier Item ?


Avec une liste de validation en A1 faisant référence à un nom
("laListe") Dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Address = "$A$1" Then [A1] = Range("laListe").Item(1)
End Sub

AV



Avatar
AV
A propos pas d'idée pour mise à jour zone Filtrée sur Filtre auto? Fil de
Samedi?


Heu ...je vois pas ce fil (et pas le temps de le chercher) !
Depuis samedi "ils" 'zont pas répondu ?
Va y a avoir des sanctions !

AV