Discussion :

[bladi]

Bonsoir à tous,

après avoir essayé toutes les solutions proposées sur vos forum, je n'arrive pas à supprimer les lignes et colonnes vides d'une feuille excel. ceci me permettra de limiter davantage mes données pour un éventuel traitement plus fine.

vous trouverez ci-joint la feuille (DATA_IN) pour laquelle je souhaite supprimer toutes les lignes vides et colonnes vides

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
'Déclaration variable
Dim derl, derc, PremierAgent  As Long
Sheets("DATA_IN").Select
derl = Range("A" & Rows.Count).End(xlUp).Row
derc = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
Range("TDB!E3").Value = derc
Range("DATA_IN!A:A").Select
PremierAgent = 0
i = 1
While Left(Cells(i, 1).Value, 5) <> "Agent"
PremierAgent = PremierAgent + 1
i = i + 1
Wend
Range("TDB!F4").Value = PremierAgent + 1
 
'Nettoyer 1ere Colonne DATA_IN
Sheets("DATA_IN").Select
For l = 1 To derl
        If Left(Cells(l, 1).Value, 5) <> "Agent" Then Cells(l, 1).Clear
    Next l
End
 
'supprimer colonnes vides DATA_IN
 
 Sheets("DATA_IN").Select
For c = derc To 1 Step -1
If Application.CountA(Columns(c)) = 1 Then Columns(c).Delete
Next c
 
'supprimer lignes vides DATA_IN
 Sheets("DATA_IN").Select
For r = derl To 1 Step -1
        If Application.CountA(Rows(r)) = 1 Then Rows(r).Delete
    Next r
 
End Sub

je vous remercie beaucoup par avance pour votre aide

[Patrice740]

vous trouverez ci-joint la feuille (DATA_IN) pour laquelle je souhaite supprimer toutes les lignes vides et colonnes vides

Essaies ce

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
Sub test()
Dim rng As Range
Dim ctr As Long
  Application.ScreenUpdating = False
  With Me
    Set rng = .UsedRange
    For ctr = .UsedRange.Rows.Count To 1 Step -1
      If .Cells(ctr, 1).Formula = "" And .Cells(ctr, 1).End(xlToRight).Column > .UsedRange.Columns.Count Then
        .Rows(ctr).Delete
      End If
    Next ctr
    For ctr = .UsedRange.Columns.Count To 1 Step -1
      If .Cells(1, ctr).Formula = "" And .Cells(1, ctr).End(xlDown).Row > .UsedRange.Rows.Count Then
        .Columns(ctr).Delete
      End If
    Next ctr
  End With
  Application.ScreenUpdating = True
End Sub

[bladi]

Merci patrick pour ta Réponse

en créant une macro nommé test et quand je l'execute ça me renvoi le message d'erreur "utilisation incorrect du mot clé Me". j'avoue que je ne suis pas doué coté user form....

peux tu me renvoyer la feuille avec la mcro dedans stp mais sans ajouter un bouton ou autre chose, car je compte insérer le code dedans une macro déja existante.

je te remercie beaucoup pour ton aide précieuse.

[Patrice740]

Re,

Il suffit de copier la macro dans le module de la feuille (et pas dans un module standard)

[bladi]

Top
Merci bcp
désolé pour le retard accusé