Formulaire toupie pour les heures par minute

[laeti95]

Bonjour le forum,

j'ai dans une cellule des heures de fin de journée
exemple 17:33

J'aimerais y mettre une toupie formulaire pour faire avancer chaque clic d'une minute, j'ai essyer avec le ruban développeur mais cela fonctionne pas, merci d'avance à vous ;-)
Laeti

 

[camarchepas]

Re : Formulaire toupie pour les heures par minute

Voici donc ,

Il faut bien prendre l'objet toupie dans ce menu.

Par contre la gestion se fait en vba .

Faire un clic touche droite souris sur le nom de l'onglet pour voir le code trés simple d'ailleur.

Une astuce est de définir la cellule en heure comme cela la gestion des secondes , minutes heures est automatique.

Ah oui , là j'incremente en seconde, il faudra multiplier par 100 l'incrément pour incrementer en minutes

 

[camarchepas]

Re : Formulaire toupie pour les heures par minute

Comme le sujet parlait de minutes ,


Voici donc l'adaptation

 

[laeti95]

Re : Formulaire toupie pour les heures par minute

Bonjour Camarchepas, merci mais cela change pas par minute cela change par 2 minutes des fois et moi j'aimerais à chaque clic que cela change 1 minute
J'ai essayé avec des nombres simple entier cela fonctionne mais pas avec des minutes...

Comment le créer avec des minutes ?

A+

Laeti

 

[camarchepas]

Re : Formulaire toupie pour les heures par minute

Bonjour ,

Et oui en effet un peut trop approssimatif mon increment, juste un essai ou 2 qui étaient bon.

Voici , aprés recherche sur la toile

l'increment à utiliser est : 0.000694444

 

[mécano41]

Re : Formulaire toupie pour les heures par minute

Bonjour,

Chez moi, le fichier donné au message #3 par CAMARCHEPAS fonctionne parfaitement. Un clic ajoute ou retranche 1 minute et une action continue fait défiler les minutes dans un sens ou dans l'autre...

Cordialement

 

[Modeste geedee]

Re : Formulaire toupie pour les heures par minute

Bonsour®
l'utilisation d'un spinbutton est superfétatoire, il n'est aucunement tenu compte de la valeur !
l'utilisation de deux objets séparés(bouton ou image) aurait le même effet !

Private Sub SpinButton1_SpinDown()
Range("H4") = Range("H4") + TimeValue("00:01")
End Sub

Private Sub SpinButton1_SpinUp()
If Range("H4") > TimeValue("00:01") Then Range("H4") = Range("H4") - TimeValue("00:01")
End Sub

 

[Victor21]

Re : Formulaire toupie pour les heures par minute

Bonjour, camarchepas.

l'increment à utiliser est : 0.000694444

En effet une minute équivaut à un 1440ème de jour 🙂

 

[camarchepas]

Re : Formulaire toupie pour les heures par minute

Bonjour à tous ,

Merci Patrick pour cette confirmation.

 

[Victor21]

Re : Formulaire toupie pour les heures par minute

Bonjour lézamis.

Avec un contrôle de formulaire (sans macro) ?

 

[mapomme]

Re : Formulaire toupie pour les heures par minute

Bonjour à tous,

Un autre essai avec une saisie directe dans les cellules. Les heures sont à saisir en nombre décimal (7 -> 07:00; 07,00->07:00; 7,04 -> 07:04; 7,4 -> 07:40). Une MFC détecte si l'heure de début est supérieure ou égale à l'heure de fin.

Le code est dans le module de Feuil1:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y, z, sepdec, sp
  
  Application.EnableEvents = False
  Select Case Target.Address(0, 0)
    Case "F4", "G4"
      If IsNumeric(Target.Value) And Target.Value > 0 Then
        sepdec = Mid(1.1, 2, 1): x = Target.Value & sepdec
        sp = Split(x, sepdec)
        y = Val("0" & sp(0))
        z = Val("0" & Left(sp(1) & "0", 2))
        If y >= 0 And y <= 23 And z >= 0 And z <= 59 Then
          Target = CDbl(60 * y + z) / 24 / 60
        Else
          Target = CVErr(2015): Beep
        End If
      End If
  End Select
  Application.EnableEvents = True
End Sub

 

[laeti95]

Re : Formulaire toupie pour les heures par minute

Bonsoir le forum et Mapomme,

Mapomme merci pour ta réponse mais le VBA c'est nouveau pour moi et pas facile à appliquer sur mon tableau.....

J'ai pris la solution à Victor21 mais j'ai du modifier pas mal de chose, je pensais faire plus simple comme avec un chiffre et que cela change automatiquement mais pas facile.....

Mais MERCI à toutes et tous. MERCI

Laeti