A
amel
Guest
en fait voila, j'ai une feuille de calcul excel et dans la 1ere colonne j'ai des references de mois janv-05, févr-05... je voudrais qu'il ne garde que les lignes de reference 'févr-05' par exemple, donc je lui fais balayer tout la 1ere colonne, si il trouve 'févr-05' il ne fait rien, si il trouve une autre reference, il m'efface toute la ligne.... dans l'idéal il la supprime carrément...
lorsque j'execute ce code, il efface la feuille en totalité... j'ai limpression qu'il ne prends pas en compte le test....
Merci de m'aider...
For Each Cellule In Range('A3:A100')
If Cellule.Value <> 'févr-05' Then
'EntireRow.Value = ''
Cellule.Value = ''
End If
Next
y'a ça aussi toujours pour le meme truc, mais bon ça tourne et pire encore ça me donne 1feuille vierge!! toute blanche!! le test est transparent on dirait...
Dim NumLg
For Each Cellule In Range('A3:A100')
If Cellule.Value <> 'févr-05' Then
With Application.ActiveCell
NumLg = .Row
End With
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next
lorsque j'execute ce code, il efface la feuille en totalité... j'ai limpression qu'il ne prends pas en compte le test....
Merci de m'aider...
For Each Cellule In Range('A3:A100')
If Cellule.Value <> 'févr-05' Then
'EntireRow.Value = ''
Cellule.Value = ''
End If
Next
y'a ça aussi toujours pour le meme truc, mais bon ça tourne et pire encore ça me donne 1feuille vierge!! toute blanche!! le test est transparent on dirait...
Dim NumLg
For Each Cellule In Range('A3:A100')
If Cellule.Value <> 'févr-05' Then
With Application.ActiveCell
NumLg = .Row
End With
ActiveCell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next