Bonjour le Forum,
Je souhaiterais supprimer les lignes vides d'un tableau, cependant la difficulté c'est que les lignes remplies ne se suivent pas ..
c'est variable, on peut avoir
vous pouvez regarder l'exemple joint pour plus de détail
J'ai un code qui fait la même chose pour un tableau dont les lignes se succèdent ..
Sub supp()
Dim i As Variant
Dim cel As Range
For Each i In Array(7, 8, 9, 10, 11, 12)
Dim cellvalue As String
Cells(i, 3).Activate
cellvalue = ActiveCell.Value
If cellvalue = " " Then
Rows(i).Delete
End If
cellvalue = ActiveCell.Value
If cellvalue = " " Then
Rows(i).Delete
End If
cellvalue = ActiveCell.Value
If cellvalue = " " Then
Rows(i).Delete
End If
cellvalue = ActiveCell.Value
If cellvalue = " " Then
Rows(i).Delete
End If
cellvalue = ActiveCell.Value
If cellvalue = " " Then
Rows(i).Delete
End If
cellvalue = ActiveCell.Value
If cellvalue = " " Then
Rows(i).Delete
End If
Next i
End Sub
Quelqu'un pourrait-il m'aider ?
Merci bcp