Discussion :

[backx3]

Bonjour, j'essaie d'écrire une formule simple dans une cellule, et j'ai une erreur mais je ne comprends pas pourquoi.

Le code :

Code :

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

1
2
3
4
5
6
Sub ColonneD()
    Dim op As Integer
    op = Range("B" & Rows.Count).End(xlUp).Rows
    Range("D2:D" & op).Formula = "=SI(C1=C2;"x";C2)"
 
End Sub

Voici l'erreur :

Erreur de compilation :
Attendu : fin d'instruction


Merci d'avance pour votre aide !

[lionel86500]

Bonjour,

Tu ne peut pas mettre de guillemet dans des guillemets
j'ai eu le même problème et je l'ai solutionné comme cela

j'ai changé Formula en FormulaLocal

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub ColonneD()
    Dim op As Integer
    sguil = """"   ' cela représente 1 guillement
    ' MsgBox sguil
    op = Range("B" & Rows.Count).End(xlUp).Rows
    Range("D2:D" & op).FormulaLocal = "=SI(C1=C2;" & sguil & "x" & sguil & ";C2)"
 
End Sub

J'ai essayé ca marche

[backx3]

Merci de ta rapide réponse !

En prenant en compte ta réponse j'ai solutionné mon probleme comme cela :

Code :

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

Range("D2:D" & op).FormulaLocal = "=SI(C1=C2;""x"";C2)"

Et cela fonctionne, je te remercie beaucoup

[Philippe Tulliez]

Bonjour,
Si l'on souhaite avoir une application pérenne, il est préférable d'utiliser la propriété Formula et de plus il faut utiliser la filiation complète de l'objet Range, à savoir la feuille et son classeur.
Soit par exemple

Code :

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

1
2
3
4
5
 Dim op As Long
 With ThisWorkbook.Worksheets("Feuil1")
 op = .Range("B" & .Rows.Count).End(xlUp).Row
 .Range("D2:D" & op).Formula = "=IF(C1=C2,""x"",C2)"
 End With

ps : Il faut éviter aussi de typer une variable comme un Integer pour connaître le nombre de lignes car il est possible d'avoir plus de 32767 lignes

[Philippe Tulliez]

Bonjour Lionel,

Tu ne peut pas mettre de guillemet dans des guillemets

Dans une chaîne de caractères utilisée comme valeur de la propriété Formula ou FormulaLocal, ton affirmation est fausse.

[backx3]

Bonjour Philippe,

Merci pour tes precisions.

Je n'ai pas donné mon code entier et je travaille déjà sur la meme feuille précédemment. Est-il donc necessaire de rajouter du code comme tu l'a fait pour préciser la feuille ?

J'ai utilisé un Integer parce que je suis certain qu'il n'y aura pas plus de 50 lignes.

[lionel86500]

Bonjour,

Bonjour Lionel,

Dans une chaîne de caractères utilisée comme valeur de la propriété Formula ou FormulaLocal, ton affirmation est fausse.

je n'avais pas essayé de mettre double guillemet c'est vrai.
quand j'ai rencontré le problème je l'ai solutionné comme le l'ai invoqué.

en ce qui concerne formula ou formulalocal (je prends la seconde )