- Quelqu'un pourrait-il me dire pourquoi lorsque j'effectue la macro ci-dessous, l'erreur 91 apparait La recherche et la suppression du mot ce font bien pourtant...
- Est-ce qu'il manquerait un terme a employer avec SET
Sub SUPPRESSION_MOT()
Do
With [B5:B4000].Find("NENT", Range("B5:B4000")([B5:B4000].Count), xlValues, xlWhole, , xlNext, False).Select
Selection.EntireRow.Delete
End With
Loop
End Sub
Cette formule supprime le mot NENT et supprime les lignes vides.
Sub SupprimerNENT()
Dim i As Integer, s
s = 0
For i = 1 To 4000
If Range("b1" & Range("b4000").Value)(i) = "NENT" Then
s = s + 1
Range("b1:b4000")(i).Value = ""
End If
Next i
With Range("b1:b4000", Range("b4000").End(xlUp)). _
SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Petite correction, la macro supprime les lignes vides à condition qu'il n y ait aucune données dans les autres colonnes, dans ces mêmes lignes.
Par exemple si tu as NENT en b6 et que en D6 il y a quelque chose, le NENT sera supprimer mais pas la ligne.
NHenry : la syntaxe employée fait référence à une valeur de type long qui déternimine la position d'un objet dans une plage donnée.
Mais bon je bloque toujours sur la syntaxe...
jpleroisse : La macro fonctionne très bien. J'aurais du y penser plutôt vu que c'est quasiment la même qu'hier qui a était employée pour la recherche des nombres > 20.