Recherv en vba
Abby
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
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
-
Bonjour,
plusieurs hypothèses pour l'arrêt...
le mieux serait deMettre 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
-
-
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
-
-
en fait, il n'y a pas besoin de VBA pour traiter ce problème....
