Utiliser une toupie

mcj1997 à dit:

ou rentrez vous les infos en colonnes a ?

Cliquez pour agrandir...

poilamonnez à dit:

re



Affichage / barres d'outils / boites à outil controles

Cliquer sur l'equerre

puis en cliquant "bouton droite" sur le controle "toupie" faire propriétés

à la case "Linkedcell" mettre "D1", puis recliquer sur l'equerre

Cordialement

Cliquez pour agrandir...

Si... à dit:

salut Tous

Si... tu n'as pas de préférence, essaie plutôt une barre de défilement (sélection plus rapide de l'item)

Code:

Private Sub ScrollBar1_Change()
  Dim N As Byte
  ScrollBar1.Min = 2
  ScrollBar1.Max = Cells(Rows.Count, 1).End(xlUp).Row
  [C2] = Cells(ScrollBar1, 1)
  If [C2] = "" Then [G2] = "": Exit Sub
  Select Case Left([C2], 4)
    'ne pas enlever les espaces !
    Case "JANV": N = 1
    Case "FEV ": N = 2
    Case "MARS": N = 3
    Case "AVRI": N = 4
    Case "MAI ": N = 5
    Case "JUIN": N = 6
    Case "JUIL": N = 7
    Case "AOUT": N = 8
    Case "SEPT": N = 9
    Case "OCT ": N = 10
    Case "NOV ": N = 11J
    Case "DEC ": N = 12
  End Select
  [G2] = "Synthèse " & Application.Proper(MonthName(N))
End Sub

sinon, remplace "ScrollBar" par "SpinButton". Tu n'as plus besoin de la cellule liée.

Cliquez pour agrandir...