Discussion :

[antonysansh]

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

[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 :

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

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

[antonysansh]

Bonjour cerede2000,

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

Voila ce que je viens de tester :

Code :

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

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 :

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

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.

[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 :

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

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[Invité]

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

Code :

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

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

[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 …