formule en vba

Bonjour,

MA formule ne fonctionne pas :

Code:

---

1 2	SSheets("Ventilation").Range("Q6").Formula = "=SI(OU(B6=VentilSociete;B6="");F6*P6;0)"

---

lorsque je tente d'exécuter ma macro, un msg "Erreur définie pas l'application ou l'objet" s'affiche.
si je fais

Code:

---

Sheets("Ventilation").Range("Q6").Formula = "=5+6"

---

cela fonctionne

par ailleurs je voudrais ensuite insérer une ligne reprenant les formules de la ligne précédente,mais comment faire pour que celle-ci s'ajuste? et que donc cela devienne :

Code:

---

1 2	SSheets("Ventilation").Range("Q7").Formula = "=SI(OU(B7=VentilSociete;B6="");F7*P7;0)"

---

Bien entendu je peux changer les caractères avec les fonctions sur les chaines de caractère mais y'a t'il une autre méthode plus simple?

Merci

Nath

Salut,

Pour la formule (1ere question), il faut doubler les guillemets dans le test
et utiliser FormulaLocal:

Code:

---

Sheets("Ventilation").Range("Q6").FormulaLocal = "=SI(OU(B6=VentilSociete;B6="""");F6*P6;0)"

---

Pour la 2de question je n'ai pas bien compri ce que tu veux faire.

waouh la rapidité,merci je commençais à pester avec ma formule...

pour la deuxième c'est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub InsereLigne(control As IRibbonControl) Dim ir As Integer   ActiveCell.EntireRow.Select 'So you do not have to preselect entire row ir = ActiveCell.Row Selection.EntireRow.Insert Sheets("Ventilation").Range("Q" & ir).FormulaLocal = Sheets("Ventilation").Range("Q" & (ir - 1)).FormulaLocal     End Sub

---

voila mon code pour insérer une ligne mais le problème c'est que lorsque j'insérere une ligne, il recopie exactement la formule, alors que j'aimerias qu'il incrément les numéro de ligne.

Re,

Quelque chose comme ca peut etre:

Code:

---

Sheets("Ventilation").Range("Q" & ir - 1 & ":Q" & ir).FillDown

---

nikel ca fonctionne, merci bcp :ccool: