Discussion :

[sab_info]

Bonjour,

Je souhaite supprimer deux colonnes qui corresponde à une colonne d'un tableau à partir de la ligne 56.

Pour ce fait j'utilise ce code là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
      Range("H56:I56").Select
                Range(selection, selection.End(xlDown)).Select
                selection.Borders(xlEdgeTop).LineStyle = xlNone
                selection.Borders(xlEdgeBottom).LineStyle = xlNone
                selection.Borders(xlEdgeRight).LineStyle = xlNone
                selection.Borders(xlInsideVertical).LineStyle = xlNone
                selection.Borders(xlInsideHorizontal).LineStyle = xlNone
                selection.Delete Shift:=xlToLeft

Mais avec cette methode là ça me supprime juste la cellule de la ligne 56 alors que je veux supprimer de la cette cellule là jusqu'à la fin de ma feuille.

J'ai vu qu'il y avait une solution pour sélectionner deux colonnes qui est celle là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim cRange As Variant
 
Set cRange = Range(Columns(8), Columns(9))
cRange.Select
 
Selection.Delete Shift:=xlToLeft

Mais avec ce code là je supprime la totalité des colonnes alors que moi je souhaite les supprimer à partir de la ligne 56.

Avez vous une idée sur la solution ?

Merci

[Guiiand]

Bonjour,

Voici qui devrait répondre à tes attentes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SupprimerColonnes()
 
    Dim DerLigne As Integer
 
    DerLigne = Range("I" & Rows.Count).End(xlUp).Row
 
    Range("I56:J" & DerLigne).Delete shift:=xlUp
 
End Sub

[sab_info]

Bonjour et merci pour ta réponse
Cela dit je n'ai pas très bien compris ton code et je ne sais pas pourquoi t'as utilisé le "J".

Pour ma part j'ai utilisé ce code là en modifiant celui que j'ai posté en premier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim rRange As Variant
 
                    Set rRange = Range(Cells(57, 8), Cells(57, 9))
                    rRange.Select
                    selection.Delete Shift:=xlToLeft

Mais ça me supprime que la cellule 57 et 58

J'ai un autre souci aussi car cette suppression là je la fais quand une case est cochée .

Quand la case n'est plus coché je reconstruit les colonnes que j'avais supprimé , j'ai pu faire ça en enregistrant une macro.

Du coup j'ai un problème après la construction du tableau quand la case est devient cochée eh beh la suppression ne se réalise pas correctement

[Guiiand]

Bonjour,

La tete enfarinée, j'ai décalé d'une colonne, mais le principe est le meme, il y avait juste à corriger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SupprimerColonnes()
 
    Dim DerLigne As Integer
 
    DerLigne = Range("H" & Rows.Count).End(xlUp).Row
 
    Range("H56:I" & DerLigne).Delete shift:=xlUp
 
End Sub

[sab_info]

Oui ^^ ça m'a fait rire la tête enfarinée
Sinon j'ai utilisé ce code là pour résoudre mon problème de supression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Range("H57:I58").Select
                    selection.ClearContents
 
                    selection.Borders(xlDiagonalDown).LineStyle = xlNone
                    selection.Borders(xlDiagonalUp).LineStyle = xlNone
                    With selection.Borders(xlEdgeLeft)
                        .LineStyle = xlContinuous
                        .ColorIndex = 0
                        .TintAndShade = 0
                        .Weight = xlThin
                    End With
                    selection.Borders(xlEdgeTop).LineStyle = xlNone
                    selection.Borders(xlEdgeBottom).LineStyle = xlNone
                    selection.Borders(xlEdgeRight).LineStyle = xlNone
                    selection.Borders(xlInsideVertical).LineStyle = xlNone
                    selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Sachant que c'est une suppression de colonnes d'un tableau j'ai viré les bordures.

Je ne sais pas si ma solution est plus correcte que la tienne ?

Merci en tout cas pour ton aide