VBA Cellule contenant des erreurs (#N/A)
Bonjour,
voila , j'ai un problème avec les cellules qui contient #N/A.
je cherche une boucle a intégré dans le code ci-dessus qui me permettrais de transformer toute les cellules de la colonne D qui
contiennent #N/A en cellules vides....
Sub recherche()
For x = D9 To D1000
Feuil2.[D9:D1000] = Application.VLookup(Feuil2.[C9:D100], Feuil3.[A2:B54], 2, False)
Next x
End Sub
Je suis complètement bloquée, quelqu'un aurait une idée?
merci beaucoup!
Bonjour swizer, voilà une proposition qui teste tous les cellules de la plage D9:D1000 et remplace les cellules avec une erreur par une valeur vide.
Sub test()
Dim valeur As Variant, x As Long
For x = 9 To 1000
valeur = Feuil2.Cells(x, 4)
If TypeName(valeur) = "Error" Then Feuil2.Cells(x, 4).Value = ""
Next x
End SubBonjour,
C'est mieux de traiter le problème à la source en complétant tes formules en D9:D1000 avec
=Sierreur(ta_formule;"")eric
Bonjour,
Avec un fichier joint on peut mieux t'aider. Essaye ça :
Sub recherche()
Feuil2.[D9:D1000] = WorksheetFunction.IfError(Application.VLookup(Feuil2.[C9:C1000], Feuil3.[A2:B54], 2, False), "")
End SubBonjour a tous ,
Merci pour votre aider,
C'est possible de fusionner les 2 code, je voudrais que le résultat de la rechercheV soit = une valeur, soit = 0
Sub recherche()
For x = D9 To D1000
Feuil2.[D9:D1000] = Application.VLookup(Feuil2.[C9:D100], Feuil3.[A2:B54], 2, False)
Next x
End Sub
et
Sub test()
Dim valeur As Variant, x As Long
For x = 9 To 1000
valeur = Feuil2.Cells(x, 4)
If TypeName(valeur) = "Error" Then Feuil2.Cells(x, 4).Value = ""
Next x
End Sub
Merci beaucoup.
Bonjour Raja
oui ça marche très bien
merci pour ton aide