ShuarS
XLDnaute Occasionnel
Salut à tous,
Savez vous pourquoi ma plage de donnée dans le code VBA ne correspond pas aux valeurs de la formule ?
Et comment je peux faire pour créer une correspondance ?
J'étais parti pour modifier légèrement cette zone mais du coup je ne trouve pas les valeurs correctes.
Et en passant par l'enregistreur, il me donne les valeurs "réelles"...
Donc pourquoi "R3C4:R502C15" correspond à $D$3:$O$500 ???
Merci pour vos infos
Shu
Savez vous pourquoi ma plage de donnée dans le code VBA ne correspond pas aux valeurs de la formule ?
Et comment je peux faire pour créer une correspondance ?
J'étais parti pour modifier légèrement cette zone mais du coup je ne trouve pas les valeurs correctes.
Et en passant par l'enregistreur, il me donne les valeurs "réelles"...
Donc pourquoi "R3C4:R502C15" correspond à $D$3:$O$500 ???
VB:
Do While Len(Fichier) > 0
'MsgBox (Fichier)
Workbooks("consolide_v2.xlsm").Worksheets(1).Range("A" & i) = Fichier
Workbooks("consolide_v2.xlsm").Worksheets(1).Range("B" & i) = Semaine
Workbooks("consolide_v2.xlsm").Worksheets(1).Range("C" & i).FormulaR1C1 = "=SUM('" & Chemin & "[" & Fichier & "]" & Semaine & "'!R3C4:R502C15)" '$D$3:$O$500
i = i + 1
Debug.Print Chemin & Fichier
Fichier = Dir()
Loop
Merci pour vos infos
Shu
Dernière édition: