Recherv en vba

Abby -

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

Afficher la suite

2 réponses

Réponse 1 / 2
michel_m Contributeur
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
1. Abby
  
  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
2. michel_m Contributeur
  
  @AbbyQue faire à ton avis ?
  
  voir ce que je t'ai demandé
  
  libre à toi
  
  0
3. Abby
  
  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
4. f894009
  
  @Abbybonjour 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 Contributeur
en fait, il n'y a pas besoin de VBA pour traiter ce problème....

0
1. f894009
  
  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
2. michel_m Contributeur
  
  @f894009C'est pour ça que je demandais le classeur mais c'était trop demander de passer un peu de temps pour anonymiser le classeur
  
  0

Recherv en vba

2 réponses

Discussions similaires

Newsletters