Choisir une table avec la méthode .ShowDataForm

Version imprimable

13/04/2016, 11h33
antonysansh

Choisir une table avec la méthode .ShowDataForm

Bonjour à tous,

J'ai découvert récemment la méthode .ShowDataForm de l'objet Worksheet qui correspond à l'outil Formulaire de l'onglet Données (non natif dans le ruban).
J'ai dans un classeur plusieurs feuilles dont une avec plusieurs tableaux, si je clic sur une ligne d'un tableau et ensuite sur Formulaire de l'onglet données il me prend bien le tableau sélectionné. Donc à la main tout vas bien.

Mon problème est le suivant :
Si j'utilise ActiveSheet.ShowDataForm c'est le formulaire du tableau commençant en A1 qui est pris en compte. (peu importe la sélection)
Si pas de tableau en A1, j'ai une erreur.

Savez vous comment indiquer la plage qui doit être prise en compte pour la méthode .ShowDataForm ?
Quel Objet VB se cache derrière cette méthode ?

Merci d'avance
13/04/2016, 11h53
cerede2000
Bonjour à toi,

De ce que je me souvient lorsque j'ai utilisé ShowDataForm il faut d'abord sélectionner la Range qui correspond à ton tableau :
Code:

1 2 3 4 5 Range("Tableau1").Select ActiveSheet.ShowDataForm Range("Tableau2").Select ActiveSheet.ShowDataForm

Bonjour cerede2000,

J'ai déjà essayé comme ça et ça ne fonctionne pas.

Voila ce que je viens de tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
    With ActiveSheet
        'Création d'un tableau nommé Tableau1
        .[A1] = "Tab1":   .[A2] = "test1"
        .ListObjects.Add(xlSrcRange, Range("$A$1:$A$2"), , xlYes).Name = "Tableau1"
        'Création d'un tableau nommé Tableau2
        .[D1] = "Tab2":   .[D2] = "test2"
        .ListObjects.Add(xlSrcRange, Range("$D$1:$D$2"), , xlYes).Name = "Tableau2"
 
        'Affiche le formulaire du tableau1
        .Range("Tableau1").Select
        .ShowDataForm
 
        'Affiche le formulaire du tableau1 malgré la selection du tableau2
        .Range("Tableau2").Select
        .ShowDataForm
    End With
End Sub

J'ai aussi testé ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test2()
    With ActiveSheet
        'Création d'un tableau nommé Tableau2
        .[D1] = "Tab2":   .[D2] = "test2"
        .ListObjects.Add(xlSrcRange, Range("$D$1:$D$2"), , xlYes).Name = "Tableau2"
 
        'Erreur d'execution 1004
        'methode ShowDataForm a echouee
        .Range("Tableau2").Select
        .ShowDataForm
    End With
End Sub

J'ai l'impression que .ShowDataForm prend le tableau placer en A1 et s'il n'y en pas, une erreur est levée.

13/04/2016, 16h48
Marc-L
Bonjour !

Cela peut dépendre de la version d'Excel - au passage non précisée dans le préfixe de cette discussion ! - car
il me semble bien avoir lu une correction avec la sortie de la version 2013 …

Sinon pour les versions où la méthode ShowDataForm reste bloquée sur la première table
(même si pas située en A1, peu importe …), il y a une double astuce à opérer :

• désactiver DisplayAlerts au cas où la table n'a pas encore de donnée par exemple;

• appeler directement le contrôle par son Id au lieu de la méthode …

Evidemment une cellule de la table doit être sélectionnée :
Code:

1 2 3 4 5 6 Sub Demo() Cells(4).Select Application.DisplayAlerts = False CommandBars.FindControl(Id:=860).Execute Application.DisplayAlerts = True End Sub
Testé sous Excel 2003, en espérant l'Id n'a pas été modifié dans les versions supérieures
sinon ce n'est pas difficile à trouver en bouclant sur les contrôles …

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

Bonjour,
Vu sur un autre forum, je ne sais pas ce que ça vaut!

Code:

1
2
3
4
5
6
7
Sub doclaude()
Range("a6").CurrentRegion.Select
ActiveWorkbook.Names.Add Name:="base_de_données", RefersToR1C1:=Selection
ActiveSheet.ShowDataForm
ActiveWorkbook.Names("base_de_données").Delete
Range("a1").Activate
End Sub

13/04/2016, 17h24
Marc-L

Salut Robert !

Cela fonctionne bien sous une version française d'Excel 2003.
Pour une version anglaise c'est Database …
Je préfère ma solution évitant de créer puis de supprimer la plage pour chaque tableau et fonctionnant quelle que soit la langue.
Je sais, les goûts, les couleurs …
Par contre pour un tableau unique ne commençant pas en A1, la plage nommée est bien pratique ! (si mono langue …)
Antony, tu as deux voies à explorer …
14/04/2016, 08h47
antonysansh

Bonjour,

Robert, Marc merci pour vos réponses.

L’histoire de la plage nommée Base_de_données est ce que je cherchais (une façon de jouer sur le tableau à afficher dans le formulaire) alors merci Robert pour le lien.
Mais l’explication de Marc m’intéresse beaucoup. J’avais constaté que le faire à la main et le faire par macro n’était pas la même chose du fait (je le comprends maintenant) que cette fameuse plage Base_de_données soit initialisée ou non.
Passer par le bouton dans la commandBars, je n’y aurais jamais pensé.

Merci à vous deux

PS : Sur Excel 2010 l'ID est toujours 860