Bouton vers un menu d'Excel
Arthur
-
Arthur -
Arthur -
Bonjour,
pour faciliter les choses à l'utilisateur de mon fichier excel, je cherche la solution pour créer un bouton qui pointe directement vers le menu "Formulaire" d'excel en "nouvel enregistrement" de ma liste de saisie.
Est-ce possible ?
Pour détailler :
J'ai une base de donnée. Je ne veux pas faire de formulaire personnalisé. J'aimerai que l'utilisateur utilise le formulaire de saisie automatique d'excel et que celui-ci s'ouvre directement en "Nouvel Enregistrement" en cliquant sur un bouton de commande sur la feuille.
pour faciliter les choses à l'utilisateur de mon fichier excel, je cherche la solution pour créer un bouton qui pointe directement vers le menu "Formulaire" d'excel en "nouvel enregistrement" de ma liste de saisie.
Est-ce possible ?
Pour détailler :
J'ai une base de donnée. Je ne veux pas faire de formulaire personnalisé. J'aimerai que l'utilisateur utilise le formulaire de saisie automatique d'excel et que celui-ci s'ouvre directement en "Nouvel Enregistrement" en cliquant sur un bouton de commande sur la feuille.
A voir également:
- Bouton vers un menu d'Excel
- Menu déroulant excel - Guide
- Word et excel gratuit - Guide
- Trier un tableau excel - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
Bonjour,
bouton qui pointe directement vers le menu "Formulaire" d'excel
Il y a encoredes gens qui se servent de ça ???
C'est plus simple de se rendre en fin de liste et de saisir directement dans les cellules...
Quoiqu'il en soit voilà le début. Il faudra cliquer sur "Nouvelle" car la boite de dialogue se refuse totalement à recevoir des touche par la méthode Sendkeys :
https://www.cjoint.com/c/CLyvHgEv8zo
eric
bouton qui pointe directement vers le menu "Formulaire" d'excel
Il y a encoredes gens qui se servent de ça ???
C'est plus simple de se rendre en fin de liste et de saisir directement dans les cellules...
Quoiqu'il en soit voilà le début. Il faudra cliquer sur "Nouvelle" car la boite de dialogue se refuse totalement à recevoir des touche par la méthode Sendkeys :
Sub NouvelleFiche()
Columns("A:C").Select
ActiveSheet.ShowDataForm
SendKeys "~" 'valide la boite de dialogue "...cliquez sur OK"
'Application.Wait (Now + TimeValue("0:00:02"))
'SendKeys "%N" ' "Nouvelle" (pas pris en compte...)
'SendKeys "{TAB 3}~" ' ne fonctionne pas non plus (3 car 3 champs)
End Sub
https://www.cjoint.com/c/CLyvHgEv8zo
eric