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