Formulaire & Showdataform

Bonjour,

J'ai un tableau nommé "Data" et j'aimerai l'alimenter .
En manuel on selectionne le tableau et on clique sur Formulaire. Là tout va bien.
J'aimerai le déclencher via un bouton. Et là ça ce complique.
Le code est le suivant

Code:

---

1 2 3 4

Sub tab() Sheets("Paramètres").Range("Data").Select ActiveSheet.ShowDataForm End Sub

---

La sélection se passe bien mais le ShowdataForm me propose un autre tableau défini en A????

Comment que l'on peut faire ? ShowDataForm ne convient peut être Pas? J'ai pas trop envie de créer un Userform :-(

Merci d'avance pour toutes idées ou solution.

J'ai trouvé la solution dans les archives du forum , 2016 ça date !Et au passage merci à Marc-L

https://www.developpez.net/forums/d1...t=Showdataform

Mon code transformé:

Code:

---

1 2 3 4 5 6 7

Sub tab() Application.DisplayAlerts = False Sheets("Paramètres").Range("Data").Select Application.DisplayAlerts = False CommandBars.FindControl(ID:=860).Execute Application.DisplayAlerts = True End Sub

---

Bonjour,
Autre solution

Code:

---

1 2 3 4 5 6

Sub t() Application.Goto Reference:="Data" With ActiveSheet .ShowDataForm End With End Sub

---

J'ai essayé mais ça n'a pas marché .
ShowDataForm prend toujours pour base la cellule A1, quelque soit la selection.
C'est d'ailleurs la même remarque était faite en 2016 .
Après je suis un vieux débutant...et pas dans ma techno..