OVH Cloud OVH Cloud

Saisie Semi-automatique

3 réponses
Avatar
Tibert
Bonjour à tous ;
J’ai un classeur d’une vingtaine de feuille qui fonctionne de paire,
c'est-à-dire un formulaire une base de données, dans mon formulaire pour
aller chercher mes désignations j’utilise un nom de plage dans feuille
données « A1:A80 » nommé « Articles » et dans ma feuille formulaire j’utilise
« Données Validation Liste et (=Articles).
J’aurais voulu savoir si avec Excel on pouvait avoir une saisie
semi-automatique, c'est-à-dire quand je clique dans ma cellule de formulaire
je n’ai pas besoin de clique sur la petite flèche au bout de ma cellule pour
ouvrir cette fenêtre et me proposer mes articles et en tapant me propose par
ordre alphabétique.
Voilà j’espère avoir été claire dans ma question.
Salutations

3 réponses

Avatar
MichDenis
Dans le module feuille où l'action se déroule,
copie ce qui suit. Dans mon exemple, j'ai
supposé que ta liste de validation était dans
la cellule C1 de ta feuille... à toi d'adapter
l'adresse de la cellule dans la procédure.

P.S.- Ce type de code (usage de "Sendkey")
fonctionne seulement lorsqu'il est appelé à partir
de l'interface de la feuille de calcul.

'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("C1").Address Then
SendKeys "%{Down}"
End If
End Sub
'-----------------------



"Tibert" a écrit dans le message de news:

Bonjour à tous ;
J'ai un classeur d'une vingtaine de feuille qui fonctionne de paire,
c'est-à-dire un formulaire une base de données, dans mon formulaire pour
aller chercher mes désignations j'utilise un nom de plage dans feuille
données « A1:A80 » nommé « Articles » et dans ma feuille formulaire j'utilise
« Données Validation Liste et (=Articles).
J'aurais voulu savoir si avec Excel on pouvait avoir une saisie
semi-automatique, c'est-à-dire quand je clique dans ma cellule de formulaire
je n'ai pas besoin de clique sur la petite flèche au bout de ma cellule pour
ouvrir cette fenêtre et me proposer mes articles et en tapant me propose par
ordre alphabétique.
Voilà j'espère avoir été claire dans ma question.
Salutations
Avatar
MichDenis
En supplément, l'usage des touches de direction
"Vers le haut" , "Vers le bas" du clavier de te
déplacer d'un item à la fois dans la liste.

Il y a aussi les touches "PageUp" et "PageDown"
qui te permettent d'aller au premier item ou au
dernier item de la liste.


"Tibert" a écrit dans le message de news:

Bonjour à tous ;
J'ai un classeur d'une vingtaine de feuille qui fonctionne de paire,
c'est-à-dire un formulaire une base de données, dans mon formulaire pour
aller chercher mes désignations j'utilise un nom de plage dans feuille
données « A1:A80 » nommé « Articles » et dans ma feuille formulaire j'utilise
« Données Validation Liste et (=Articles).
J'aurais voulu savoir si avec Excel on pouvait avoir une saisie
semi-automatique, c'est-à-dire quand je clique dans ma cellule de formulaire
je n'ai pas besoin de clique sur la petite flèche au bout de ma cellule pour
ouvrir cette fenêtre et me proposer mes articles et en tapant me propose par
ordre alphabétique.
Voilà j'espère avoir été claire dans ma question.
Salutations
Avatar
MichDenis
à copier dans le module feuille où l'action se déroule...

La seule chose que la procédure fait, lorsque tu cliques
sur une cellule de la plage, la liste déroulante s'ouvre.

'----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D17:D48")) Is Nothing Then
SendKeys "%{Down}"
End If
End Sub
'----------------------



"Tibert" a écrit dans le message de news:

Bonjour MichDenis ;
Ma liste de validation et sur plusieurs (D17 :D48) c'est un tableau que je
rempli et sur chaque lignes de (D17) à (D48) j'utilise « Données Validation
Liste =Articles) pour sélectionner mes articles.
J'ai tester ton code que j'ai mis dans mon module de feuille ou je rempli
mon tableau pour le teste j'ai mis que sur la première cellule et rien ne se
passe (code ci-dessous)
Pourrais-tu me dire si y a quelques choses que je n'aurais pas bien compris
ou effectuer.
Merci.
Salutations
________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("D17").Address Then
SendKeys "%{Down}"
End If
End Sub
________________________________________



En supplément, l'usage des touches de direction
"Vers le haut" , "Vers le bas" du clavier de te
déplacer d'un item à la fois dans la liste.

Il y a aussi les touches "PageUp" et "PageDown"
qui te permettent d'aller au premier item ou au
dernier item de la liste.


"Tibert" a écrit dans le message de news:

Bonjour à tous ;
J'ai un classeur d'une vingtaine de feuille qui fonctionne de paire,
c'est-à-dire un formulaire une base de données, dans mon formulaire pour
aller chercher mes désignations j'utilise un nom de plage dans feuille
données « A1:A80 » nommé « Articles » et dans ma feuille formulaire j'utilise
« Données Validation Liste et (=Articles).
J'aurais voulu savoir si avec Excel on pouvait avoir une saisie
semi-automatique, c'est-à-dire quand je clique dans ma cellule de formulaire
je n'ai pas besoin de clique sur la petite flèche au bout de ma cellule pour
ouvrir cette fenêtre et me proposer mes articles et en tapant me propose par
ordre alphabétique.
Voilà j'espère avoir été claire dans ma question.
Salutations