Discussion :

[typouce]

Bonjour,

Avez vous un code VBA permettant de supprimer les colonnes de la colonne B à ["la dernière colonne non vide] -9 colonnes ?

Mon code est le suivant

Code :

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

1
2
    Columns("C:DX").Select
    Selection.Delete Shift:=xlToLeft

Mais mon soucis c'est que le nombre de colonne entre la colonne C et la dernière colonne - 9 colonnes peut varier.

Merci par avance pour votre aide.

Cordialement.

[antonysansh]

Voila de quoi avoir la derniere colonne :

Code :

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

1
2
Dim Deniere_Colonne&
Deniere_Colonne = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column

[typouce]

Bonjour et merci pour ton aide,

Par conter je n'arrive pas à l'exploiter pour supprimer les colonnes souhaitées car le code renvoie un numéro alors que le format des colonne est en lettre

[Marc-L]

Bonjour,

et non ! Les colonnes sont aussi référencées numériquement :

Code :

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

1
2
3
4
5
Sub Demo()
    With ActiveSheet.UsedRange.Columns
        Columns(2).Resize(, .Item(.Count).Column - 10).Delete
    End With
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________

Je suis Charlie - Je suis Bardo

[joe.levrai]

Code :

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

Range(Columns(3), Columns(Deniere_Colonne)).Delete

[Marc-L]

Par sécurité, vérifier s'il y a au moins une colonne à supprimer :

Code :

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

1
2
3
4
Sub Demo()
    With ActiveSheet.UsedRange.Columns:  R& = .Item(.Count).Column - 10:  End With
    If R > 0 Then Columns(2).Resize(, R).Delete
End Sub

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Igloobel]

Bonjour,

j'ai découvert récemment "UsedRange" qui récupère la dernière ligne ou la dernière colonne où il y a une donnée

Code :

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

1
2
3
4
5
6
7
8
Sub Calc_dern_Lig_Col()
   Dim Nom As String
   Nom = "Feuil1"
 
   MsgBox "Ligne : " & ThisWorkbook.Worksheets(Nom).UsedRange.Rows.Count & vbCrLf & _
   "Colonne : " & ThisWorkbook.Worksheets(Nom).UsedRange.Columns.Count
 
End Sub

sinon j'ai trouvé sur msdn

Cet exemple permet de supprimer les colonnes vides d’une plage sélectionnée.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
VBACopier
 Sub Delete_Empty_Columns()
    'The range from which to delete the columns.
    Dim rnSelection As Range
 
    'Column and count variables used in the deletion process.
    Dim lnLastColumn As Long
    Dim lnColumnCount As Long
    Dim lnDeletedColumns As Long
 
    lnDeletedColumns = 0
 
    'Confirm that a range is selected, and that the range is contiguous.
    If TypeName(Selection) = "Range" Then
        If Selection.Areas.Count = 1 Then
 
            'Initialize the range to what the user has selected, and initialize the count for the upcoming FOR loop.
            Set rnSelection = Application.Selection
            lnLastColumn = rnSelection.Columns.Count
 
            'Start at the far-right column and work left: if the column is empty then
            'delete the column and increment the deleted column count.
            For lnColumnCount = lnLastColumn To 1 Step -1
                If Application.CountA(rnSelection.Columns(lnColumnCount)) = 0 Then
                    rnSelection.Columns(lnColumnCount).Delete
                    lnDeletedColumns = lnDeletedColumns + 1
                End If
            Next lnColumnCount
 
            rnSelection.Resize(lnLastColumn - lnDeletedColumns).Select
        Else
            MsgBox "Please select only one area.", vbInformation
        End If
    Else
        MsgBox "Please select a range.", vbInformation
    End If
 
    'Turn screen updating back on.
    Application.ScreenUpdating = True
 
End Sub

A adapter à ton pbl

A

Une fois de plus Marc-L

je

[Marc-L]

Merci !

Et j'en ai profité pour corriger une coquille : la virgule manquait avant le R dans le Resize du post #6 …