Probleme d'apostrophe dans une cellule en macros

Bonjour,

Je me permet de venir vers vous car j'ai un petit problème dans un macro ...

Voila je vous expose mon problème j'essaye d'écrire via un macro une apostrophe ( ' ) . Or voila cela me génère des problèmes ...

Je vous donne mon code qui me pose problème :

Var1 = 2
Var2 = 7
    While Var1 <= Nombre
        Cells(Var2, 9) = Var1
        Cells(Var2, 8).Formula = "="
            CellForm = "="
            CellForm1 = "'"
            CellForm2 = Var1
            CellForm3 = "O"
            CellForm4 = "229"
   Cells(Var2, 8).Formula = CellForm & "CellForm1" & CellForm2 & "CellForm1" & CellForm3 & CellForm4
             Var1 = Var1 + 1
             Var2 = Var2 + 1
    Wend

cela me génère un débogage malheureusement

Mais lorsque je met

CellForm1 = test 

dans ma cellule destinataire j'ai bien =test2testO229 alors que je souhaiterais avoir ='2'O229

Si quelqu'un connais une solution ou pourrais me donner une idée je suis tout à fait preneur car je m'arrache les cheveux depuis deux jour à développer mon fichier ...

Je vous remercie infiniment pour les réponse qui pourrons m'être donner

Bonjour,

Qu'est-ce qu'est censée renvoyer la formule ='2'O229 ?

A+

Bonsoir,

Ou une chaîne de caractères (texte)?

Question pas claire

Cdlt.

bonsoir;

essaie ainsi

    Var1 = 2
    Var2 = 7
    While Var1 <= nombre
        Cells(Var2, 9) = Var1
        CellForm = "="
        CellForm1 = "'"
        CellForm2 = Var1
        CellForm3 = "!O"
        CellForm4 = "229"
        Cells(Var2, 8).Formula = CellForm & CellForm1 & CellForm2 & CellForm1 & CellForm3 & CellForm4
        Var1 = Var1 + 1
        Var2 = Var2 + 1
    Wend

frangy a écrit :

Bonjour,

Qu'est-ce qu'est censée renvoyer la formule ='2'O229 ?

A+

Bonsoir ,

En faite la formule va me permettre d'incrémenter suivant une variable les cellule d'uns colonne dans ma feuille principale . car j'ai déjà un script qui me créer les différentes feuilles et qui les renommes automatiquement en 1 , 2 , 3 ....

Et donc il faut que j'arrive à dire que ma cellule soit égale à la valeur de la feuille 2 cellule O229 et la ligne suivante feuille 3 cellule O229 et cela peu aller très loin ... sachant que les chiffres dans la cellule O229 des différentes feuilles ne sont pas encore calculer et qu'il serons calculer au fur à mesure que l'on replie les feuilles

( je sais pas si j'ai été assez explicite car le fichier malheureusement je peu pas l'envoyer trop confidentiel )

h2so4 a écrit :

bonsoir;

essaie ainsi

    Var1 = 2
    Var2 = 7
    While Var1 <= nombre
        Cells(Var2, 9) = Var1
        CellForm = "="
        CellForm1 = "'"
        CellForm2 = Var1
        CellForm3 = "!O"
        CellForm4 = "229"
        Cells(Var2, 8).Formula = CellForm & CellForm1 & CellForm2 & CellForm1 & CellForm3 & CellForm4
        Var1 = Var1 + 1
        Var2 = Var2 + 1
    Wend

Merci je vais tester demain matin des les premières heures

Bonjour,

Pourquoi autant de variables ?

Cells(Var2, 8).Formula = "='" & var1 & "'!O229"

ne suffit pas ?

eric

eriiic a écrit :

Bonjour,

Pourquoi autant de variables ?

Cells(Var2, 8).Formula = "='" & var1 & "'!O229"

ne suffit pas ?

eric

Merci je teste demain matin ( ok tout à l'heure ) et je vous tiens au courant !

eriiic a écrit :

Bonjour,

Pourquoi autant de variables ?

Cells(Var2, 8).Formula = "='" & var1 & "'!O229"

ne suffit pas ?

eric

Génial cela à parfaitement fonctionner je suis débloquer merci beaucoup !

Mais je me retrouve encore avec un problème d'apostrophe qui cette fois s'ajoute ou je veux pas qu'elle s'ajoute ....

        Cells(Var2, 7).Formula = "=LC(-1)*LC(-3)"

ce qui donne comme résultat dans ma cellule

='LC'(-1)*'LC'(-3)

Hors cette fois bah j'aimerais que cela me donne simplement =LC(-1)*LC(-3)

si une personne peu m'aider pour cela je vous remercie infiniment !

Bonjour,

Essaie avec

Cells(Var2, 7).FormulaR1C1Local = "=LC(-1)*LC(-3)"

A+

Génial !

Merci beaucoup pour vos réponse et votre réactivité

Cela à fonctionner à merveille