Discussion :

[neninio31]

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 :

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

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

[mapeh]

Bonjour,

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

Code :

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

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

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

[neninio31]

le code du message ci-dessus ne fonctionne pas

erreur 408

Méthode non gérée par l'objet

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

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

If obj.Object.Caption = "VOIR" Then obj.Delete

[neninio31]

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 :

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

If obj.Object.Caption = "VOIR" Then obj.Delete

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

[neninio31]

les codes sont dans la discussion

créer message 1

supprimer message 3

merci

[mapeh]

RE-,

Comme tu le dis si bien :

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

[neninio31]

Re

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

Code :

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

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 :

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

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

Merci

[neninio31]

Bonjour
j'ai réussi a squizzer l'erreur avec ceci

Code :

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

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

[Krovax]

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

Code :

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

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 :

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

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 :

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

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 )

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

[neninio31]

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


pardon a tous les moderateurs pour les balises

Merci