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
A voir également:
- VBA boucle sur une recherche V
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Hyper-v download - Télécharger - Divers Utilitaires
- Comment faire une recherche à partir d'une photo - Guide
- Je recherche une chanson - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
2 réponses
Bonjour,
Tu commences de la même manière puis :
@+
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
@+