RechercheV

alikan -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 15 juin 2016 à 09:00

Bonjour,

j'essaie de faire un rechercheV avec VBA, tant que les données se trouvent la requête s'exécute mais une fois il tombe sur une valeur introuvable dans l'autre feuille il m'affiche une erreur : voici le code

Sub Bouton3_Cliquer()

Dim i As Integer
Dim j As Integer
Dim var As String

For i = 2 To 260
For j = 2 To 47

If IsEmpty(Sheets("Feuil3").Range("A" & j)) Then j = j + 1

var = WorksheetFunction.VLookup(Sheets("Feuil1").Range("A" & i), Sheets("Feuil3").Range("A:B"), 2, False)

If IsError(var) Then
MsgBox ("valeur introuvable")

Else

Sheets("Feuil1").Range("C" & i).Value = WorksheetFunction.VLookup(Sheets("Feuil1").Range("A" & i), Sheets("Feuil3").Range("A:B"), 2, False)

End If

Next j
Next i

End Sub

Ici le IsError ne marche pas j'ai essayé avec var = "" ca ne marche pas non plus.

Merci de maider :(

A voir également:

RechercheV
Recherchev texte ✓ - Forum Excel
Si recherchev ✓ - Forum Excel
Recherchev et rechercheh combiné ✓ - Forum Excel
Recherchev contient - Forum Excel
Si ma cellule contient du texte alors rien sinon recherchev - Forum Excel

2 réponses

Réponse 1 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour

Sans voir le classeur, donc réponse aléatoire

On Error GoTo Vide
        If IsEmpty(Sheets("Feuil3").Range("A" & j)) Then j = j + 1
                Var = WorksheetFunction.VLookup(Sheets("Feuil1").Range("A" & i), Sheets("Feuil3").Range("A:B"), 2, False)
            Else
            Sheets("Feuil1").Range("C" & i).Value = WorksheetFunction.VLookup(Sheets("Feuil1").Range("A" & i), Sheets("Feuil3").Range("A:B"), 2, False)
        End If
1:
    Next j
Next i

Exit Sub
Vide:
    Rep = MsgBox("valeur introuvable", vbAbortRetryIgnore)
    If Rep > 3 Then GoTo 1
End Sub

--
Michel

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

DOUBLON !!!
https://forums.commentcamarche.net/forum/affich-33620361-incompatiblite-de-type-avec-if

Discussions similaires

[Excel] Recherche de Texte avec RechercheV

RECHERCHEV additionne les plusieurs lignes du meme nom

formule Excel RECHERCHEv() avec du texte

RechercheV avec une partie du texte dans une base

Excel RechercheV renvoie mauvaise valeur

Votre réponse

Discussions similaires