Insérer formule Excel par le VBA

Version imprimable

Bonjour,

j'essaie de part ce code
Code:

1 2 3 .Cells(19, 11).Formula = "=IF(OR(" & .Cells(19, 3).Address(0, 0) & "=" & """" & "," & .Cells(19, 8).Address(0, 0) & "=" & """" _ & ")," & """" & ",(MOD(" & .Cells(19, 8).Address(0, 0) & "-" & .Cells(19, 3).Address(0, 0) & ",1)-IF(" & .Cells(19, 8).Address(0, 0) & ">" & .Cells(19, 3).Address(0, 0) & _ ",MAX(0,MIN(" & .Cells(19, 8).Address(0, 0) & ",1)-MAX(" & .Cells(19, 3).Address(0, 0) & ",6/24)),MAX(0,1 - MAX(" & .Cells(19, 3).Address(0, 0) & ",6/24))+MAX(0,MIN(" & .Cells(19, 8).Address(0, 0) & ",1)-6/24))))"
d'insérer la formule excel suivante qui marche à merveille :

Code:

=SI(OU(C19="";H19="");"";(MOD(H19-C19;1)-SI(H19>C19;MAX(0;MIN(H19;24/24)-MAX(C19;6/24));MAX(0;24/24-MAX(C19;6/24))+MAX(0;MIN(H19;24/24)-6/24))))

cependant un erreur subsiste dans le code VBA car il bloque lors du lancement de la macro.

si quelqu'un aurait une idée d'où ça peut venir...

merci

Bonjour,

Essai comme ça :

Code:

1
2
3
 
.Cells(19, 11).Formula = "=IF(OR(" & .Cells(19, 3).Address(0, 0) & "=""""," & .Cells(19, 8).Address(0, 0) & "=""""" & "),"""",(MOD(" & .Cells(19, 8).Address(0, 0) & "-" & .Cells(19, 3).Address(0, 0) & ",1)-IF(" & .Cells(19, 8).Address(0, 0) & ">" & .Cells(19, 3).Address(0, 0) & _
",MAX(0,MIN(" & .Cells(19, 8).Address(0, 0) & ",1)-MAX(" & .Cells(19, 3).Address(0, 0) & ",6/24)),MAX(0,1 - MAX(" & .Cells(19, 3).Address(0, 0) & ",6/24))+MAX(0,MIN(" & .Cells(19, 8).Address(0, 0) & ",1)-6/24))))"

Hervé.

Bonjour,
Une autre solution par l'utilisation de balises.
Pour éviter dans la formule quatre guillemets pour tester si une cellule est vide ou bien pour écrire une chaîne vide, j'utilise une variable qui contient deux guillemets entourés du code ascii des guillemets (chr(34)
Donc si on se réfère à ton cas particulier, j'utiliserais trois balises. Une pour les chaînes vide, une pour l'adresse de la colonne C et une pour celle de la colonne H
Exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub t() Const FormulaMask As String = "=IF(OR(<adrC>=<chV>,<adrH>=<chV>),<chV>,(MOD(<adrH>-<adrC>,1)-IF(<adrH>><adrC>,MAX(0,MIN(<adrH>,24/24)-MAX(<adrC>,6/24)),MAX(0,24/24-MAX(<adrC>,6/24))+MAX(0,MIN(<adrH>,24/24)-6/24))))" Dim fn As String, ChV As String, adrC As String, adrH As String ChV = Chr(34) & "" & Chr(34) ' chr(34) code AscII des guillemets fn = Replace(FormulaMask, "<chV>", ChV) ' Remplace la balise <chV> par """" With Worksheets("Feuil1") adrC = .Cells(19, 3).Address(0, 0): adrH = .Cells(19, 8).Address(0, 0) fn = Replace(fn, "<adrC>", adrC) ' Remplace <adrC> par le contenu de la variable adrC fn = Replace(fn, "<adrH>", adrH) ' Remplace <adrH> par le contenu de la variable adrH .Cells(19, 2).Formula = fn End With End Sub