Bonjour,

MA formule ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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