XL 2019 Assigner une valeur dans une combobox à partir du caption d'un button command

sylvanu à dit:

Bonjour Mallow, et bienvenu sur XLD,
Qu'entendez vous par "réaliser un "plan" de toutes mes parcelles" ?
Est ce à terme d'avoir un dessin avec toutes vos parcelles ?
Si oui, avec 85 parcelles, l'utilisation d'un userform n'est peut être pas la meilleure solution, il vaudrait peut être mieux passer par une feuille qui remplirait la même fonction, et serait plus simple à gérer.
Un peu comme une carte des départements ( voir PJ ).
Entre 96 départements et 85 parcelles, on doit pouvoir avoir la même approche.
( le tout est d'avoir un plan séparé de chaque parcelle. )

Cliquez pour agrandir...

mallow2000 à dit:

Bonjour,

J'aurai besoin de votre aide. Tout d'abord je ne sais pas si c'est possible mais j'essaye. Je souhaiterai assigner un choix dans une combobox ou dans une textbox dans un userform à partir d'un button command dans un autre userform.

le FRMPARCELLE n'est pas du tout fini, c'est juste pour un test.
Je souhaiterai que en cliquant sur le BTNLAMAIRIE du FRMPARCELLE (Accessible en cliquant sur le BTNPARCELLE du FRMSAISIEINTERVENTION), la valeur LA MAIRIE s'affiche dans la CBOPARCELLE du FRMSAISIEINTERVENTION.
La valeur "La mairie" fait référence à la cellule B4 de ma feuil3 "LISTES".
Au final je souhaiterai dans le FRMPARCELLE réaliser un "plan" de toutes mes parcelles pour pouvoir renseigner par un clic le nom de la parcelle dans la CBOPARCELLE du FRMSAISIEINTERVENTION (ou peut-être plus simple avec une TEXTBOX). J'ai 85 parcelles, et ce serait plus simple que de sélectionner dans une Combobox car je ne connaît pas leur nom par coeur.

Est-ce que quelqu'un pourrait m'aider ?

Je joint le fichier.

Cordialement

Cliquez pour agrandir...

Private Sub BTNLAMARIE_Click()
Dim i
    For i = 0 To FRMSAISIEINTERVENTION.CBOPARCELLE.ListCount
        If FRMSAISIEINTERVENTION.CBOPARCELLE.List(i) = Worksheets("LISTES").ListObjects("TPARCELLE").DataBodyRange.Cells(1, 1) Then
            FRMSAISIEINTERVENTION.CBOPARCELLE.ListIndex = i
            Exit For
        End If
    Next
    Unload FRMPARCELLE
End Sub

Gégé-45550 à dit:

Bonjour,
Code à insérer dans l'évènement Click du BTNLAMARIE

VB:

Private Sub BTNLAMARIE_Click()
Dim i
    For i = 0 To FRMSAISIEINTERVENTION.CBOPARCELLE.ListCount
        If FRMSAISIEINTERVENTION.CBOPARCELLE.List(i) = Worksheets("LISTES").ListObjects("TPARCELLE").DataBodyRange.Cells(1, 1) Then
            FRMSAISIEINTERVENTION.CBOPARCELLE.ListIndex = i
            Exit For
        End If
    Next
    Unload FRMPARCELLE
End Sub

Cordialement,

Cliquez pour agrandir...

DataBodyRange.Cells(1, 1)

Cliquez pour agrandir...

DataBodyRange.Cells(1, 2)

Cliquez pour agrandir...

mallow2000 à dit:

Merci beaucoup. Si j'ai 10 boutons comme celui-ci, est-ce que j'ai juste à modifier cette partie là du code ?



Exemple, pour la deuxième ligne de ma CBOPARCELLE,


Merci

Cliquez pour agrandir...

DataBodyRange.Cells(2, 1)