Discussion :

[zindix]

Bonjour,

Pour un projet VBA, j'ai besoin d'ajoute une formule dans une cellule ayant une colonne fixe mais une ligne différente. Mon code effectue ce qui est demandé mais j'ai un code erreur 424 sur cette formule.
Pouvez-vous me dire pourquoi ?
Merci d'avance.

Code :

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

Worksheets("bdd").Range("F" & rangee).Value.Formula = "si(E&rangee >35,"""",G&rangee)"

[mat955]

Bonjour,

Tu ne peux pas écrire

Code :

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

Objet.value.formula

Soit Value, soit formula, mais pas les deux

[Menhir]

De plus, une formule Excel commence toujours par un "="

De plus, si tu veux utiliser les fonctions francophones, il faudra utiliser FormulaLocal et non Formula qui ne comprend que les fonctions anglophones.

De plus, si "rangee" est une variable VBA, il faut la sortir de la partie entre "" pour pouvoir la concaténer.

[zindix]

De plus, une formule Excel commence toujours par un "="

De plus, si tu veux utiliser les fonctions francophones, il faudra utiliser FormulaLocal et non Formula qui ne comprend que les fonctions anglophones.

De plus, si "rangee" est une variable VBA, il faut la sortir de la partie entre "" pour pouvoir la concaténer.

Comment je fais pour enlever rangee des guillemets puisqu'il faut des guillemets pour mettre la formule non ?

Code :

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

1
2
3
rangee = Worksheets("bdd").Range("A3000").End(xlUp).Row + 1
 
Worksheets("bdd").Range("F" & rangee).FormulaLocal = "=si(E&rangee >35,"""",G&rangee)"

J'ai écris ça et la j'ai

Erreur d'exécution 1004, erreur définie pour l''application ou par l'objet.

[halaster08]

Comment je fais pour enlever rangee des guillemets puisqu'il faut des guillemets pour mettre la formule non ?

Bonjour

Comme ceci: (note la coloration syntaxique du site, toujours pratique pour vérifier ce que tu met en texte et/ou en variable)

Code :

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

1
2
 
Worksheets("bdd").Range("F" & rangee).FormulaLocal = "=si(E" & rangee &" >35,"""",G" & rangee &")"

[zindix]

Bonjour

Comme ceci: (note la coloration syntaxique du site, toujours pratique pour vérifier ce que tu met en texte et/ou en variable)

Code :

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

1
2
 
Worksheets("bdd").Range("F" & rangee).FormulaLocal = "=si(E" & rangee &" >35,"""",G" & rangee &")"

J'ai copié collé ta formule et pareil erreur 1004, il me rentre toute mes valeurs sauf celle la

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub CommandButton1_Click()
rangee = Worksheets("bdd").Range("A3000").End(xlUp).Row + 1
 
Worksheets("bdd").Range("A" & rangee).Value = TextBox1.Value
 
Worksheets("bdd").Range("B" & rangee).Value = TextBox2.Value
 
Worksheets("bdd").Range("C" & rangee).Value = TextBox3.Value
 
Worksheets("bdd").Range("G" & rangee).Value = ComboBox1.Value
 
Worksheets("bdd").Range("I" & rangee).Value = TextBox6.Value
 
Worksheets("bdd").Range("H" & rangee).Value = "Dimanche"
 
'Worksheets("bdd").Range("F" & rangee).FormulaLocal = "=si(E&rangee >35,"""",G&rangee)"
 
Worksheets("bdd").Range("F" & rangee).FormulaLocal = "=si(E" & rangee & " >35,"" "",G" & rangee & ")"""
 
 
 
End Sub

Voici mon code complet.
Je ne comprend pas pourquoi rien ne se marque avec cette dernière.

[halaster08]

Ceci fonctionne chez moi ( je n'ai pas l'habitude de travailler en formulalocal)

Code :

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

Worksheets("bdd").Range("F" & rangee).Formula = "=if(E" & rangee & " >35,"" "",G" & rangee & ")"

Edit: en formulalocal il faut remplacer les "," par des ";"

Code :

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

Worksheets("bdd").Range("F" & rangee).FormulaLocal = "=si(E" & rangee & " >35;"" "";G" & rangee & ")"

[Menhir]

Code :

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

Worksheets("bdd").Range("F" & rangee).FormulaLocal = "=si(E" & rangee & ">35;"""";G" & rangee & ")"

Il y avait quelques espaces en trop mais surtout deux " en trop à la fin et les ";" francophone à la place des "," anglphones.