Recherche v avec une boocle
Fermé
oudi
-
3 sept. 2014 à 18:06
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 3 sept. 2014 à 19:05
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 3 sept. 2014 à 19:05
A voir également:
- Recherche v avec une boocle
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Hyper v download - Télécharger - Divers Utilitaires
- Je recherche une chanson - Guide
2 réponses
c'est bon j'ai trouvé :p
"=VLOOKUP(RC[-17],'[Hit_Solina_SLIP_2012_13_recode.xls]" & Sheets(i).Name & "'!C3:C11,9,0)"
il faut sortir Sheets(i).Name de la chaine...
"=VLOOKUP(RC[-17],'[Hit_Solina_SLIP_2012_13_recode.xls]" & Sheets(i).Name & "'!C3:C11,9,0)"
il faut sortir Sheets(i).Name de la chaine...
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
3 sept. 2014 à 19:05
3 sept. 2014 à 19:05
Bonjour,
Avec le code suivant, on balaye chaque feuille du classeur file2014 et on vérifie si une feuille du classeur file2013 a le même nom.
Si c'est le cas, on inscrit la formule en T8 dans la feuille concernée du classeur file2014 puis on effectue la copie incrémentée.
A+
Avec le code suivant, on balaye chaque feuille du classeur file2014 et on vérifie si une feuille du classeur file2013 a le même nom.
Si c'est le cas, on inscrit la formule en T8 dans la feuille concernée du classeur file2014 puis on effectue la copie incrémentée.
Sub Test()
Dim WbS As Workbook, WbC As Workbook
Dim WsC As Worksheet
Set WbS = Workbooks("file2013.xlsm")
Set WbC = Workbooks("file2014.xlsm")
For Each WsC In WbC.Worksheets
If FeuilleExiste(WbS, WsC.Name) Then
WsC.Range("T8").FormulaR1C1 = "=VLOOKUP(RC[-17],[" & WbS.Name & "]" & WsC.Name & "!C3:C11,9,FALSE)"
WsC.Range("T8").AutoFill Destination:=WsC.Range("T8:T30")
End If
Next WsC
End Sub
Function FeuilleExiste(WbS As Workbook, NomFeuille As String) As Boolean
Dim Ws As Worksheet
FeuilleExiste = False
For Each Ws In WbS.Worksheets
If Ws.Name = NomFeuille Then
FeuilleExiste = True
Exit Function
End If
Next
End Function
A+