Discussion :

[rsoul]

Bonjour,

Je souhaite qu'une macro se lance lorsque l'utilisateur double clique, entre une valeur, puis valide en appuyant sur entree.
Voici ce que j'ai mis dans la Feuil1 :

Code :

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

1
2
3
4
5
6
Sub ACTION()
If Range("K2") Is Selected Then
Call COURS_ac
Else
End If
End Sub

Par avance, MERCI.

[decondelite]

Regarde du coté de la procédure événementielle "Worksheet_Change" de ton module de feuille.

[imaril]

ou plutot :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 
'appel de la procédure 
Call COURS_ac
 
End Sub

vu le :

Je souhaite qu'une macro se lance lorsque l'utilisateur double clique, entre une valeur, puis valide en appuyant sur entree.

[decondelite]

Je ne vois pas ce que le clic droit vient faire dans tout ça...

[imaril]

heu je me suis trompe de ligne c'étais :

Code :

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

1
2
3
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
End Sub

je sais meme pas pourquoi j'ai mis BeforeRightClick :p ca a du etre un buggage de cerveau ^^

[decondelite]

Ca bogue toujours: il s'agit d'une cellule, pas d'un formulaire.

Et à ma connaissance, la détection de la validation d'une cellule (en appuyant sur Entrée ou autrement) se fait avec WorkSheet_Change et rien d'autre.

[rsoul]

Je viens de tenter cela mais ca na pas lair de fonctionner, vois tu d'ou viens le pb??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 10 Then
G_FLAG = True
ElseIf G_FLAG And Cells(2, 10).Value <> "" Then
Call COURS_ac
G_FLAG = False
Else
G_FLAG = False
End If
End Sub

[imaril]

la fonction change se declanche des que le contenu de la cellule change que ca soit par l'appui de la touche entrer ou d'une macro.
J'ai proposer le DBclick car il disais appres un double click. et apres pour le Entrer, si je me rappel bien , il existe une fonction : on hitkey ou quelque chose dans le genre (je recherche)

edit : aide VBA :

Code :

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

1
2
3
4
Cet exemple montre comment affecter « InsertProc » à la combinaison de touches CTRL+SIGNE PLUS et « SpecialPrintProc » à la combinaison MAJ+CTRL+DROITE.
 
Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"

[rsoul]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 11 Then
G_FLAG = True
ElseIf G_FLAG And Cells(2, 11).Value <> "" Then
Call COURS_ac
G_FLAG = False
Else
G_FLAG = False
End If
End Sub