Discussion :

[awa123]

Bonjour,

j'essaie de part ce code

Code :

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

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 :

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

  =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

[Theze]

Bonjour,

Essai comme ça :

Code :

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

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é.

[Philippe Tulliez]

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 :

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

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