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

A voir également:

Recherv en vba
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Vba range avec variable ✓ - Forum VB / VBA
Vba dépassement de capacité ✓ - Forum Excel

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 310
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

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 ?

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

Que faire à ton avis ?

voir ce que je t'ai demandé

libre à toi

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

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709 > 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

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 310
11 mai 2017 à 14:47

en fait, il n'y a pas besoin de VBA pour traiter ce problème....

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
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

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310 > f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel