XL 2013 (RESOLU) Afficher zone au milieu de la feuille selon la valeur de combobox

[chaelie2015]

Bonjour Forum
Sur la feuille 'BdD CEO' d'Excel, j'ai créé 50 zones (plages) que j'ai nommées de 'Zone_Lot_01' à 'Zone_Lot_50', correspondant respectivement aux éléments de ma combobox (Lot_01, Lot_02 jusqu'à Lot_50). Mon objectif est d'afficher la zone en fonction de l'élément sélectionné dans la combobox (combobox1 dans un userform) au milieu de la feuille active (BdD CEO')mais sans masuquer les autres qui sont affiché.
MERCI

 

[chaelie2015]

Bonsoir Forum
Permettez-moi de réexpliquer mon problème en utilisant un fichier de test. Mon objectif est de centrer une plage, nommée 'Zone_Lot_XX'( xx varie de 01 a 50) , dans la feuille 'BdD CEO' en fonction de la sélection faite dans la combobox d'un userform. Par exemple, si je choisis 'Lot_05' dans la combobox, la plage 'Zone_Lot_05' sera centrée au milieu de la feuille.
Cliquer sur le bouton Orange
Merci.

 

[chaelie2015]

Re
Voici l'image que nous désirons pour chaque zone.

 

[job75]

Bonsoir chaelie2015,

Le code de UserForm1 :

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Application.Goto Rows(4).Find(ComboBox1, , xlValues, xlWhole).Offset(-3), True: ActiveCell(4).Select
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim i%, x$, j%
Sheets("BdD CEO").Activate
For i = 1 To 50
    x = "Lot_" & Format(i, "00")
    j = Application.Match(x, Rows(4), 0)
    If Columns(j).Hidden Then Exit For
    ComboBox1.AddItem x
Next
End Sub

Cela dit c'est un gadget dont on peut se passer.

Bonne nuit.

 

[chaelie2015]

Bonsoir Job75
C'est excellent, je vous remercie, job75.
Bonne nuit

 

[chaelie2015]

Cela dit c'est un gadget dont on peut se passer.

Bonne nuit.

Re
J'ai envisagé cette approche car lorsque j'aurai 30 lots par exemple, il sera plus efficace de naviguer vers la zone rapidement et effectuer des modifications dans la colonne 'attribution', et également de comparer rapidement les zones entre elles.
A+