Discussion :

[crywiddo]

Bonjour,

Voici mon probleme:

Aujourd’hui je possède un classeur qui contient en feuille 1 (page Accueil) un tableau, et un userform qui me permet de remplir ce tableau en fonction des informations saisie

Ce que j'aimerai c'est que à chaque foi qu'une ligne ce rajoute, un bouton formulaire ce rajoute en bout de ligne (ce bouton va servir à renvoyer vers une page créée au moment de la validation de mon userform

voici mon bout de code qui me permet d'ajouter la ligne au tableau puis le bouton (mais fixe malheureusement)

Code :

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

1
2
3
4
5
6
7
       'Définit le tableau dans la feuille de calcul
        Set ListObj = Worksheets("Accueil").ListObjects("TableauAccueil")
 
        'Ajoute une ligne au tableau definit
        ListObj.ListRows.Add
        'ActiveSheet.Buttons.Add(981, 180.75, 72, 72).Select
        Selection.OnAction = "BoutonChangerPage"

Comment remplacer (981, 180.75, 72, 72) par une valeur qui suivrai l'ajout de ligne?

Merci

[SfJ5Rpw8]

Bonjour,

Tiens essai cela :

Code :

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

1
2
3
4
5
6
7
 
        Set ListObj = Worksheets("Accueil").ListObjects("TableauAccueil")
        'Ajoute une ligne au tableau definit
        ListObj.ListRows.Add
      Dim r As Range
        Set r = ListObj.ListRows(ListObj.ListRows.Count).Range 'récupère la plage de cellule correspondant à la dernière ligne du tableau...
        Worksheets("Accueil").Buttons.Add(r.Left + r.Width + 10, r.Top, 100, r.Height).OnAction = "BoutonChangerPage"

[crywiddo]

Bonjour bbil,

Impeccable merci c'est exactement ça

Merci beaucoup
Bonne soirée