VBA: Ligne de code qui ne fonctionne pas pour supprimer une colonne en fonction d'une combobox
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:
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à?
