dans une userform je souhaite y mettre des champs de type comboBox. Après la
saisie dans ces champs, je souhaite valider donc copier ces données dans des
cellules en tapant sur la touche "Entréeé et non un bouton de validation.
Quelle code dois-je mettre pour cette validation avec la touche "entrée" ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Calling78,
Un combobox n'est pas vraiment destiné à entrer de nouvellles valeurs dans sa liste...tu pourrais définir sa propriété : Style = frmStyleDropDownList
'---------------------- Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then With Feuil2 .Range("A" & .Range("A65536").End(xlUp)(2).Row) = Me.ComboBox1.Text Me.ComboBox1.ListIndex = -1 End With End If
End Sub '----------------------
Ce type d'approche permet de déclencher facilement des opérations en "double , triple" de la part de l'usager si ce dernier ne se rend pas compte de l'effet qu'à le bouton "enter"
Salutations!
"calling78" a écrit dans le message de news: Bonjour,
dans une userform je souhaite y mettre des champs de type comboBox. Après la saisie dans ces champs, je souhaite valider donc copier ces données dans des cellules en tapant sur la touche "Entréeé et non un bouton de validation. Quelle code dois-je mettre pour cette validation avec la touche "entrée" ?
Merci pour votre aide, salutations,
Calling78
Bonjour Calling78,
Un combobox n'est pas vraiment destiné à entrer de nouvellles
valeurs dans sa liste...tu pourrais définir sa propriété :
Style = frmStyleDropDownList
'----------------------
Private Sub ComboBox1_KeyDown(ByVal KeyCode As _
MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
With Feuil2
.Range("A" & .Range("A65536").End(xlUp)(2).Row) = Me.ComboBox1.Text
Me.ComboBox1.ListIndex = -1
End With
End If
End Sub
'----------------------
Ce type d'approche permet de déclencher facilement des opérations en "double , triple"
de la part de l'usager si ce dernier ne se rend pas compte de l'effet qu'à le bouton "enter"
Salutations!
"calling78" <bellecf@hotmail.fr> a écrit dans le message de news: 0E519D81-6C9E-4434-BA51-BF91021EB541@microsoft.com...
Bonjour,
dans une userform je souhaite y mettre des champs de type comboBox. Après la
saisie dans ces champs, je souhaite valider donc copier ces données dans des
cellules en tapant sur la touche "Entréeé et non un bouton de validation.
Quelle code dois-je mettre pour cette validation avec la touche "entrée" ?
Un combobox n'est pas vraiment destiné à entrer de nouvellles valeurs dans sa liste...tu pourrais définir sa propriété : Style = frmStyleDropDownList
'---------------------- Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then With Feuil2 .Range("A" & .Range("A65536").End(xlUp)(2).Row) = Me.ComboBox1.Text Me.ComboBox1.ListIndex = -1 End With End If
End Sub '----------------------
Ce type d'approche permet de déclencher facilement des opérations en "double , triple" de la part de l'usager si ce dernier ne se rend pas compte de l'effet qu'à le bouton "enter"
Salutations!
"calling78" a écrit dans le message de news: Bonjour,
dans une userform je souhaite y mettre des champs de type comboBox. Après la saisie dans ces champs, je souhaite valider donc copier ces données dans des cellules en tapant sur la touche "Entréeé et non un bouton de validation. Quelle code dois-je mettre pour cette validation avec la touche "entrée" ?
Merci pour votre aide, salutations,
Calling78
calling78
Merci pour cette réponse Michdenis. C'est très clair.
Salutations,
Bonjour Calling78,
Un combobox n'est pas vraiment destiné à entrer de nouvellles valeurs dans sa liste...tu pourrais définir sa propriété : Style = frmStyleDropDownList
'---------------------- Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then With Feuil2 .Range("A" & .Range("A65536").End(xlUp)(2).Row) = Me.ComboBox1.Text Me.ComboBox1.ListIndex = -1 End With End If
End Sub '----------------------
Ce type d'approche permet de déclencher facilement des opérations en "double , triple" de la part de l'usager si ce dernier ne se rend pas compte de l'effet qu'à le bouton "enter"
Salutations!
"calling78" a écrit dans le message de news: Bonjour,
dans une userform je souhaite y mettre des champs de type comboBox. Après la saisie dans ces champs, je souhaite valider donc copier ces données dans des cellules en tapant sur la touche "Entréeé et non un bouton de validation. Quelle code dois-je mettre pour cette validation avec la touche "entrée" ?
Merci pour votre aide, salutations,
Calling78
Merci pour cette réponse Michdenis. C'est très clair.
Salutations,
Bonjour Calling78,
Un combobox n'est pas vraiment destiné à entrer de nouvellles
valeurs dans sa liste...tu pourrais définir sa propriété :
Style = frmStyleDropDownList
'----------------------
Private Sub ComboBox1_KeyDown(ByVal KeyCode As _
MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
With Feuil2
.Range("A" & .Range("A65536").End(xlUp)(2).Row) = Me.ComboBox1.Text
Me.ComboBox1.ListIndex = -1
End With
End If
End Sub
'----------------------
Ce type d'approche permet de déclencher facilement des opérations en "double , triple"
de la part de l'usager si ce dernier ne se rend pas compte de l'effet qu'à le bouton "enter"
Salutations!
"calling78" <bellecf@hotmail.fr> a écrit dans le message de news: 0E519D81-6C9E-4434-BA51-BF91021EB541@microsoft.com...
Bonjour,
dans une userform je souhaite y mettre des champs de type comboBox. Après la
saisie dans ces champs, je souhaite valider donc copier ces données dans des
cellules en tapant sur la touche "Entréeé et non un bouton de validation.
Quelle code dois-je mettre pour cette validation avec la touche "entrée" ?
Merci pour cette réponse Michdenis. C'est très clair.
Salutations,
Bonjour Calling78,
Un combobox n'est pas vraiment destiné à entrer de nouvellles valeurs dans sa liste...tu pourrais définir sa propriété : Style = frmStyleDropDownList
'---------------------- Private Sub ComboBox1_KeyDown(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then With Feuil2 .Range("A" & .Range("A65536").End(xlUp)(2).Row) = Me.ComboBox1.Text Me.ComboBox1.ListIndex = -1 End With End If
End Sub '----------------------
Ce type d'approche permet de déclencher facilement des opérations en "double , triple" de la part de l'usager si ce dernier ne se rend pas compte de l'effet qu'à le bouton "enter"
Salutations!
"calling78" a écrit dans le message de news: Bonjour,
dans une userform je souhaite y mettre des champs de type comboBox. Après la saisie dans ces champs, je souhaite valider donc copier ces données dans des cellules en tapant sur la touche "Entréeé et non un bouton de validation. Quelle code dois-je mettre pour cette validation avec la touche "entrée" ?
