Discussion :

[magnum812]

Bonjour à tous,

J'ai un souci pour insérer une formule dans une cellule :
Dans une macro je veux insérer des données dans une BD en créant une nouvelle ligne avec ceci :

Code :

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

1
2
3
4
NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Range("A" & NewLig).Value = Variable1 ' Ici ça marche
.Range("B" & NewLig).Value = Variable2      ' Ici aussi
.Range("E" & NewLig).Value = Formule ' C'est ici que j'y arrive pas!

Ma formule devrait être du genre :

Code :

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

"=If("C" & NewLig ="Non";1;2)" ' Bien sur ça foire!!! Formule Excel: =Si(Cx="Non";1;2)

.... Je n'arrive pas à l'écrire convenablement.

Merci pour votre aide

Cordialement
Magnum812

[jfontaine]

Bonjour

Il faut utiliser Formula à la place de Value

Code :

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

.Range("E" & NewLig).Formula = "=If(C" & NewLig & "=""Non"";1;2)"

NB : Si tu veux mettre la formule en français, tu peux utiliser FormulaLocal à la place de Formula


edit : J'ai corriger la formule qui avait des erreurs dans les "

[magnum812]

Merci pour ta réponse jfontaine,

J'ai essayé mais ça ne fonctionne pas....
Le message d'erreur est :

Erreur d'execution '1004'
Erreur définie par l'application ou par l'objet

J'ai essayé de mofifier les " , mais sans succès....

Cordialement
Magnum812

[SfJ5Rpw8]

Remplace aussi les ; par des ,

Code :

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

.Range("E" & NewLig).Formula = "=If(C" & NewLig & "=""Non"",1,2)"

[magnum812]

Un grand Merci bbil, ça marche...

C'est vrai que j'ai des soucis avec les formules Excel vers VBA...

Est-ce qu'avec FormulaLocal on peut écrire les formules exactement comme avec Excel ?
Exemple:
xxxxx.FormulaLocal = "=SI(C3="Non";1;2)" ou "=SI(C & NewLig ="Non";1;2)" ou quelque chose dans ce genre...

Merci pour vos réponses

Cordialement
Magnum812

[SfJ5Rpw8]

oui .. mais tu peu aussi vérifier ta syntaxe en écrivant ta formule sous excel puis grâce aux touches ALT-F11 (Pour passer dans l'éditeur VBA) puis CTRL+G pour afficher la fenêtre d'exécution et tu affiche la formule en tapant le code dans cette fenêtre exécution :

Code :

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

? range("A1").Formula