VBA boucle sur une recherche V
Kris34
-
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
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
-
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
@+ -
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 ??
