VBA : Supprimer une colonne et un onglet après sélection dans combobox

Version imprimable

16/06/2016, 12h09
aurelu

1 pièce(s) jointe(s)

VBA : Supprimer une colonne et un onglet après sélection dans combobox

Bonjour tout le monde,

J'ai un gros problème de codification depuis quelques jours j'espère que vous pourrez m'aider.

Je cherche à supprimer une colonne qui possède un en-tête en ligne 1 à partir de B1 par exemple B1="1".

Je cherche également à supprimer l'onglet qui porte le même nom que l'entête de la colonne que je souhaite supprimer.

Je suis passé par un userform composé d'un combobox et d'un bouton supprimé.

Concernant le combobox j'ai réussi à le coder mais mon gros soucis c'est de codé l'action du bouton supprimé.

Avez-vous une idée??? Vous trouverez un exemple de fichier le userform est à activer dans le developpeur. Pièce jointe 212954

Une idée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim d As Object
 
Private Sub CommandButton1_Click()
    Application.DisplayAlerts = False
    v = Me.ComboBox1.Value
    Sheets("résumé").Columns(d(Val(v))).Delete
    Sheets(v).Delete
    Application.DisplayAlerts = True
    Unload Me
    UserForm1.Show
End Sub
 
Private Sub UserForm_Activate()
Dim i As Integer
    Set d = CreateObject("Scripting.Dictionary")
    With Sheets("résumé")
        For i = 1 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

16/06/2016, 12h49
Menhir

Citation:

Envoyé par aurelu

Vous trouverez un exemple de fichier le userform est à activer dans le developpeur.

http://www.developpez.net/forums/d84...s-discussions/

Citation:

Je cherche à supprimer une colonne qui possède un en-tête en ligne 1 à partir de B1 par exemple B1="1".

Je ne comprends pas ce que tu expliques.
Est-ce que ça veut dire que tu veux scruter chaque colonne et supprimer celles qui ont la valeur 1 en première ligne ?

Dans ce cas, il faut faire une une boucle For Each sur les cellules de la ligne 1.
Pour chacune, tester si sa valeur est 1.
Si c'est le cas, faire un Delete sur EntireColumn de cette cellule.

Citation:

Je cherche également à supprimer l'onglet qui porte le même nom que l'entête de la colonne que je souhaite supprimer.

Je comprends de moins en moins.
Tu viens d'écrire que tu cherchais les colonne ayant "1" comme entête et maintenant, tu dis que tu veux supprimer les onglet qui porte un nom correspondant à l'entête de la colonne.
Est-ce que ça veut dire que tu veux supprimer les onglets nommés "1" ?

Pour supprimer un onglet, il faut utiliser la méthode Delete sur le Worksheet correspondant.

Citation:

Je suis passé par un userform composé d'un combobox et d'un bouton supprimé.

Etrange méthode.
Pourquoi ne pas avoir fait un simple bouton dans la feuille de calcul ?
16/06/2016, 13h50
aurelu

Alors je vais répondre point par point :

1er point: la première ligne à partir de B1 comporte des valeurs comme par EXEMPLE 1 mais ca peut être paul pierre 40404040 n'importe quoi. Ces valeurs représentent le nom des onglets qu'il peut y avoir dans la feuille.
Par exemple dans la feuille "résumé" en ligne 1 B1 = 1 c'est donc la colonne qui correspond à l'onglet 1; en ligne 1 C1 = 2 c'est donc la colonne qui correspond à l'onglet 2 etc...

2e point: ce que je cherche à faire c'est à l'aide du userform sélectionner dans ma combobox le nom de la colonne (et donc de l'onglet) que je veux supprimer. Par exemple : si je sélectionne dans ma combobox 1 alors la colonne qui comporte en ligne 1 la valeur de 1 est supprimée et l'onglet qui comporte la valeur de la combobox se supprime aussi

3e point : je passe par un userform car j'en ai besoin pour mon vrai fichier tout simplement ce que j'ai envoyé est un exemple du principe que je cherche à produire

En espérant avoir été assez clair...

Ton code fonctionne merci beaucoup!!!
Est-ce que ça te dérangerais de m'expliquer un peu en détail ton code car je suis un petit débutant du vba ^^

Voilà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim d As Object
 
Private Sub CommandButton1_Click()
    'On désactive les alertes (sinon tu en auras une au moment de supprimer l'onglet)
    Application.DisplayAlerts = False
    'On enregistre la valeur de la combobox
    v = Me.ComboBox1.Value
    'd(Val(v)), recherche l'item selon la clé Val(v), transforme un texte en numérique
    Sheets("résumé").Columns(d(Val(v))).Delete
    'On supprime l'onglet reprenant la valeur
    Sheets(v).Delete
    Application.DisplayAlerts = True
    'On décharge l'UF
    Unload Me
    'On réaffiche l'UF
    UserForm1.Show
End Sub
 
Private Sub UserForm_Activate()
Dim i As Integer
    'On crée un dictionnaire pour enregistrer en clef la valeur et en item le numéro de colonne
    Set d = CreateObject("Scripting.Dictionary")
    With Sheets("résumé")
        'On boucle de la 1ère colonne à la dernière remplie
        For i = 1 To .Cells.Find("*", , , , xlByColumns, xlPrevious).Column
            'S'il existe une valeur en ligne 1 et colonne i, on ajoute l'entrée dans le dictionnaire
            If .Cells(1, i).Value <> "" Then d(.Cells(1, i).Value) = i
        Next i
    End With
    'La combobox reprend toutes les clefs du dictionnaire
    Me.ComboBox1.List = d.Keys
End Sub

16/06/2016, 15h03
aurelu

1 pièce(s) jointe(s)

Merci pour tes explications :), cependant je rencontre encore un petit problème

Les deux parties de code fonctionnent indépendamment de l’autre :
L’une sert à supprimer les colonnes du « TBR » en fonction de la sélection que j’ai choisi dans mon combobox et l’autre sert à supprimer les onglets.
Par contre quand j’assemble les deux parties du code voila ce qu’il se passe :
Par exemple en ligne 1 à partir de B1 j’ai les valeurs dans l’ordre 1,2,3,4,5,6,7,8 etc… il en va de même pour les onglets
Si je sélectionne avec ma combobox la valeur 3 ça me supprime la colonne 3 mais ca me supprime les onglets 3 et 4 également par exemple…

Par contre si je supprime dans l'ordre 8,7,6,5,4,3,2,1 ça fonctionne correctement
Pièce jointe 212981
16/06/2016, 15h06
thebenoit59

Pourquoi avoir modifié le code qui fonctionnait correctement pour supprimer l'onglet et la colonne ?