Microsoft 365 Suppression de cellules vide

Le Rouky · 22 Janvier 2024

Le forum,

j'ai essayé de faire une macro pour retirer les cases vide pouvant se trouver de le cellule "D" a la dernière cellule vide.
or lorsque je l'exécute en coloriant ces cellules, cela fonctionne, mais si j'essaye de les supprimer, il en supprime plus que prévu.
je ne comprends pas pourquoi, pourriez vous refaire mon code et me donner l'explication de mon erreur.

VB:

Private Sub Mise_en_Page()

lig = Cells(Rows.Count, 3).End(xlUp).Row

For I = 1 To lig
    col = 0
    col = Range("D" & I).End(xlToRight).Column - 1
    If Range("A" & I).Value <> "" And Range("D" & I).Value = "" Then
        For J = 4 To col
   
            'Range(Range("D" & I), Cells(I, J)).Delete Shift:=xlToLeft
            Range(Range("D" & I), Cells(I, J)).Interior.ColorIndex = 4
           
        Next J
    End If
Next I

End Sub

Cordialement

Phil69970 · 23 Janvier 2024

Bonjour @Le Rouky

Edit Bonjour @mapomme

Le Rouky à dit:
mais si j'essaye de les supprimer, il en supprime plus que prévu.

Essaye ceci

VB:

Private Sub Mise_en_Page()
lig = Cells(Rows.Count, 3).End(xlUp).Row
For i = lig To 1 Step -1
    If Range("A" & i).Value <> "" And Range("D" & i).Value = "" Then
        col = Range("D" & i).End(xlToRight).Column - 1
        Range(Range("D" & i), Cells(i, col)).Delete Shift:=xlToLeft
    End If
Next i
End Sub

mapomme · 23 Janvier 2024

Bonsoir @Le Rouky ,

Pour la suppression :

VB:

Private Sub Mise_en_Page()
   On Error Resume Next
   Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
   On Error GoTo 0
End Sub

Phil69970 · 23 Janvier 2024

Bonjour @Le Rouky

Edit Bonjour @mapomme

Le Rouky à dit:
mais si j'essaye de les supprimer, il en supprime plus que prévu.

Essaye ceci

VB:

Private Sub Mise_en_Page()
lig = Cells(Rows.Count, 3).End(xlUp).Row
For i = lig To 1 Step -1
    If Range("A" & i).Value <> "" And Range("D" & i).Value = "" Then
        col = Range("D" & i).End(xlToRight).Column - 1
        Range(Range("D" & i), Cells(i, col)).Delete Shift:=xlToLeft
    End If
Next i
End Sub

Le Rouky · 23 Janvier 2024

Le forum,@mapomme , @Phil69970 .

Merci de vos réponses,
@mapomme , je ne connaissais pas cette solution trop radicale.

@Phil69970 , commencer par le bas du tableau ne m'était pas venu à l'esprit.

Merci à vous deux.

Cordialement

Microsoft 365 Suppression de cellules vide

Le Rouky

XLDnaute Nouveau

Pièces jointes

Phil69970

mapomme

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Le Rouky

XLDnaute Nouveau

Discussions similaires