Problème de création de boutons grâce a du code VBA

Bonjour à tous,

Voila j'ai un problème, je suis en train de créer une "appli" grâce à vba. L'idée c'est qu'on remplit un userform, les infos sont rentrés dans une feuille excel.
Mais je veux ajouter à chaque fois un bouton modifier et un autre supprimer à la fin de la ligne. Commençons par modifier. L'idée là c'est que le bouton récupère les infos dans le même userform comme ça on modifie.
Seulement pour la première ligne pas de soucis le bouton est créé mais la deuxième j'ai une erreur :

Citation:

---

bibliothèque d'objets incorrecte ou contenant des références à des définitions d'objets introuvables

---

voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Dim Obj As Object Dim Code As String   Sheets("Feuil3").Select   Cells(x, 8).Select a = Rows(ActiveCell.Row).Top b = Columns(ActiveCell.Column).Left t = t + 1 'crée le bouton Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Link:=False, DisplayAsIcon:=False, Left:=b, Top:=a, Width:=66, Height:=20) Obj.Name = "Modif" & x 'texte du bouton ActiveSheet.OLEObjects(1).Object.Caption = "Modifier" ActiveSheet.OLEObjects(1).Object.Font.Size = 8   'Le texte de la macro Code = "Sub Modif" & x & "()" & vbCrLf Code = Code & "Call Tester" & vbCrLf Code = Code & "End Sub" 'Ajoute la macro en fin de module feuille With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule .insertlines .CountOfLines + 1, Code End With

---

Alors je pense que le problème viens du

Citation:

---

ActiveSheet.OLEObjects(1)

---

parce que fut un temps ou j'avais pas d'erreur mais les propriétés du bouton n’était appliqué que sur le premier.
J'avais alors essayé de mettre un compteur t à la place du 1.

En passant j'ai trouvé ce code sur internet, surement sur ce forum d’ailleurs et je ne comprend pas tout donc si vous pouvez m'apporter quelques explications, je suis pas contre..

Infos : le x est un compteur qui correspond au numéro de la ligne

Merci beaucoup d'avance

Baldo

Bonjour,

Ça ne répond pas à ta question, mais je me demande le but de mettre des boutons à chaque ligne...
Tu pourrais ajouter des menus contextuels (click droit) pour ajouter/modifier/supprimer/... la ligne sur laquelle tu te trouves.

Ça serait moins lourd que des composants graphiques et très facile à gérer.

re
bonjour je suis l'idée de parmi

ou alors au pire
laisser1 seul bouton et le déplacer et le rendre visible avec l'évènement sélection change du sheet et l rendre invisible dans la sub "tester"

et dans la sub tester traiter l'activecell

Bonjour,

D'abord merci de vos réponses.
Alors effectivement j'ai pris le partie d'abandonner cette idée de boutons. J'ai préféré faire une cellule cliquable parce qu'effectivement c'est beaucoup plus simple. (C'est pour une tablette avec un stylet donc parmi il vaut mieux un double clique). De plus la fonction de suppression n'est pas nécessaire.

Cependant j'ai de nouveaux problèmes. Mais avant je dois vous poser une question, serait-il possible de récupérer l'adresse d'une cellule qu'on double clique et de la transmettre à un sub que l'on appelle? Sinon je crée une sub par ligne (ça va devenir un peu le bazar mais bon .. ) C'est le partie pris pour l'instant est mon code ressemble à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Code As String   Sheets("Feuil3").Select   Code = "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" & vbCrLf Code = Code & "Call ModifierLigne_" & x & " & Target.Cells(" & x & ",8)" & vbCrLf Code = Code & "Cancel = True" & vbCrLf Code = Code & "End Sub"   'Ajoute la macro en fin de module feuille With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule .insertlines .CountOfLines + 1, Code End With

---

le code généré est donc :

Code:

---

1 2 3 4

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Call ModifierLigne_16 & Target.Cells(16,8) Cancel = True End Sub

---

Sauf que sur la deuxième ligne il y a une erreur de syntaxe que je ne vois pas ..

Et deuxième problème ça marche la première fois mais après il faudrait juste modifier cette sub et rajouter une nouvelle ligne "Call ....." pour chaque nouvelle ligne parce que sinon j'ai un beau "nom ambigu détecté".

re
dans le this workbook directement je ferait cela moi

Code:

---

1 2 3

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row = 16 Then ModifierLigne_16 Target End Sub

---

et ta sub en dur dans un module et non dynamique

Re

Le problème c'est que j'ai plusieurs feuilles donc ça risque de se déclencher si je double clique dans une autre feuille ?

Ensuite j'ai besoin de faire ça pour toutes le lignes : une petite image pour mieux comprendre ..
Pièce jointe 223962

Donc comme on vois il faut que ça marche sur chaque ligne. ça donnerai ça :

Code:

---

1 2 3 4 5

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) numeroLigne = Target.Row If Target.Column = 8 Then ModifierLigne Target End Sub

---

et comme ça je pourrais récupérer le numéro de la ligne. à transmettre à ma sub ModifierLigne (ce qui me permet d'en avoir qu'une seule et dans un module)
Bon sauf que ça marche pas j'ai un "nombre d'arguments incorrect ou propriété incorrecte" à la compilation (est ce que c'est parce que j'ai enlevé le "target.row =...) ? D'ailleurs je comprend pas pourquoi c'est " then call ModifierLigne"

prend ce fichier et regarde dans le module this workbook et dans le module standard

J'ai failli oublié, Merci bcp de votre aide !!