Bonjour,
Je me sert de Excel pour faire des rapports, une fois le travail terminé j'aimrais faire une macro qui va permettre d'effacer tous les lignes qui ne son pas utilisées.
Par exemple :
Plancher : En moquette.
Mur : En Gypse.
Plafond : En tuile acoustique.
Porte :
Fenêtres : En verre thermal.
Donc, comme il n'y a pas de porte j'aimerai effacer la ligne. J'ai fait une macro, mais quand il n'y a plus rien à chercher, il y a un message d'erreur.
La voici quand même :
Sub YASvide()
'
' YASvide Macro
' Macro recorded 2004-10-03 by YASéguin
'
'
Dim i, z As Integer
z = 2000
For i = 1 To z
If i = z = False Then
Range("C1").Select
Cells.Find(What:="YASvide", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Cells(ActiveCell.Row, 1)).Select
Selection.EntireRow.Delete
End If
Next i
MsgBox "Opération de Nettoyage" & vbLf & "Terminée", vbOKOnly, "YAS conmmande"
End Sub
Merci à l'avance.