besoin d'aide pour toupie

Jacques87

XLDnaute Accro

• 21 Octobre 2006

• #2

Re : besoin d'aide pour toupie

Bonjour,

Tu colles ce code dans ta feuille 1
Et tu en fais autant avec l'autre controle

Private Sub SpinButton1_SpinDown()
With ActiveSheet
.Range("B1").Value = .Range("B1").Value - 1
End With
End Sub

Cliquez pour agrandir...

et

Private Sub SpinButton1_SpinUp()
With ActiveSheet
.Range("B1").Value = .Range("B1").Value + 1
End With
End Sub

Cliquez pour agrandir...

Bon courage

 

Vote positif 0 Vote négatif

K

kika3

Guest

• 21 Octobre 2006

• #3

Re : besoin d'aide pour toupie

Encore merci à tous les 2
j'ai bien du mal a comprendre la formule mais en tous cas cela fonctionne
Bizz

 

Vote positif 0 Vote négatif

K

kika3

Guest

• 21 Octobre 2006

• #4

Re : besoin d'aide pour toupie

Désolé de revenir sur le sujet
comment faire pour que ma case mois ne varie que sur des chiffres de 1 à 12
amicalement

 

Vote positif 0 Vote négatif

K

kika3

Guest

• 21 Octobre 2006

• #5

Re : besoin d'aide pour toupie

je reviens sur mon selecteur de mois je voudrais pouvoir ne le faire varier que entre 1 et 12 à quel endroit faut il mettre cette condition
amicalement

 

Pièces jointes

• kika2.zip

  30.1 KB · Affichages: 20

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 21 Octobre 2006

• #6

Re : besoin d'aide pour toupie

salut Kika
Salut le fil

regardes ton fil d'hier je t'ai mis un fichier joint avec toupi
https://www.excel-downloads.com/threads/format-mise-en-forme-conditionnelle-jours-feries.69039/
pour la variation de 1 à 12 tu vas en propriété du touie et tu mets MAX 12 Min 1

Salutation

foufoudora

 

Pièces jointes

• calendrier.xls

  47 KB · Affichages: 107
• calendrier.xls

  47 KB · Affichages: 108
• calendrier.xls

  47 KB · Affichages: 106

Dernière édition: 21 Octobre 2006

Vote positif 0 Vote négatif

K

kika3

Guest

• 21 Octobre 2006

• #7

Re : besoin d'aide pour toupie

J'ai bien mis max 12 et min1 mais sur mon fichier cela ne fonctionne pas
amicalement

 

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 21 Octobre 2006

• #8

Re : besoin d'aide pour toupie

salut,
parce que ta toupie est gérée par la macro.*
essaye de shinter les macros.
quelques remarques sur ton fichier. Tu fais référence à beaucoup de cellules pour le calcul des jours. tu peux simplifier en mettant +1 pour le jour suivant.

concernat la toupie d'abord affiche la boite à outils contrôles dans Affichage/bare d'outis. tu clics sue l'icône avec un pictogramme d'équerre pour passer en mode création et tu modifies le MIN et le MAX

Salutations

Foufoudora

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 21 Octobre 2006

• #9

Re : besoin d'aide pour toupie

Bonjour kika3, vous les fousfous de ce fil, le forum,

J'ai, tout à l'heure, travaillé sur ton fichier... enfin voulu.....
Mais les feuilles sont protégées, le classeur est protégé... donc j'ai laissé tombé. Ce n'est pas comme cela que l'on peut travailler..

Et, et, les gachettes rapides sont rentrées en actions, je me suis donc garé.....😱

J'avais notamment utilisé la même méthode que Foufoudora et il n'y a aucun souci.

Alors, reposes la question en expliquant là où tu es et ce que tu fais....

Bon week-end.

Jean-Pierre

 

Vote positif 0 Vote négatif

K

kika3

Guest

• 21 Octobre 2006

• #10

Re : besoin d'aide pour toupie

ok désolé pour le verrouillage un oubli de ma part revoila ma version open

 

Pièces jointes

• kika3.zip

  20.7 KB · Affichages: 40

Vote positif 0 Vote négatif

Foufoudora

XLDnaute Occasionnel

• 21 Octobre 2006

• #11

Re : besoin d'aide pour toupie

Salut tout le monde

ci-joint ton fichier
tu nous dis quoi
un petit souci tu sélecionnes les cellules du premier Dimanche et tu appliques la couleur comme les autres. c'est une erreur de ma part. excuses moi
Salutations

Foufoudora

 

Pièces jointes

• KIKA.xls

  43 KB · Affichages: 89

Dernière édition: 21 Octobre 2006

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 21 Octobre 2006

• #12

Re : besoin d'aide pour toupie

Re,

avec : Private Sub SpinButton2_SpinUp()
Range("MoisCal") = Range("MoisCal") + 1
If Range("MoisCal") > 12 Then Range("MoisCal") = 1: Range("An") = Range("An") + 1
End Sub

A te lire,

Jean-Pierre

 

Vote positif 0 Vote négatif

K

kika3

Guest

• 21 Octobre 2006

• #13

Re : besoin d'aide pour toupie

alors là je dis MERCI un très grand merci à tous vos conseil
ca marche nickel
Bizz à tous mes prof

 

Vote positif 0 Vote négatif