Formulaires 2

[ERICSP3C]

Bonsoir à tous,deuxieme

Les exceliens n'auront pas de problème pour régler ce qui en est un gros pour moi. Voila,Je souhaiterai associer un code oaci avec son véritable aérodrome sans le rechercher manuellement comme actuellement.
Dans l'onglet "Ville_Code", une colonne (A) Aérodrome de départ et la colonne B les codes oaci associés.(sur la même ligne)

Sur l'onglet planning, en cliquant sur le formulaire "aérodrome de départ", si je selectionne une ville,je voudrais voir apparraître sur le formulaire "code oaci", le code OACI de l'aérodrome.
Voila, C'est tout, en espérant ne pas être trop ridicule dans ma requête.

Cordialement Eric🙂

 

[Hervé]

Re : Formulaires 2

bonsoir

en piece jointe une ebauche.

j'arrive à recupérer le code OACi suivant le choix dans la "combobox", mais j'arrive pas à le renvoyer dans le "combobox" suivant. Je cherche encore

surement quelqu'un sera faire sur le forum.

ce serait plus facile d'utiliser des combobox de la boites à outils controls.

salut

 

[ERICSP3C]

Re : Formulaires 2

Bonsoir Hervé,
Je te remercie pour ta macro, elle me satisfait pleinement, car je ne peux pas, avec ce message, me "gourer"de code OACI. Merci de ton aide.
Bonne soirée.
Eric

 

[Hervé]

Re : Formulaires 2

bonjour

de rien 🙂

si tu veux simplement avoir la boite de dialogue avec le code OACI, tu peux simplifier la macro toto comme ceci :

Public Sub toto()
Dim c As Range
Dim nomcbx As String
Dim valeur As String

nomcbx = Application.Caller
valeur = ActiveSheet.Shapes(nomcbx).ControlFormat.List(ActiveSheet.Shapes(nomcbx).ControlFormat.ListIndex)

With Sheets("Ville_Codes")
    For Each c In .Range("a2:a" & .Range("a65536").End(xlUp).Row)
        If c.Value = valeur Then
            MsgBox c.Offset(0, 1).Text
        End If
    Next c
End With


End Sub

et supprimer la fonction numerique() devenu inutile.

salut

 

[ERICSP3C]

Re : Formulaires 2

Merci bien Hervé pour ton aide,
Bonne soirée,
Eric