bonjour
voici 2 macros que j'ai testé mais qui ne fonctionnent pas
je veux juste supprimer les lignes qui n'ont pas de valeur mais "" à la place
cf par exemple formule suivante :
=SI(GAUCHE(tcd!A4;1)="6";tcd!A4;"")
si pour cette ligne pas de valeur alors la supprimer de manière à ne garder que les lignes renseignées
j'utiliserais cette macro dans mon fichier macro personnelle car elle devra être utilisée sur divers classeurs excel
je ne vois pas ce qui cloche mais c'est peut être évident pour quelqu'un d'autre car j'ai le nez dessus depuis ce matin
Sub EffaceLignesVides()
With ActivSheet
For i = 4 To .Range("A65536").End(xlUp).Row
If Cells(i, 1) = "" Then .Cells(i, 1).EntireRow.ClearContents
Next
End With
End Sub
Sub supprimelignesvides()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub
merci à tous ceux qui pourront m'aider
voici 2 macros que j'ai testé mais qui ne fonctionnent pas
je veux juste supprimer les lignes qui n'ont pas de valeur mais "" à la place
cf par exemple formule suivante :
=SI(GAUCHE(tcd!A4;1)="6";tcd!A4;"")
si pour cette ligne pas de valeur alors la supprimer de manière à ne garder que les lignes renseignées
j'utiliserais cette macro dans mon fichier macro personnelle car elle devra être utilisée sur divers classeurs excel
je ne vois pas ce qui cloche mais c'est peut être évident pour quelqu'un d'autre car j'ai le nez dessus depuis ce matin
Sub EffaceLignesVides()
With ActivSheet
For i = 4 To .Range("A65536").End(xlUp).Row
If Cells(i, 1) = "" Then .Cells(i, 1).EntireRow.ClearContents
Next
End With
End Sub
Sub supprimelignesvides()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next i
End Sub
merci à tous ceux qui pourront m'aider