supprimer des objets crées dynamiquement

Version imprimable

Bonjour, j'ai enfin réussi a créer dynamiquement des objets mais .... maintenant il faut le supprimer (quelle galère ce code !!!!!)

voila mon bout de code qui crée les objets :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Activate()
 
Dim obj As OLEObject
 
    Dim i As Integer
    Dim n As Long
    n = Sheets("BD").Range("X2").Value - 1
 
For i = 0 To n
 
    Set obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1")
    With obj
        .left = 750 'position horizontale
        .top = 190 + i * 35 'position verticale
        .width = 63.75 'largeur
        .height = 25 'hauteur
        .Object.Caption = "VOIR"
        .Visible = True
    End With
    Next i
End Sub

Mais comment les supprimer maintenant sans mettre la pagaille dans ma feuille

Merci.

24/06/2009, 16h35
Access Newbie

Pourquoi supprimer ces boutons ? de plus que font-ils ? N'est-il pas possible de les rendre juste invisible ?

PS : j'ai inséré le code dans un nouveau classeur excel, et ca bug direct. Pourrait-on avoir un exemple du fichier ?

Bonjour,

comme tu les as créés avec comme Caption "VOIR", on va les supprimer grâce à cette propriété...
Code:

1 2 3 4 5 6 Sub suppr() Dim obj As OLEObject For Each obj In ActiveSheet.OLEObjects If obj.Object.Caption = "VOIR" Then obj.Delete Next obj End Sub

24/06/2009, 17h37
mapeh

Re-,

neninio31, ceci est un forum d'entr'aide, et non MSN....

Je ne réponds pas aux messages privés...

si tu as un souci avec le code fourni, utilise le forum...
24/06/2009, 22h13
neninio31

ça ne marche pas

le code du message ci-dessus ne fonctionne pas

erreur 408

Méthode non gérée par l'objet
24/06/2009, 22h39
mapeh

Re-,

c'est bizarre...

J'ai utilisé ton code pour créer les boutons...

Et mon code, pour les supprimer...

As-tu bien recopié tout le code, notamment :

Code:

If obj.Object.Caption = "VOIR" Then obj.Delete
25/06/2009, 12h35
neninio31

toujours pas

Non j'ai bien recopié le code et c'est justement à cette ligne que ça bloque

erreur 438

Propriété ou Méthode non géré par cet objet

Code:

If obj.Object.Caption = "VOIR" Then obj.Delete
25/06/2009, 21h25
mapeh

Bonsoir,

peux-tu mettre les 2 codes que tu utilises?

Le 1 er, pour créer tes CommandButtons...

Ainsi que le 2 ème, qui permet de les supprimer...

Stp...
25/06/2009, 21h31
neninio31

les codes sont dans la discussion

les codes sont dans la discussion

créer message 1

supprimer message 3

merci
25/06/2009, 21h48
mapeh

RE-,

Comme tu le dis si bien :

Citation:

les codes sont dans la discussion

créer message 1

supprimer message 3

Les réponses sont dans la discussion....

Ah, on n'avance pas?

Nan...

Etonnant...
25/06/2009, 21h56
neninio31
Re

oui je sais tres bien !! mais pour plus de precision j'ai copié ce code dans une
Code:

1 2 3 sub commandbutton_click() "code supprimer" (mot pour mot) end sub
et il me renvoit une erreur 438
Méthode ou propriété non géré par l'objet

j'ai le code au boulot mais je suis quasiment sur que ca vient de cette ligne

Code:

obj.Object.Caption="Voir" .....

Merci
26/06/2009, 10h29
neninio31

on y est presque
Bonjour
j'ai réussi a squizzer l'erreur avec ceci
Code:

1 2 3 4 5 6 7 Dim Obj As OLEObject For Each Obj In ActiveSheet.OLEObjects If Obj.name = ("VOIR") Then Obj.Delete Next Obj
mais le probleme c'est que ça ne supprime aucun bouton

svp je sens que j'y suis presque !!!!!!!

merci

Quand tu créés tes bouton tu donne un certain nombre d'info
Code:

1 2 3 4 5 6 .left = 750 'position horizontale .top = 190 + i * 35 'position verticale .width = 63.75 'largeur .height = 25 'hauteur .Object.Caption = "VOIR" .Visible = True
Tu ne leur donne pas de name du coup tu auras beau testé le nam des bouton tu ne trouvera rien.
Tu peux essaye de leur donner un nom (attention il devra etre unique)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 For i = 0 To n Set obj = ActiveSheet.OLEObjects.Add("Forms.CommandButton.1") With obj .left = 750 'position horizontale .top = 190 + i * 35 'position verticale .width = 63.75 'largeur .height = 25 'hauteur .Object.Caption = "VOIR" .Visible = True .name="VOIR" & n End With Next i End Sub
ensuite tu test les noms (enfin juste les 4 premier caractères)

Code:

If left(Obj.name,4) = "VOIR" Then Obj.Delete

Par contre dès que tu donne un code même un petit morceau utilise les balises, la les modérateur sont obligé de le faire a ta place pour que ton message soit lisible et a mon avis il ont vraiment autre chose a faire (ca leur laisserai le temps de répondre au questions par exemple et souvent ils sont vraiment bon)
Si tu ne sais pas faire tout est expliqué dans ce poste
http://www.developpez.net/forums/d56...ation-boutons/
Il y a un lien vers une démo très claire après avoir vu ca même un candidat de télé réalité pourrait le faire. (heu si il y en a qui passe sur le forum, ben heu vous avez le lien suffit de cliquer dessus :mouarf:)

Edit au passage profite en pour éditer tous les messages ou tu ne l' as pas fait

26/06/2009, 11h28
neninio31

merci merci merci et pardon pour les balises

merci tout est nickel
je suis presque au bout de ce maudit code

pardon a tous les moderateurs pour les balises

Merci