Discussion :

[ddanie]

Bonjour,

Je rentre une date dans la cellule C2 et je souhaiterais déclencher une macro au moment où je fais Enter. Est-ce possible ?
Pour l'instant je rentre la date ensuite j'appuie sur un bouton qui actionne cette macro, j'aimerais supprimer ce bouton, et que la macro se déclenche dès que je fais Enter.
Merci pour vos réponses

[Philippe Tulliez]

Bonjour,
En utilisant la procédure événementielle Workbook_SheetChange de l'objet ThisWorkbook ou Worksheet_Change de l'objet WorkSheet

Exemple 1 - Objet ThisWorkbook

Code :

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

1
2
3
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 MsgBox "Feuille " & Sh.Name & " / " & "Cellule " & Target.Address
End Sub

Exemple 2 - Objet Feuil1

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 MsgBox Target.Address
End Sub

Dans les deux exemples, l'argument Target est l'objet range qui représente la cellule où à eu lieu la modification. Dans l'exemple 1, l'argument sh représente la feuille où a eu lieu la modification.

[ddanie]

J'ai bien essayé vos 2 exemples mais ça bug dès que j'actionne d'autres macros par des boutons
Ce qui m'intéresse c'est de déclencher une Sub JourSem() dès que la cellule C2 change

[pgz]

Bonjour.

Dans le module de la feuille :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Application.Intersect(Target, Me.Range("C2")) Is Nothing Then
    'ici tu places le code à exécuter
End If
 
End Sub

Cordialement,

PGZ

[carden752]

Bonjour,

Oui cela doit être possible, il faut jouer sur les évènements.
2 possibilités :

Soit tu peux entrer la date sous la forme d'une formule auquel cas l'évènement sheetcalculate peut être utilisé.

Soit tu ne peux pas auquel cas, il te faut utiliser SelectionSheetChange.
Attention, à chaque fois que tu passeras en C3, ce code s'exécutera par exemple. Il serait bien de s'assurer que nous venons de la case C2 par exemple ou mieux d'utiliser les touches frappées au clavier et regarder si c'est bien la touche entrer par exemple.
Je te laisserai tester.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim s As Worksheet
Set s = ActiveWorkbook.ActiveSheet
If (s.Range("C3", "C3").Cells = ActiveCell) Then
Call toto
End If
End Sub