Discussion :

[The_Pil]

Bonjour à Vous ! En amateur sur EXCEL, j'ai préparé un fichier qui doit m'aider à organiser un tournoi de pétanque (en pure amateur)
J'aimerais qu'à partir d'une case à cocher, une macro déplace le curseur de X colonnes vers la droite et y entre l'heure du moment où je coche la case.
en fait une case à cocher me dit que la partie est commencée et me rentre l'heure du début de la partie, une autre case à cocher me dit que la partie est terminée à l'heure à laquelle elle se temine. je souhaite qu'en cochant la case ... l'heure s'indique (Ctrl quelques colonnes plus à droite de ma case à cocher.
Cela ne doit pas être très compliqué mais je ne sais pas programmer en VBA.
Si quelqu'un peut m'aider pour cette première demande ... - j'en aurai peut être l'une ou l'autre encore ...
Vous remerciant d'avance.

[Guy7700]

Bonjour,

Crée 2 cases à cocher, l'une que tu nommes "chkDebutPartie" l'autre "chkFinPartie" par exemple.

Ensuite, tu crées un nouveau module où tu colles ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub chkDebutPartie_Click()
    ' Vérifiez si la case à cocher est cochée
    If ActiveSheet.CheckBoxes("chkDebutPartie").Value = 1 Then
        ' Déplacez le curseur de X colonnes vers la droite à partir de la position actuelle
        ActiveCell.Offset(0, 3).Value = Time ' Remplacez 3 par le nombre de colonnes que vous souhaitez décaler
    End If
End Sub
 
Sub chkFinPartie_Click()
    ' Vérifiez si la case à cocher est cochée
    If ActiveSheet.CheckBoxes("chkFinPartie").Value = 1 Then
        ' Déplacez le curseur de X colonnes vers la droite à partir de la position actuelle
        ActiveCell.Offset(0, 3).Value = Time ' Remplacez 3 par le nombre de colonnes que vous souhaitez décaler
    End If
End Sub

Enfin, clique à nouveau sur chaque case à cocher, fais un clic droit, sélectionne affecter une macro, et assure-toi que la macro correspondante est bien associée (chkDebutPartie_Click pour la case de début, et chkFinPartie_Click pour la fin).

Je te joins le fichier sur lequel j'ai testé ça avant de te répondre. Il faudra probablement que tu l'adaptes à ton fichier mais tu as tous les outils en main pour y arriver désormais.

Bien cordialement,

Heures début-fin.xlsm

[The_Pil]

Merci Guy7700 - c'est gentil de m'aider.
Je bute sur des bétises par manque de connaissance, je m'en excuse par avance mais :
- je n'arrive pas à donner un nom à la case à cocher
- j'arrive à mettre une case à cocher par le bouton insertion du ruban et non le "insérer" du groupe développeur (qui n'est pas "allumé")
- quand je clique droit, je n'ai pas de possibilité d'avoir les propriétés du contrôle ...
enfin,comment affectez vous la macro à la case à cocher.
Je me rends compte de mes questions qui doivent vous sembler basiques ...
Merci encore.
The Pil.

Ce matin ... un peu plus au calme, je constate :
- quand j'ouvre une nouvelle feuille xls, dans le "développeur" j'ai bien le bouton insérer qui est actif et une fois la case à cocher introduite, un clic droit me donne les propriétés du controle .. avec l'assignation possible de la macro .. par contre, pour le nom à introduire... est-ce le "texte de remplacement" ?
Par contre, le mystère pour moi est de savoir pourquoi ma feuille du concours ne présente pas l'actif de ce bouton "insérer" dans le développeur.
Si vous pouvez avoir une idée à ce sujet. Merci d'avance et bonne journée.

[Guy7700]

Bonjour,

Je vous ai envoyé un message privé à ce sujet. Je vais prendre quelques captures d'écran pour vous guider, je ferai cela demain car c'est férié et j'aurai un peu de temps devant moi

Cordialement,