Discussion :

[aurelu]

Bonjour les développeurs ,

Je me redirige vers vous car je n'arrive pas à résoudre mon problème tout d'abord 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
Private Sub UserForm_Activate() 'Remplissage de la combobox
Dim i As Integer
    Set d = CreateObject("Scripting.Dictionary")
    With Sheets("TBR")
        For i = 2 To .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
            If .Cells(1, i).Value <> "" Then d(.Cells(1, i).Value) = i
        Next i
    End With
    Me.ComboBox1.List = d.Keys
End Sub
 
Private Sub CommandButton1_Click()
   Dim d As Object
   Application.DisplayAlerts = False
    V = Me.ComboBox1.Value
    Sheets("TBR").Columns(d(Val(V))).Delete 'PROBLEME A CETTE LIGNE
    Sheets(V).Delete 'suppression de l'onglet qui porte la valeur de v
    Application.DisplayAlerts = True
    Unload Me
    UserForm1.Show
End Sub

L'ensemble de mon code fonctionne à part la ligne Sheets("TBR").Columns(d(Val(V))).Delete qui me met une erreur.

L'idée de ce code c'est que lorsque je sélectionne une valeur dans ma combobox et que je clique sur supprimer alors la colonne et l'onglet qui ont la valeur de la combobox se supprime.

Pour vous est-ce que la syntaxe est bonne déjà?

[Slooby]

Bonjour,

Pour supprimer une colonne il faut soit spécifier la colonne par son "numéro" ou sa "lettre" associée.

Dans ton code:

Code :

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

Sheets("TBR").Columns(d(Val(V))).Delete

Je ne vois pas pourquoi d(Val(V)) renverrai une lettre ou un numero.
Mais je me trompe peut-être, tu peux nous dire ce que tu as comme choix possible dans ton combobox?

PS:
Pour ma part, je remplacerai le:

Code :

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

 V = Me.ComboBox1.Value

par:

Code :

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

V = UserForm1.ComboBox1.Value

Le "Me" est une notion de développement Objet, qui, déclaré dans une classe, fait référence à son instance.
Or là ton bouton CommandButton1 est associé à ta feuille (onglet), et pas au UserForm1 non ?
Donc c'est possible que ton compilateur VBA comprenne ce que tu veux dire, mais j'en mettrai pas ma main à couper !

Slooby

[aurelu]

Bonjour,

Ce que je peux avoir comme valeur dans la combobox est du type : FE77712-PL01
Toujours avec la même structure

[casefayere]

Bonjour,
j'ai l'impression que tu ne répond pas à la question de Slooby

et pour controler si tu mettais cette ligne

Code :

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

MsgBox d(Val(V))

avant celle-ci

Code :

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

Sheets("TBR").Columns(d(Val(V))).Delete