Macro suppression colonne en fonction d'un combobox

Bonjour à tous,

Je suis à la recherche d'une macro pour supprimer des colonnes dont le noms ne correspondraient pas avec le nom sélectionné dans une combobox.

Par exemple dans le fichier ci-joint, lorsque je sélectionne "Audit 4" dans ma combox, j'aimerais que toutes les autres colonnes avec les autres audit soient supprimées.

Avez-vous des idées ou des pistes de réflexions qui pourraient m'aider ?

Merci d'avance.

Cordialement

Johannes

Bonjour Youb
Voici une idée. Attention: une fois le choix fait, les colonnes sont définitivement supprimées.
Cdt
Henri

Bonjour Henri,

Merci beaucoup, c'est exactement ce que je cherche à faire.

Je vais regarder comment l'adapter à mon fichier.

Cordialement,
Johannes

Merci pour votre réponse,
Plus simple encore,
Remplacer le code par celui-ci

Private Sub ComboBox1_Change()
If MsgBox("Souhaitez-vous supprimer toutes les colonnes différentes de " & ComboBox1 & "?", vbYesNo) = vbNo Then
    Exit Sub
    Else
    col = Range(Cells(3, 4), Cells(4, DerCol)).Find(ComboBox1).Column
        Range(Columns(col + 1), Columns(DerCol)).Delete
    Range(Columns(col - 1), Columns(3)).Delete
    End If
End Sub

Cdt

Henri

Bonjour Henri,

J'ai réussi à adapter votre code à mon fichier.

Merci beaucoup pour votre aide !

Cordialement

Johannes

Bonjour Johannes,
Désolé mais la solution proposée n'était pas correcte, car si on choisit Audit 1 ou Audit 10, toutes les colonnes sont supprimées.

Voici la version Bis avec la 1ère solution (par formulaire) corrigée et une 2ème solution (plus rapide) avec un Double-Click sur la cellule de l'Audit à conserver.

Cdt

Henri

Bonjour Henri,

Merci pour tout, je ne m'étais pas rendu compte de cette erreur la.

Cordialement,

Johannes

Si votre Post est résolu, merci de le clôturer.
Bonne journée

Henri