Effacer une colonne selon critère

[Mebarek]

Bonjour à tous,

J'ai des colonnes de 1 à 12 (mois). Dans une cellule hors tableau, j'indique un numéro de mois. J'aimerais selon le numéro que j'indique dans cette cellule, que la colonne correspondante efface ses valeurs.

ex : si je tape 7, les valeurs de ma colonne à en-tête 7 disparaissent.


En vous remerciant tous


Cdlt

Yann

 

[porcinet82]

Re : Effacer une colonne selon critère

Salut Yann,

Je te propose 2 macro evenementielles (a mettre dand le module de feuille adéquate) :

• Si il s'agit de supprimer par exemple la colonne 7 (c'est a dire la colonne G):

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Not IsNumeric(Target.Value) Then
    MsgBox "Donnée non numérique"
    Target.ClearContents
    Exit Sub
End If
Columns(Target.Value).Delete
End Sub

• Si il s'agit de supprimer par exemple la colonne dont le libellé est 7 (je suppose les libellé en ligne 1):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Byte
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
    For j = 2 To 13
        If Cells(1, j).Value = Target.Value Then
            Columns(Target.Value).Delete
        End If
    Next j
Else
    MsgBox "Donnée non numérique"
    Target.ClearContents
End If
End Sub

Je suppose que la cellule en question est la cellule A1, a toi d'adapter. Si tu as des soucis n'hesite pas,

@+

 

[Mebarek]

Re : Effacer une colonne selon critère

La balle est donc dans mon camp !!!

Je te remercie vivement !