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

chaelie2015

XLDnaute Accro

• 26 Octobre 2023

• #2

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.

 

Pièces jointes

• BdD CEO V10 JOB OK du 25 10 2023.xlsm

  206.8 KB · Affichages: 1

Dernière édition: 26 Octobre 2023

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 27 Octobre 2023

• #3

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

 

Pièces jointes

• Centrer zone.png

  170.3 KB · Affichages: 10

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Octobre 2023

• #4

Bonsoir chaelie2015,

Le code de UserForm1 :

VB:

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.

 

Pièces jointes

• BdD CEO V10 JOB OK du 25 10 2023.xlsm

  216.3 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 27 Octobre 2023

• #5

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

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 27 Octobre 2023

• #6

job75 à dit:

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

Bonne nuit.

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif