Discussion :

[Kimy_Ire]

Bonjour à tous,

J'ai exploré les concaténations avec la méthode "evaluate" .

Malgré tout, mon problème persiste. Je pense que cela vient du fait que je ne sais pas ce que retourne un type "range".

Voici mon bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        i = 1
        Do While Tableau5(i, weeks_tot - 2) <> 0
            Worksheets("Evolution graphs").Range("Q53").Offset(i - 1, 0) = Tableau5(i, weeks_tot - 2)
            Set Range_test = Worksheets("Evolution graphs").Range("Q53", Worksheets("Evolution graphs").Range("Q53").Offset(i - 1, 0))
            i = i + 1
        Loop
 
        'Ici se situe le problème => Erreur 13 / Incompatibilité de type
        Tb = Evaluate("=LOGEST(""" & Range_test & """)")
        'ou
        Tb = Evaluate("=LOGEST(" & Range_test & ")")

Je voudrais évaluer =LOGEST(Q53:Q67). Mais Range_test évolue.
A savoir : en tapant Tb = Evaluate("=LOGEST(Q53:Q67)"), le programme fonctionne.

Cela doit donc venir du fait que Range_test ne retourne pas Q53:Q67...

Avez vous des suggestions ?

Merci par avance pour vos réponses !

Kimy

[gFZT82]

Bonjour,

A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Tb = Evaluate("=LOGEST(""" & Range_test.Address(0,0) & """)")

Cordialement.

[Kimy_Ire]

PARFAIT !!!

Je n'ai jamais utilisé .Address.

Je vais me renseigner sur cette méthode !

MERCI BEAUCOUP !

Kimy