Discussion :

[Balfurusse]

Bonjour à tous, nous avons des feuilles de temps et j'aimerais pouvoir augmenter ou diminuer de 1 minutes au clic d'un bouton une fois la cellule sélectionnée. mes champs d'heure(4 cellules une à coté de l'autre) seront remplis par défaut pour une journée disont: C8=7:30 D8=12:00 E8=12:30 F8=15:45 et moi je voudrais sélectionner une cellule, disont dans mon exemple C8, clic dessus et pèse sur une bouton pour la faire changer a 7:31(quitte a peser 3 fois dessus pour la faire changer a 7:33).

Je sais que j'ai de quoi en code comme target = target + 1/24/60, mais j'arrive pas a mettre ca dans un bouton dans les liens rapides. Le bouton devrait être dans les liens rapide en haut et non sur la feuille car je ne peux pas y toucher.

Des idées?

Merci beaucoup

Balfu

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub IncrementerUneMinute()
 
  With ActiveCell
       .Value = CDate(.Value) + (1 / 1440)
  End With
 
End Sub

[Balfurusse]

Un gros merci c'est exactement ça que je voulais. Maintenant comment je fais pour prendre ton bouton dans la zone de lancement rapide et le mettre dans mon Excel a moi sur mon fichier? Je ne maîtrise pas cet aspect. En sachant ca je me ferai un autre bouton pour faire -1 minute.

[unparia]

Bonjour à tous

S'affranchir d'une division et utiliser TimeValue("00:01") ne serait pas une mauvaise idée.

Ceci étant dit : j'espère que les cellules concernées contiennent une date-heure et non simplement une heure (auquel cas Excel se perdrait au passage d'un jour à l'autre, par exemple en ajoutant 1 minute à la seule heure -sans date, donc- 23:59)

[Invité]

Bonjour,

Pièce jointe 425052

Pièce jointe 425059

Pièce jointe 425056

[Balfurusse]

Merci des Informations,

pour UNPARIA ca ne sera pas un problème pour le changement de jour, mais merci de l'avertissement.

pour Eric KERGRESSE, c'est parfait, exactement ce que je cherchais. Un gros merci a toi. J'ai déja fait mes 2 boutons et ca fonctionne.

Balf