Y
Yves
Guest
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.
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.