RechercheV
Fermé
alikan
-
14 juin 2016 à 16:31
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 15 juin 2016 à 09:00
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 15 juin 2016 à 09:00
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
14 juin 2016 à 18:39
14 juin 2016 à 18:39
Bonjour
Sans voir le classeur, donc réponse aléatoire
Michel
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
15 juin 2016 à 09:00
15 juin 2016 à 09:00