Discussion :

[Bernard67]

Bonjour le forum,

J'ai enregistre en automatique la macro de creation d'un formulaire a partir de "Données puis Formulaire";
Cela a partir de la feuille "source".
J'ai créé un bouton sur la feuille "Formulaire" pour appeler ce formulaire sur cette feuille afin que l'on ne puisse pas visualiser directement cette feuille source.
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Macro1()
 
    ActiveWindow.SmallScroll Down:=-3
    Range("A:P").Select
    ActiveSheet.ShowDataForm
End Sub

Mon probleme est que la macro placée sur la feuille "formulaire" bug sur cette instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.ShowDataForm

Quelqu'un aurait il une solution ?
Merci pour l'aide

[Gorfael]

Salut Bernard67 et le forum
Pour changer, pas tout compris
La grille ne fonctionne que sur une feuille visible et activée. Tu peux la réduire, mais ni la rendre invisible, ni rendre une autre feuille active.

Tu peux aussi agir sur les colonnes en mettant un format blanc sur blanc par MFC, avec une cellule devant avoir la valeur X pour que la MFC n'opére pas

Mais quand on sélectionne les colonnes, le blanc est lisible, alors tu peux agir sur la fenêtre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Test()
    Columns("A:B").Select
    ActiveWindow.ScrollColumn = 3
    ActiveSheet.ShowDataForm
End Sub

Ou tu peux créer un USF et recréer le fonctionnement de la grille de saisie.

Ou éventuellement expliquer correctement ton problème en donnant toutes les informations nécessaire à la compréhension de celui-ci.
A+

[Bernard67]

Bonjour Gorfael,
Merci pour le coup de main.
Je joins le developpement deja realisé.
Je desire rajouter 3 boutons sur le formulaire :
1 pour rechercher 1 ou plusieurs lignes dans le fichier "Source"
1 pour modifier la ligne
et 1 pour supprimer 1 ligne.
Je pensais le faire avec un autre USF, mais si on peut le faire avec l'USF de saisie des données c'est aussi bien.
Merci encore pour l'aide.