Supression colonne

Bonjour,

j'ai un petit souci avec ce code qui, est censé supprimé la colonne dans l'onglet "parametrage" portant le nom de la valeur de ma Combobox (qui ne fonctionne pas, et qui supprime l'onglet à ce nom (qui fonctionne)

Code: Tout sélectionner

Private Sub CommandButton1_Click()

A = ComboBox1.Value

Dim cL%, i% 'Supression colonne

cL = Worksheets("parametrage").Cells(1, 256).End(xlToLeft).Column

For i = cL To 1 Step -1

If Cells(1, i) = A Then Columns(i).Delete

Next i

Worksheets(A).Delete

End Sub

je vous joint mon fichier

Le problème vient sans doute de là:

If Cells(1, i) = A Then sheets("parametrage").Columns(i).Delete

Bonjour,

j'ai essayé ton code mais sa me mais une erreur (erreur de compilation bloc if)

Private Sub CommandButton1_Click()
A = ComboBox1.Value
Dim cL%, i% 'Supression colonne
  If Cells(1, i) = A Then Sheets("parametrage").Columns(i).Delete
End If
A = ComboBox1.Value
Worksheets(A).Delete 'Supression onglet

Dim x As Integer 'Supression ligne dans parametrage
With ThisWorkbook.Sheets("parametrage")
            For x = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1
'je travaille sur la colonn
'Rows.count permet de retourner le nombre de ligne de la plage range
                        If .Range("A" & x).Value = ComboBox1.Value Then
                                   .Rows(x).Delete
                        End If
            Next x
End With
End Sub

Private Sub CommandButton1_Click()
A = ComboBox1.Value
Dim cL%, i% 'Supression colonne
cL = Worksheets("parametrage").Cells(1, 256).End(xlToLeft).Column
For i = cL To 1 Step -1
If Cells(1, i) = A Then 
Sheets("parametrage").Columns(i).Delete
end if
Next i
Worksheets(A).Delete
End Sub

désolé EngueEngue,

ça ne mais plus le message d'erreur mais ça ne fonctionne pas nom plus

Vire TOUT et mets:

Private Sub userform_Initialize()
ComboBox1.Clear
For Each x In Sheets
    ComboBox1.AddItem x.Name
Next

End Sub

Private Sub CommandButton1_Click()
    A = ComboBox1.Value
    Dim cL%, i% 'Supression colonne
    cL = Worksheets("parametrage").Cells(1, 256).End(xlToLeft).Column
    For i = cL To 1 Step -1
    If Cells(1, i) = A Then
    Sheets("parametrage").Columns(i).Delete
    End If
    Next i
    Worksheets(A).Delete
End Sub

Si tu mets trois fois le private sub... normal que ça déconne

j'ai essayé mais ça fait la même chose l'onglet paramétrage contient toujours les nom que je supprime dans les colonnes

ps: désolé je suis vraiment embêtant

Il supprime bien la colonne contenant le nom selectionné dans ta combobox1

non ils y sont encore

Ok, bonne journée bolosse!

merci, tout de meme