Discussion :

[lolobebop06]

Bonjour à tous,

J'ai déclaré une Constante publique au début de mes sub.

Code :

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

Public Const RevUndMgt_3 = "=""Revenues under management from Q3 "" &RIGHT(Date1,4)-1& "" to Q2 ""& RIGHT(Date1,4) &"" (2)"""

Utilisée dans mon code avec un find., je cherche à retrouver cette formule : ="Revenues under management from Q3 " &DROITE(Date1;4)-1& " to Q2 "&DROITE(Date1;4) & " (2)"
Mais j'ai une erreur Erreur d'execution 91: Variable objet ou variable de block with non définie.

Je pense que l'erreur vient de la fin du code car quand je teste

Code :

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

Public Const RevUndMgt_3 = "=""Revenues under management from Q3 "" &RIGHT(Date1,4)-1& "" to Q2 ""& RIGHT(Date1,4) "

pour la formule ="Revenues under management from Q3 " &DROITE(Date1;4)-1& " to Q2 "&DROITE(Date1;4)
ça marche.

Merci d'avance pour votre aide

[unparia]

Bonjour
On peut lire ceci dans l'aide VBA à propos des constantes (Const) :

Vous ne pouvez utiliser ni variables, ni fonctions définies par l'utilisateur ni fonctions Visual Basic intrinsèques (telles que Chr) dans des expressions attribuées à des constantes

[lolobebop06]

Bonjour Unparia,

serait-ce donc la faute d'un Chr ?

car je n'ai ni variable, ni fonction définie par moi même.

Merci

[Jean-Philippe André]

Salut,

la valeur que tu cherches ca serait plutot

Code :

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

Debug.Print Application.Evaluate(RevUndMgt_3)

[lolobebop06]

Au final j'ai réussi à trouver. Il faut obligatoirement respecter les mêmes espaces avec les & et les vrais espaces et utiliser exactement la même nomenclature.

Pour la formule ="Revenues under management from Q3 " &DROITE(Date1;4)-1& " to Q2 "& DROITE(Date1;4)&" (2)"
j'ai

Code :

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

Public Const RevUndMgt_3 As String = "=""Revenues under management from Q3 "" &RIGHT(Date1,4)-1& "" to Q2 ""& RIGHT(Date1,4)&"" (2)"""