[VBA/EXCEL2003] Définir cellule dans macro
Résolu
Bonjour,
Après quelques recherches sur Internet, j'ai réussi à créer une macro qui supprime les lignes vides dans la plage de cellule définie, à savoir, ("A20", "K89") dont voici le code :
Sub Effacer_ligne()
Dim p As Range, i As Long
Set p = ActiveSheet.Range("A3", "D17")
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Delete 'ICI
Next i
End With
End Sub
A l'heure actuelle, la ligne est supprimée si toute la ligne est vide.. J'aimerai faire en sorte que la ligne soit supprimée si la cellule en colonne A est vide et uniquement pour cette condition. Que faut-il modifier ?
Merci
Après quelques recherches sur Internet, j'ai réussi à créer une macro qui supprime les lignes vides dans la plage de cellule définie, à savoir, ("A20", "K89") dont voici le code :
Sub Effacer_ligne()
Dim p As Range, i As Long
Set p = ActiveSheet.Range("A3", "D17")
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Delete 'ICI
Next i
End With
End Sub
A l'heure actuelle, la ligne est supprimée si toute la ligne est vide.. J'aimerai faire en sorte que la ligne soit supprimée si la cellule en colonne A est vide et uniquement pour cette condition. Que faut-il modifier ?
Merci
