Valider une marco par la touche entrée
Bonjour à tous,
Voilà, j'ai un problème...
En fait j'ai une macro affectée à un bouton (Lecture_données). Je voudrais qu'elle s'exécute automatiquement quand j'appuie sur la touche entrée dans la case adéquate.
En fait je vais taper un numéro de commande, et je voudrais que les données soit lu automatiquement sans avoir à valider par un click.
Pour l'instant j'ai cela :
Private Sub Entree(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Num_Cde = Range("C3").Value <> "" Then
If KeyCode = 13 Then Lecture_donnée (Lecture_données)
End If
End If
End Sub
Mais cela ne marche pas.
Merci de votre aide,
Cordialement,
Hugo
Bonjour,
comme tu n'as pas voulu dire si ton textbox était dans une feuille ou un userform...
toutefois, je ne connais pas d'évènement :
Private Sub Entree(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) A la rigueur, si ton Textbox qui se nomme Entree, à priori, tu pourrais essayer avec cet évènement :
Private Sub Entree_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)Cependant, ne sachant ce que tu veux :
If Num_Cde = Range("C3").Value <> "" Then
If KeyCode = 13 Then Lecture_donnée (Lecture_données) je ne pourrai pas t'aider plus....
Bonjour,
Je n'est pas été très clair désolé. Comme je suis dedans je ne me rend pas compte...
En fait j'ai un peu avancé :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$C$3" Then
Call Lecture_données
End If
End Sub
Celà fonctionne mais je dois cliquer sur la cellule après avoir entré un numéro de commande pour valider.
Je voudrais que ça se fasse automatiquement quand je tape entrée.
J'ai essayé de rajouté une condition : and keyPess = 13 sans succès.
Je pense que mon textbox est dans une feuille même si pour moi un userform c'est très flou...
J'epère avoir été plus clair,
Merci
Cordialement,
Hugo
C'est bon j'ai trouvé pour finir.
Pour info :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("c3")) Is Nothing Then Exit Sub
Call Lecture_données
End Sub
Merci à tous
Cordialement,
Hugo