XL 2010 supprimer ligne vide

[MASSJIPE]

Bonjour le forum
Est il possible de supprimer les lignes vide et autre voir fichier les lignes à supprimer sont repérer de couleur verte à savoir le tableau varie au fil de l'eau
merci

 

[Chris401]

Bonjour

Essaye ce code

Sub SupprimeLignes()
Dim deb As Integer, fin As Integer, i As Integer

deb = Range("F1").End(xlDown).Row - 1
fin = Range("B" & Rows.Count).End(xlUp).Row

Rows("1" & ":" & deb).Delete

For i = Range("B" & fin).Row To 3 Step -1
    If (IsNumeric(Range("C" & i)) And Range("C" & i) <> "") = False Then Rows(i).Delete
Next i

End Sub

 

[Staple1600]

Bonjour à tous

MASS JIPE
Il y a des cellules mises en vert et qui ne sont pas vides.
exemple
B2
B4:B11

Quel est le critère exacte pour supprimer la ligne
Les cellule de A à F d'une ligne doivent être vides?
Les cellules B et C d'une ligne doivent être vides?

Cette macro fonctionne si au préalable, on convertit Tableau1 en plage

Sub a()
Dim i&, DL&
Application.ScreenUpdating = False
DL = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To DL
If Application.CountBlank(Cells(i, "A").Resize(, 6)) = 6 Then
Cells(i, "H") = "X"
End If
Next
Columns("H:H").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End Sub

EDITION: Une variante sans boucle.

Sub b()
Dim DL&
Application.ScreenUpdating = False: DL = Cells(Rows.Count, "B").End(xlUp).Row
Range("H1:H" & DL).FormulaR1C1 = "=REPT(22,COUNTBLANK(RC[-7]:RC[-2])=6)*1"
Columns(8).SpecialCells(-4123, 1).EntireRow.Delete: Columns(8).Delete
End Sub

 

[MASSJIPE]

Bonjour
la ligne reste en rouge

If (IsNumeric(Range("C" & i)) And Range("C" & i) <> "") = False Then Rows(i).Delete

Merci

 

[Staple1600]

Re à tous

MASS JIPE
Très sympathique ta façon de superbement ignorer mes propositions...
Et encore plus sympathique de ne pas répondre à mes questions sur tes critères de suppression

 

[Chris401]

Re

Pas de soucis pour moi.
Je joins le fichier

 

[MASSJIPE]

Bonsoir
Pour chris401 ca fonctionne mais ou été le problème
bonsoir Staple 16 désolé de répondre si tard pour répondre à ta demande c'est comme le fichier de chris
Merci

 

[Staple1600]

Re à tous

MASS JIPE
Tu as essayé mes macros?
Et quel est ta réponse à mes questions concernant tes critères du suppression ?

 

[MASSJIPE]

Bonjour
je n'arrive pas à reproduire la même chose sur un autre classeur j'essais d'adapter le code de Chris401 je ne sais pas quoi modifier
Merci

 

[Staple1600]

Bonjour à tous

Re à tous
MASS JIPE
Tu as essayé mes macros?
Et quel est ta réponse à mes questions concernant tes critères du suppression ?

Peux-tu prendre le temps de répondre à mes questions, stp ?

Bonjour à tous
MASS JIPE
Quel est le critère exacte pour supprimer la ligne
Les cellule de A à F d'une ligne doivent être vides?
Les cellules B et C d'une ligne doivent être vides?

 

[MASSJIPE]

Re
Oui mais problème de plage (cellules fusionnés)
le fichier est un export de BO ensuite j'importe toute la feuille dans le classeur VIDES.xlsm pas de tableau en plage
C'est de supprimer toutes les lignes vides pour exemple les cellules verte et ca jusqu'à la dernière ligne
Merci

 

[Staple1600]

Re

MASSJIPE
Si on regarde ton fichier*
La cellule B3 n'est pas vide, elle contient 0000 - AUDIT
or la ligne 3 est en vert alors qu'elle n'est pas vide
Donc on ne devrait pas la supprimer, non ?
Alors merci de répondre précisément à cette question !!!
la ligne doit être entièrement vide ?
ou seulement les cellules d'une ligne qui va de la colonne A à la colonne K ?

 

[MASSJIPE]

Re
Elle doit être supprimer comme la ligne 15, 22, 33, 40, 49 etc.

 

[Chris401]

Bonjour

Vu le nombre de lignes, essaye ce code

Sub SupprimeLignes()
Application.ScreenUpdating = False
Dim deb As Integer, fin As Long

deb = Range("K1").End(xlDown).Row - 1
fin = Range("C" & Rows.Count).End(xlUp).Row

Rows("1" & ":" & deb).Delete

Range("L2:L" & fin).FormulaR1C1 = "=IF(ISNUMBER(RC[-4]),"""",""X"")"
Range("L2:L" & fin) = Range("L2:L" & fin).Value

Columns("L:L").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete

End Sub

 

[Staple1600]

Re , Bonjour Chris401

MASSJIPE
La dernière macro de Chris401 reprend peu ou prou la syntaxe que je te proposais dès le message#3
Est-ce à dire que tu n'avais pas testé ma proposition... ? 🙄

Je donc réactualise ma macro du message#3 à lecture de la relecture de mon code par Chris401.

Sub mC()
Dim DL&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
DL = Cells(Rows.Count, "C").End(xlUp).Row
With Range("M1:M" & DL)
    .Value = "=IF(COUNTBLANK(RC[-12]:RC[-2])=11,""$$$"",0)"
    .Value = .Value
End With
Columns(13).SpecialCells(2, 2).EntireRow.Delete
Columns(13).Delete
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

EDITION : Bonjour 00 😉