Sujet Précédent Sujet Suivant

Recherv en vba

Fermé
Abby - 11 mai 2017 à 10:28
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 11 mai 2017 à 15:58
Hello tout le monde,

Je suis debutante en programmation vba pour excel et je souhaite automatiser un proseccus de recherchv via le code ci dessous ( trés debutante je sais lol) et mon probleme il me rempli seulement les 50 premiéres cases et il s'arrete. Merci de votre aide.

Sub Recherchev()

Dim i As Integer

For i = 1 To 1000

With Sheets("Feuil1")

.Range("B" & i).Value = WorksheetFunction.VLookup(.Range("A" & i).Value, Sheets("Feuil3").Range("A1:E1000"), 5, False)

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

End With

Next

End Sub

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
11 mai 2017 à 11:38
Bonjour,

plusieurs hypothèses pour l'arrêt...
le mieux serait de 
Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci  dans votre message

Dans l’attente

0
Abby
11 mai 2017 à 11:59
Merci Michel de ta réponse.

J'ai detecté le probléme . En effet sur certains range il ne trouve pas de correspondence en Feuil3 dont bien evidemment la 51néme et il bloque la !!

Que faire à ton avis ?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > Abby
11 mai 2017 à 13:50
Que faire à ton avis ?

voir ce que je t'ai demandé

libre à toi
0
Abby
11 mai 2017 à 14:06
Rebonjour,

J'ai bien lu et malheuresement Toutes mes données sont confidentielles je peux pas partager le fichier :).

D'ou j'ai pris la peine d'expliquer que quand le programme ne trouve pas une cellule il s'arrete la sans prendre la peine de continuer sa recherchev.

J'éspére avoir été claire, please help ! et merci d'avance
0
f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708 > Abby
11 mai 2017 à 14:36
bonjour a vous deux,
Vous avez donc une erreur due au fait que la recherche echoue, donc ajoutez un traitement d'erreur
ex, dans votre cas 
On Error Resume  Next

avant la boucle for
0
Réponse 2 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
11 mai 2017 à 14:47
en fait, il n'y a pas besoin de VBA pour traiter ce problème....
0
f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
11 mai 2017 à 15:16
Bonjour michel_m
Tout a fait Thierry, de simples formules iraient tout aussi bien, reste a savoir ce qu'il fait dans le reste du VBA s'il y a suite
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303 > f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024
11 mai 2017 à 15:58
C'est pour ça que je demandais le classeur mais c'était trop demander de passer un peu de temps pour anonymiser le classeur
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses