Formulaire de saisie

[BrunoExcel2007]

Bonsoir au Forum ,

Tout d'abord merci à vous de partager votre savoir et de résoudre des problèmes qui nous font gagner du temps une fois résolu.

j'ai mis mon formulaire de saisie en pièce jointe avec les explications de ce que j'aurai aimé avoir .

si toutefois vous y arrivez vous serez t il possible de me le renvoyer avec les formules déjà incluses dans le formulaire .!

Merci beaucoup d'avance de donner de votre temps .

Bonne soirée .

Cdt Bruno.

 

[Modeste geedee]

Re : Formulaire de saisie

Bonsour®

Ré-inventer la roue ???

Private Sub Worksheet_Activate()
ActiveSheet.ShowDataForm
End Sub

 

[BrunoExcel2007]

Bonjour Modeste geedee,

Merci de m'avoir répondu.

Pourriez vous m'en dire plus..!!
Je n'y connait vraiment pas grand chose et j'aimerai juste savoir si oui ou non le formulaire peut fonctionner et si oui me le retourner avec les bonnes formules déjà intégré je vous remercie infiniment .

Cdt Bruno.

 

[JHA]

Re : Formulaire de saisie

Bonjour à tous,

Au risque de me répéter, il y a sur excel une icone formulaire qui fait tout cela sans code VBA.



Pour ouvrir le formulaire et l'avoir toujours en accès, en haut à gauche du nom du document, tu cliques sur la petite flèche du menu déroulant (Personnaliser la barre d'outils d'Accès rapide) puis tu choisis "autres commandes" puis toutes les commandes et tu choisis l'icone formulaire.
Avant de cliquer sur l'icone formulaire au dessus du ruban, tu sélectionnes la plage "A1:H3" puis appel du formulaire et tu rentres tes données.

JHA

 

[BrunoExcel2007]

Bonjour ,

Cela à l'air si simple quand vous connaissez EXCEL ..!! merci à vous.
Bon je viens d’essayer l'icone formulaire ça ne répond pas tout à fait comme j'en ai besoin et en plus on ne peux pas personnaliser la fenêtre du formulaire c'est du tout fait , enfin je pense ...!!!

Donc je réitère ma demande pour mon formulaire et j’espère pouvoir trouver une personne qui va juste répondre à ma demande initiale celle de récupérer le formulaire avec les formules intégrées si c'est possible merci à vous .

Cdt Bruno.

 

[Modeste geedee]

Re : Formulaire de saisie

Bonsour®
la grille de saisie en effet c'est du tout fait ...
mais elle permet de tout gérer(nouvel enregistrement, recherche, gestion des enregistrement, navigation) sans aucun code utilisateur...

Je n'y connait vraiment pas grand chose

su tu veux ré-inventer la roue il te faudra aussi gérer tout cela ...

il te faudra avoir des notions :

• de programmation
• d'analyse algorithmique,
• connaissances des principes de gestion de base de données

en pièce jointe un premier jet :
- sans tenir compte des recherches
- ni des controles de champs (types, formats, majuscules,)
- options de tris ou de filtre..

si tu ne veux que gérer une base de données avec tous les controles de cohérence, unicité, intégrité...
ACCESS est fait pour cela

 

[BrunoExcel2007]

Bonjour et merci à toi Modeste geedee,

Merci pour le travail effectué c'est déjà un grand pas grâce à vous.
Je penser pas qu'il y avait autant de travail et pour le bouton recherche je vais encore chercher ..!

Merci à vous d'avoir partagé de votre temps .

Cdt Bruno.

 

[Modeste geedee]

Re : Formulaire de saisie

Bonsour®

voir aussi ceci :
The Spreadsheet Page - Data Form Features
http://spreadsheetpage.com/downloads/dataform/dataform3.zip

 

[BrunoExcel2007]

Re : Formulaire de saisie

Merci à vous Modeste geedee.

 

[JunFan]

Code (Visual Basic): Private Sub Worksheet_Activate()
ActiveSheet.ShowDataForm
End Sub

Bonjour

Je reviens sur la réponse de ModesteGeedee concernant cette commande, qui doit normalement afficher la grille de saisie des données (Formulaire excel).

Lorsque je la lance, j'ai une erreur d’exécution...
"La méthode ShowDataForm de la classe Worksheet a échoué".

Quelqu'un sait comment appeler le formulaire avec une macro ?

Dans le fichier joint, j'ai inséré une petite icône qui est censé appeler le formulaire.

Merci

 

[Modeste geedee]

Bonsour®

Lorsque je la lance, j'ai une erreur d’exécution...
"La méthode ShowDataForm de la classe Worksheet a échoué".

oupsss.... en effet à ne rien y comprendre (pourtant intégralement tiré de l'aide en ligne ????)

essaie alors ceci :
Sub Macro1()
'---- la cellule active doit etre positionnée dans la zone de données
Application.CommandBars.FindControl(ID:=860).Execute
End Sub

 

[Staple1600]

Bonjour le fil, le forum

Testées sur Excel 2013

Sub test()
'DATAS= plage nommée faisant office de base de données
[DATAS].Select: ActiveSheet.ShowDataForm
End Sub
Sub testB()
'fonctionne uniquement si la zone active peut être assimilée à une base de donnée "classique"
With ActiveSheet
    .UsedRange.Select
    .ShowDataForm
End With
End Sub

 

[Modeste geedee]

Bonsour®

Bonsour®
oupsss.... en effet à ne rien y comprendre (pourtant intégralement tiré de l'aide en ligne ????)

autre alternative :
Sub Macro1()
'---- la cellule active doit etre positionnée dans la zone de données
Range("b14").Select
Selection.CurrentRegion.Name = "Base_de_donnees" '<------- pas d'accent à données !!!!!!!
ActiveSheet.ShowDataForm
End Sub

 

[Modeste geedee]

Bonsour®

Selection.CurrentRegion.Name = "Base_de_donnees" '<------- pas d'accent à données !!!!!!!
ActiveSheet.ShowDataForm
End Sub

il est à noter que "Base_de_donnees" et "Database" sont des noms réservés
que Excel utilise automatiquement lors de l'usage du formulaire...
quand ceux-ci ont été préalablement définis

??? lorsque plusieurs plages correspondent à des 'bases de données' distinctes dans une même feuille.

il suffit de renommer la plage à utiliser "base_de_donnees" avant appel du formulaire
ce formulaire s'applique alors à la plage souhaitée

autre fait notoire perturbant mais pratique ;
l'utilisation de:
Application.CommandBars.FindControl(ID:=860).Execute
présente le formulaire avec les fonctionnalités de feuille de calcul (i.e. format locaux, date, décimales)

l'utilisation via Showdataform :
présente le formulaire avec les fonctionnalités VBA (i.e. formats US, date, décimales)

 

[Staple1600]

Bonsoir Modeste geedee

Tests sur Excel 2013
Fonctionne si une cellule appartenant à la base est sélectionnée

Sub testC()
'test ok
[A1].Select: CommandBars.FindControl(, 860).Execute
End Sub
Sub testD()
'test ok
[C10].Select: CommandBars.FindControl(, 860).Execute
End Sub

Ne fonctionne pas

Sub testE()
'ne fonctionne pas si la sélection n'appartient pas à la base
CommandBars.FindControl(, 860).Execute
End Sub