hELP LISTE DEROULANTE

[Ilino]

Bonsoir forum
Ci-joint un fichier ou je vous sollicite a m’aider pour régler la programmation d’une liste déroulante dans les colonnes C et E (lieux et présidé), je l’ai déjà fait dans la colonne A (réunion) mais je n’ai pas arrivé à le mettre dans les deux colonnes
Merci par avance.

 

[gfortin9]

Re : hELP LISTE DEROULANTE

Allô!

J'aime bien la façon que tu as composé ces listes déroulantes.

C'est dépanné pour les trois colonnes.

Examine cela, si ça te convient.

G

 

[hbenalia]

Re : hELP LISTE DEROULANTE

Bonjour à tous,

Les codes dans le fichier ont été transformés et en raison des erreurs dans mon office 2007 avec les fichiers *.xlsm, les codes transformés sont comme suit:

* Code de la feuille "Feuil1":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Range("A9:A20"), Target) Is Nothing Then
        Call cre_menu
    End If
    If Target.Count > 2 Then Exit Sub
    If Not Intersect(Range("C9:C20"), Target) Is Nothing Then
        Call cre_menu_1
    End If
    If Target.Count > 3 Then Exit Sub
    If Not Intersect(Range("E9:E20"), Target) Is Nothing Then
        Call cre_menu_2
    End If
End Sub

* Codes du module 1 :

Public cb As CommandBar
Sub cre_menu()
    Dim liste As Range
    Set liste = Range("liste")
    If liste.Column > 1 Then Exit Sub
    Dim i As Long, nbl As Long
    
    On Error Resume Next
    CommandBars("Menu_Gw").Delete
    On Error GoTo 0
    
    Set cb = Application.CommandBars.Add("Menu_Gw", msoBarPopup)
    nbl = liste.Count
    For i = 1 To nbl
        With cb.Controls.Add(msoControlButton, 1, , , True)
            .Caption = liste(i)
            .OnAction = "gw_lance(" & i & ")"
        End With
    Next i
    cb.ShowPopup
End Sub
Sub cre_menu_1()
    Dim liste As Range
    Set liste1 = Range("liste1")
    If liste1.Column > 2 Then Exit Sub
    Dim i As Long, nbl1 As Long
    
    On Error Resume Next
    CommandBars("Menu_Gw").Delete
    On Error GoTo 0
    
    Set cb = Application.CommandBars.Add("Menu_Gw", msoBarPopup)
    nbl1 = liste1.Count
    For i = 1 To nbl1
        With cb.Controls.Add(msoControlButton, 1, , , True)
            .Caption = liste1(i)
            .OnAction = "gw_lance(" & i & ")"
        End With
    Next i
    cb.ShowPopup
End Sub
Sub cre_menu_2()
    Dim liste As Range
    Set liste2 = Range("liste2")
    If liste2.Column > 3 Then Exit Sub
    Dim i As Long, nbl2 As Long
    
    On Error Resume Next
    CommandBars("Menu_Gw").Delete
    On Error GoTo 0
    
    Set cb = Application.CommandBars.Add("Menu_Gw", msoBarPopup)
    nbl2 = liste2.Count
    For i = 1 To nbl2
        With cb.Controls.Add(msoControlButton, 1, , , True)
            .Caption = liste2(i)
            .OnAction = "gw_lance(" & i & ")"
        End With
    Next i
    cb.ShowPopup
End Sub

Sub gw_lance(index As Long)
    ActiveCell = cb.Controls(index).Caption
End Sub

Avec le fichier attaché (s'il n'y a pas d'erreurs), tu y trouveras toutes les transformations requises....

Cordialement

 

[gfortin9]

Re : hELP LISTE DEROULANTE

Allô!

Ma cellule n'avait pas tout compris. Merci pour m'avoir aider à comprendre 8- ))

G

 

[hbenalia]

Re : hELP LISTE DEROULANTE

Bonjour à tous,

Heureux de savoir qu'on comprenne sans rien expliquer...

Cordialement

 

[Ilino]

Re : hELP LISTE DEROULANTE

Bonsoir FORUM; bonsoir Fortin, bonsoir BENALIA
Un grand merci pour votre aide mes maitres.
molte grazie FORTIN e grazie infinite BENALIA

 

[gfortin9]

Re : hELP LISTE DEROULANTE

Bonjour à tous,
Heureux de savoir qu'on comprenne sans rien expliquer...
Cordialement

Allô!
Tu m'as fait réaliser qu'on peut avoir des noms utilisables sans qu'ils soient nécessairement attachés à une plage de cellules.
Je faisais F5 pour avoir la liste des noms ... elle était vide. C'est pour cela que j'ai utilisé une autre méthode.

Suite à ton intervention, je voulais comprendre les variables "liste" qui pour moi ne correspondaient à rien. J'ai enfin été dans l'onglet Formules (Excel 2010) Bouton Gesionnaires de noms.
Là, j'ai eu une révélation. 8- ))))

Merci pour avoir réveillé ma cellule. ;- ))

G