Utiliser une toupie

[mcj1997]

Bonjour,

Question dans la PJ,

Merci d'avance

 

[poilamonnez]

Re : Utiliser une toupie

Bonsoir

Ci-joint

Regarde la pièce jointe TOUPIE.xls

Cordialement

 

[mcj1997]

Re : Utiliser une toupie

merci
bonne soirée

 

[mcj1997]

Re : Utiliser une toupie

ou rentrez vous les infos en colonnes a ?

 

[poilamonnez]

Re : Utiliser une toupie

re

ou rentrez vous les infos en colonnes a ?

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

 

[mcj1997]

Re : Utiliser une toupie

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

Bonjour,

Dans le fichier toupie poste 2,
Je souhaite avoir en G2 : Synthèse janvier si mois de janvier en C2, Synthèse février si mois de février en C2 ,,,,,,,

Merci d'avance

 

[Si...]

Re : Utiliser une toupie

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)

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 = 11
    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.

 

[mcj1997]

Re : Utiliser une toupie

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)

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.

Je pensais plutôt à une fonction SI et RECHERCHE qui irait chercher dans une colonne mois, celui en fonction de la case semaine.

 

[mcj1997]

Re : Utiliser une toupie

Personne pour résoudre mon problème ?