Ecriture Plage de données dans VBA

ShuarS · 13 Janvier 2020

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 ???

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

mapomme · 13 Janvier 2020

Bonjour @ShuarS,

pour moi:

R3 = R(ow)3 = Ligne 3
C4 = C(olumn)4 = colonne D
R502=R(ow)502 = Ligne 502
C15 = C(olumn)15 = colonne O
donc R3C4:R502C15 = D3:O502 ou plus exactement $D$3:$O$502

ShuarS · 13 Janvier 2020

Salut @mapomme

C'est aussi simple que ça …
Merci j'étais un peu perdu.

Nickel

Staple1600 · 13 Janvier 2020

Bonsoir le fil, ShuarS, mapomme

ShuarS
[Pour infos]
Ces trois écritures font la même chose

VB:

Sub Macro1_test()
    [D1].FormulaR1C1 = "=SUM(R3C4:R500C15)"
    [E1].Formula = "=SUM($D$3:$O$500)"
    [F1].FormulaLocal = "=SOMME($D$3:$O$500)"
End Sub

ShuarS · 14 Janvier 2020

Merci @Staple1600 et bonne journée

Ecriture Plage de données dans VBA

ShuarS

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

ShuarS

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

ShuarS

XLDnaute Occasionnel

Discussions similaires