Nono94260
Messages postés5Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention31 mars 2005
-
31 mars 2005 à 11:43
Nono94260
Messages postés5Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention31 mars 2005
-
31 mars 2005 à 15:32
Bonjour,
- 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
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 31 mars 2005 à 13:47
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
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 31 mars 2005 à 13:50
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.
Nono94260
Messages postés5Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention31 mars 2005 31 mars 2005 à 15:32
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.