Discussion :

[nath-0-0]

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

[Minick]

Salut,

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

Code :

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

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.

[nath-0-0]

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

pour la deuxième c'est :

Code :

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

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.

[Minick]

Re,

Quelque chose comme ca peut etre:

Code :

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

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

[nath-0-0]

nikel ca fonctionne, merci bcp