c'est damgui !!
mon prog avance mais j ai un pb
voila je vous l 'expose
j ai une feuille nommé "remontbase"
cette feuille a une plage de a1 à al 2000
elle est alimenté par 15 autres feuilles.
dans ce tableau il y a des lignes vides
ce que je veux faire
Sur une ligne si la collone 1 et 3 est vide, il supprime la ligne sinon il
laisse la lignes
exemple
ligne 1 est suprimé car Colonne 1 et 3 sont vide dans la ligne 1
J avais ce script mais ca tourne dans le vide
Sub DelEmpty()
Dim iRow As Long
For iRow = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(iRow, "A").Value = "" And _
Cells(iRow, "C").Value = "" Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Peut etre que cette routine tourne a l'infini arf ...............; :-[
J avais ce script meme pb ca tourne dans le vide
Sub Supprimer_lignes_vides()
'
' Macro enregistrée le 24/06/2002 par MPFE'
' Supprime les lignes vides d'un tableau
derniereligne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereligne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
BouBou
Bonsoir damgui,
Sub DelEmpty() 'si la colonne 1 et 3 est vide, il supprime la ligne Dim derligne As Long Dim r As Integer derligne = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = derligne To 1 Step -1 If Application.CountA(Cells(r, 1)) = 0 And Application.CountA(Cells(r, 3)) = 0 Then Rows(r).Delete Next r End Sub
BouBou
Bonsoir damgui,
Sub DelEmpty()
'si la colonne 1 et 3 est vide, il supprime la ligne
Dim derligne As Long
Dim r As Integer
derligne = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derligne To 1 Step -1
If Application.CountA(Cells(r, 1)) = 0 And
Application.CountA(Cells(r, 3)) = 0 Then Rows(r).Delete
Next r
End Sub
Sub DelEmpty() 'si la colonne 1 et 3 est vide, il supprime la ligne Dim derligne As Long Dim r As Integer derligne = ActiveSheet.UsedRange.Row - 1 + _ ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For r = derligne To 1 Step -1 If Application.CountA(Cells(r, 1)) = 0 And Application.CountA(Cells(r, 3)) = 0 Then Rows(r).Delete Next r End Sub
