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()
LoopMerci pour vos infos 😉
Shu
Dernière édition: