Liste déroulante

[Kersijus]

Bonjour à tous,

Je souhaiterais pouvoir récupérer la valeur d'une liste déroulante et la modifier via une macro. Est-ce possible ?

Par avance merci.

Cordialement.

 

[job75]

Re : Liste déroulante

Bonjour Kersijus,

Exemple à adapter éventuellement :

Sub Zonecombinée1_QuandChangement()
Dim cf As ControlFormat, cel As Range, t$
With Feuil1 'CodeName de la feuille
  Set cf = .Shapes("Drop Down 1").ControlFormat
  Set cel = .Range(cf.ListFillRange).Cells(cf.ListIndex)
End With
t = InputBox("Entrez le nouveau nom :", "Modifier '" & cel & "'")
If t <> "" Then cel = t
End Sub

A+

 

[job75]

Re : Liste déroulante

Re,

Plutôt que d'affecter la macro à la Zone combinée, l'affecter à un bouton ou mieux, la lancer par un raccourci clavier.

A+

 

[Kersijus]

Re : Liste déroulante

Merci pour votre aide. Néanmoins, sans vouloir abuser votre gentillesse, ne peut-on pas récupérer directement la valeur de la liste déroulante sans passer par les cellules qu'il utilise*? Via une formule du style*:

cf = Feuil1.Shapes("Drop Down 1").ControlFormat.Text

 

[job75]

Re : Liste déroulante

Re,

Ca vous arrive de tester des codes VBA ???

Si j'utilise l'objet cel c'est parce qu'au poste #1 vous dites vouloir modifier la valeur de la liste.

Maintenant si vous voulez seulement connaître la valeur :

'-----
  valeur = .Range(cf.ListFillRange).Cells(cf.ListIndex)
  MsgBox valeur 'pour tester

A+

 

[job75]

Re : Liste déroulante

Re,

Notez quand même qu'à la place de Cells(cf.ListIndex) on peut utiliser Cells(cf.Value) ou même Cells(cf).

A+

 

[job75]

Re : Liste déroulante

Re,

Bon allez, plus simple :

Sub Zonecombinée1_QuandChangement()
Dim cf As ControlFormat, cel As Range, t$
With Feuil1 'CodeName de la feuille
  Set cf = .Shapes("Drop Down 1").ControlFormat
  Set cel = .Range(cf.ListFillRange)(cf)
End With
t = InputBox("Entrez le nouveau nom :", "Modifier '" & cel & "'")
If t <> "" Then cel = t
End Sub

A+

 

[Kersijus]

Re : Liste déroulante

Rebonjour,

Oui désolé, j'avais besoin des deux mais séparément. En fait je voulais surtout me défaire du «*.Range(cf.ListFillRange).Cells(cf.ListIndex)*» (les listes sont sur des feuilles séparées). J'ai utilisé la méthode suivante du coup*:

    Set cf = Feuil1.Shapes("Drop Down 1").ControlFormat
    MsgBox cf.List(cf.ListIndex)