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.

[Philippe Tulliez]

Bonjour,

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 ?

L'affichage du code de ta procédure publiée à l'ouverture de cette discussion ne le reflète pas.
Si tu as activé la feuille en début de procédure, il est évident que les objets Range utilisés dans cette procédure font partie de cette feuille mais ce n'est pas une bonne pratique.

[backx3]

C'est noté !

Merci pour tes precisions

Bonne journée

[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 )

[Philippe Tulliez]

Bonjour Lionel,

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

C'est ton choix mais si comme l'indique ta signature, tu es développeur informatique et que tu persistes à garder la propriété FormulaLocal pour écrire des formules dans Excel, je te promet bien du plaisir si un jour tu dois développer une application pour une entreprise française ou belge qui serait ou aurait une filiale étrangère.
La propriété Formula a pour avantage de pouvoir être utilisée quelque soit l'interface linguistique d'excel.

[lionel86500]

Non pas de filiale à l'étranger.

Jusqu'à ce jour je n'ai jamais connu de soucis.

je pense que tu es un expert en VBA Excel
pour ma part je me suis auto formé, j'ai appris le vba par l'exemple avec Internet.
Aujourd'hui j'arrive à développez des applications complexes, je suis sur quelle pourraient être optimisés mais elles fonctionnent et les utilisateurs en sont ravis.

[cerede2000]

J'adore cette partie

...elle pourraient être optimisés mais elles fonctionnent et les utilisateurs en sont ravis

Comme Windows quoi

[Philippe Tulliez]

Bonjour,

je pense que tu es un expert en VBA Excel
pour ma part je me suis auto formé, j'ai appris le vba par l'exemple avec Internet.
Aujourd'hui j'arrive à développez des applications complexes, je suis sur quelle pourraient être optimisés mais elles fonctionnent et les utilisateurs en sont ravis.

Je suis également un autodidacte et n'ai aucune formation de base en informatique.
Cependant je suis curieux et me remets constamment en question et suis toujours ouvert à ceux qui ont plus d'expériences que moi et lorsque quelqu'un me dit "Attention j'ai rencontré tel problème et l'ai résolu ainsi", je me précipite sur mes codes pour les modifier.

Non pas de filiale à l'étranger.

Avec le nombre de fusions, de rachats d'entreprises, je me méfierais

je suis sur quelle pourraient être optimisés

Ce n'est pas une question d'optimisation mais simplement du bon sens qui pérennise une application mais surtout facilite la maintenance et t'évitera peut-être des heures de recherche le jour où ton application sera utilisée par une machine avec une autre interface linguistique.

[lionel86500]

Moi aussi j'ai appris avec entre autre ce forum et j'essai toujours de voir ce qui se fait.
et quand une question est posée et que j'ai rencontré le problème et trouvé la solution je la donne.
c'est peu être pas toujours la meilleure, mais elle la le mérite d'être juste.

je vais donc ne plus faire de fausses notes et m'abstenir de répondre