Comment insérer un horodatage dans une cellule si une case à cocher est cochée dans Excel ?

Normalement, vous entrez un horodatage en utilisant des raccourcis clavier dans Excel. Qu'en est-il d'insérer un horodatage dans une cellule en utilisant une case à cocher dans Excel ? Lorsque la case est cochée, l'horodatage est automatiquement inséré dans une cellule spécifiée. Cet article vous aidera à résoudre ce problème.

Insérer un horodatage dans une cellule si une case à cocher est cochée avec du code VBA

Insérer un horodatage dans une cellule si une case à cocher est cochée avec du code VBA

Cette section présentera un script VBA pour vous aider à insérer automatiquement un horodatage dans une cellule si une case à cocher est cochée dans Excel. Veuillez suivre les étapes ci-dessous.

1. Après avoir inséré une case à cocher, appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA : Insérer un horodatage dans une cellule si une case à cocher est cochée

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

3. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

4. Faites un clic droit sur la case à cocher, puis sélectionnez Attribuer une macro dans le menu contextuel. Voir capture d'écran :

5. Dans la boîte de dialogue Attribuer une macro, sélectionnez CheckBox_Date_Stamp dans la zone Nom de la macro, puis cliquez sur le bouton OK. Voir capture d'écran :

Lorsque vous cochez la case, l'horodatage sera automatiquement inséré dans la cellule adjacente.

Articles connexes :

• Comment changer la valeur ou la couleur d'une cellule spécifique lorsque la case à cocher est cochée dans Excel ?
• Comment mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel ?
• Comment cocher une case à cocher en fonction de la valeur d'une cellule dans Excel ?
• Comment filtrer des données en fonction d'une case à cocher dans Excel ?
• Comment masquer une case à cocher lorsque la ligne est masquée dans Excel ?
• Comment créer une liste déroulante avec plusieurs cases à cocher dans Excel ?