boutons ajout date et heure actuelle si la case est vide (excel)

Marsh Posté le 17-12-2014 à 19:44:24

Bonjour à tous !
J'ai chercher le moyen d'ajouter via un bouton le moyen d'ajouter la date actuelle ainsi que l'heure dans des cellules en fonction de la celle ci (vide ou non et de passé a la suivante si la première est pleine et ainsi de suite) mais mes compétences en excel (cad les bases avec des fonctions if vus il y a des années à l'école) se sont très vite montré insuffisante pour ce que je voulais faire, je sais donc que je vous demande l'entièreté d'une fonction pour excel mais ne connaissant pas la programmation (les bases du c+ vus quand j'avais 14 ans ne m'aident pas des masse..) je n'ai pas vraiment le choix donc libre a vous d'y répondre ou non et je comprendrai que ce soit pas le cas.

Le problème :
un liens tout d'abord de ce représente ma feuille sans la programmation

Spoiler :

J'explique le problème je souhaite dans le cadre de mon travail pouvoir via des boutons ajouter la date et l'heure du début de ma prestation sur un chantier(cellule A2/B2), avec un autre l'heure de fin du chantier (C2) avec la possibilité de passé a la ligne 3 si la ligne 2 est pleine et un dernier boutons qui permettrait d'effacer les colonnes A/B/C en dehors du A1/B1/C1 représentant les titres de mes colonnes. J'ai essayé avec une formule =HEURE(MAINTENANT(() mais ca refresh toute les cases avec la même formule et je ne sais pas comment transformer ça en bouton
Voila c'est en dehors des mes compétences et je vous remercie d'avoir lu mon pavé même si vous ne répondez pas ;-)
Bonne journée a tous !

Marsh Posté le 17-12-2014 à 19:44:24

Marsh Posté le 26-12-2014 à 13:53:14

Bonjour,

une fois le premier bouton créé, voici son code :

Code :

With Cells(Rows.Count, 1).End(xlUp)
If .Offset(, 2).Value = "" Then Beep Else .Offset(1).Resize(, 2).Value = Split(Now)
End With

Pour le second :

Code :

With Cells(Rows.Count, 2).End(xlUp).Offset(, 1)
If .Value > "" Then Beep Else .Value = Time
End With

Enfin pour le dernier :

Code :

Cells(1).CurrentRegion.Offset(1).ClearContents

Ne pas hésiter à utiliser le Générateur de macros, l'ami du débutant, et à consulter l'aide VBA intégrée !

Et sur le net, il y a des tutoriels pour se former …

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *