VBA boucle sur une recherche V

Kris34 -  
 Kris34 -
Bonjour,

Je viens d'effectuer avec l'aide de personne cette macro now je voudrais mettre une boucle sur ma cellule E9 jusqu'à la cellule E725 ou alors stoper la boucle quand la cellule en colonne D est vide
En suite je rajouterais des conditions sur les cellules en colonne D car certaines devront efectuer une recherhce V et d'autres pas selon certains critères mais cela sera dans un prochain pas :)

Merci par avance pour toute aide

Sub testplantilla()

'voila un bout de code qui va ouvrir 2 fichier par la fenetre _
douverture manuelle et stocker les 2 classeurs dans 2 variable'

Dim classeur1, classeur2 As Workbook

Dim filename As Variant

filename = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , False)

Set classeur1 = Workbooks.Open(filename)

filename = Application.GetOpenFilename("fichier excel (*.xlsx), *.xlsx", _
, "Sélection de vos fichiers excel", , False)

Set classeur2 = Workbooks.Open(filename)

'ensuite tu faut utiliser ces 2 variables pour alimenter les cellules _
si tu dois alimenter dans le 1er classeur avec des références au 2eme'

classeur1.Sheets("bilan").Range("E9").Value = Application.WorksheetFunction.VLookup(classeur1.Sheets("bilan").Range("D9"), _
classeur2.Sheets("bilan").Range("D9:E725"), 2, 0)

End Sub

2 réponses

Gord21 Messages postés 928 Statut Membre 289
 
Bonjour,
Tu commences de la même manière puis :

...
Set classeur2 = Workbooks.Open(filename) 
For i = 0 to 716
   classeur1.Sheets("bilan").Range("E9").Offset(i, 0).Value = _
      Application.WorksheetFunction.VLookup( _
         classeur1.Sheets("bilan").Range("D9").Offset(i, 0), _ 
         classeur2.Sheets("bilan").Range("D9:E725"), 2, 0)
Next i

End Sub

@+
0
Kris34
 
Super mais pourquoi il me mets Erreur 1004 Impossibler de lire la propriété VLookup de la classe Worksheet Function alors qu'il m'execute la Recherche V ??
0