test d'une cellule sur la même ligne

[sebpika]

bonjour

en fait g crée une macro pour la suppréssion des ligne où il y a 0 ds la derniere colonne(cellule de résultat)
mais il faut que je conserve certaines des lignes même si il ya 0.
j'aurais aimé faire un deuxieme test ds la macro pour quelle regarde si ds la ligne il y une valeur spécifique (ex : desserte routiere).

voila le début de mon code

Sub try()
Selection.Merge
Range("B13").Select
Sheets("Feuil1").Select
Range("AA8").Select
Do Until ActiveCell = ""
If ActiveCell = "0" Then
Selection.EntireRow.Clear
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Loop

For lin = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Rows(lin).Find("*") Is Nothing Then Rows(lin).Delete
Next lin
End Sub


si vous pouvez m'aider ça serait cool
merci par avance
sebpika

 

[sebpika]

c bon g trouve tt seul
merci qd même
voila le code final

Sub try()
Selection.Merge
Range("B13").Select
Sheets("Feuil1").Select
Range("AA8").Select
Do Until ActiveCell = ""
If ActiveCell = "0" And ActiveCell.Offset(0, -26) <> "Desserte routiere" Then
Selection.EntireRow.Clear
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Loop

For lin = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Rows(lin).Find("*") Is Nothing Then Rows(lin).Delete
Next lin
End Sub

 

[sebpika]

re bijour
ben en fait je n'arrive pas à rajouter de conditions cad plusieurs termes comme desserte routiere.
g essaye avec or mais il ne comprend pas.
does someone can hlep me??

 

[A_Binouze_Drinker_Among_Others]

bonjour

If ActiveCell.value = "0" And ActiveCell.Offset(0, -26).value <> "Desserte routiere"


regarde aussi du côté de select case ou de instr

bye

 

[MR]

Sans prétention j'essaierai :

une boucle (après Do Until...) pour aller chercher dans une colonne dédiée les éléments à tester, le placer dans une variable et tester cette variable au lieu et place de "Desserte routière"