Discussion :

[Baldo32]

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 :

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

voici mon code :

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

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

[parmi]

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.

[patricktoulon]

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

[Baldo32]

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 :

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

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 :

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

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é".

[patricktoulon]

re
dans le this workbook directement je ferait cela moi

Code :

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

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

[Baldo32]

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 ..


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

Code :

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

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"