XL 2013 placer le pointeur sur une cellule avec usage d'un menu déroulant

68magnolia71 · 23 Décembre 2015

Bonjour,

Je suis à la recherche d'une solution qui me permette de rationnaliser la saisie de mes fadettes de supermarché. Sur mon fichier je voudrais me servir d'une cellule qui contient un menu déroulant à deux phases: saisie d'une lettre de l'alphabet puis dans la même cellule d'un élément (nomenclature) commençant par la lettre choisie. Le choix de l'élément devrait positionner le curseur sur la première cellule vide de la colonne du tableau, correspondant à cet élément de la nomenclature.
J'ai essaayé un bon nombre de propositions du NET, formules, macro ou vba sans trouver la solution ou à la construire moi-même. De plus je n'arrive trier les entrées de ExcelDownloads. Rien ne s'affiche!
Si quelqu'un parmi les connaisseurs du forum a une idée je suis preneur. En attendant "Magnolia" leur souhaite une bonne fin d'année et un bon départ dans la prochaine.

Magnolia

CPk · 24 Décembre 2015

Re : placer le pointeur sur une cellule avec usage d'un menu déroulant

Bonjour, code à placer dans la page de la feuil6 et non dans un module.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim trouve As Range
If Target = [A3] Then
Set trouve = Feuil6.[D2X2].Find(Target, lookat:=xlWhole)
If Not trouve Is Nothing Then
If trouve.Offset(1, 0) = "" Then
trouve.Offset(1, 0).Select
Else
trouve.End(xlDown).Select
End If
End If
End If
End Sub

68magnolia71 · 24 Décembre 2015

Re : placer le pointeur sur une cellule avec usage d'un menu déroulant

CPk à dit:
Bonjour, code à placer dans la page de la feuil6 et non dans un module.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim trouve As Range
If Target = [A3] Then
Set trouve = Feuil6.[D2X2].Find(Target, lookat:=xlWhole)
If Not trouve Is Nothing Then
If trouve.Offset(1, 0) = "" Then
trouve.Offset(1, 0).Select
Else
trouve.End(xlDown).Select
End If
End If
End If
End Sub

Bonjour CPk,

Mon expérience en VBa étant nulle (je récupère des codes tout faits sur le NET et je les applique) je ne comprends pas ce qu'il faut faire. Je ne vois pas de feuil6 et je ne sais pas comment lancer ce code. Mais merci pour la réponse et bon Noël.

Magnolia

CPk · 24 Décembre 2015

Re : placer le pointeur sur une cellule avec usage d'un menu déroulant

le code est placé dans le fichier cependant, il ne sera opérationnel que lorsque toutes les chaînes de caractères seront identiques.
Exemple : "beurre" et " beurre" ne sont pas identique car il y a un espace devant la deuxième occurrence. Donc les entêtes de colonnes doivent être identique avec la liste du menu déroulant.

68magnolia71 · 24 Décembre 2015

Re : placer le pointeur sur une cellule avec usage d'un menu déroulant

68magnolia71 à dit:
Bonjour CPk,

Mon expérience en VBa étant nulle (je récupère des codes tout faits sur le NET et je les applique) je ne comprends pas ce qu'il faut faire. Je ne vois pas de feuil6 et je ne sais pas comment lancer ce code. Mais merci pour la réponse et bon Noël.

Magnolia

Je vous renouvelle mes remerciements pour votre aide. La "moulinette" tourne. Il me restent certains orthographes à récrire et ce sera bon. Une dernière question: OÛ est stocké votre code? Où est-il lisible? Quelque part sur quelle feuille avec quel intitulé? Dans la cellule A3 avec ma liste? Le code n'est pas non plus dans liste des Macros qui est vide!

Magnolia

CPk · 24 Décembre 2015

Re : placer le pointeur sur une cellule avec usage d'un menu déroulant

1) Alt + F11
2) double clic sur Feuil6

68magnolia71 · 24 Décembre 2015

Re : placer le pointeur sur une cellule avec usage d'un menu déroulant

CPk à dit:
1) Alt + F11
2) double clic sur Feuil6

OK, bien reçu! Si on pouvait faire transiter des parts de bûche de Noël par les tuyaux Internet je le ferais avec plaisir.
Joyeux Noêl CPk!

Magnolia

CPk · 25 Décembre 2015

Re : placer le pointeur sur une cellule avec usage d'un menu déroulant

Bonjour, vous travaillez pour wetwatcher ?

XL 2013 placer le pointeur sur une cellule avec usage d'un menu déroulant

68magnolia71

XLDnaute Nouveau

Pièces jointes

CPk

XLDnaute Impliqué

68magnolia71

XLDnaute Nouveau

CPk

XLDnaute Impliqué

Pièces jointes

68magnolia71

XLDnaute Nouveau

CPk

XLDnaute Impliqué

Pièces jointes

68magnolia71

XLDnaute Nouveau

CPk

XLDnaute Impliqué

Discussions similaires