Bonjour,
J'ai un problème dans une formule. J'ai besoin de changer les cellules d'un code en fonction des plages concernées.
Pour cela j'ai créé une sorte de condition puis j'ai intégré ma formule. mon problème c'est que je n'arrive pas à faire voir les doubles "" . J'ai essayé d'utiliser ch(34) mais ça ne fonctionne pas
Voilà le code VBA
Sub nb_degerbage()
Dim i As Integer
Dim j As Integer
Dim c As String
i = 3
j = 0
While ActiveSheet.Cells(i, 20).Text <> ""
If ActiveSheet.Cells(i, 20).Text <> 0 Then
If i <> 3 Then
ActiveSheet.Cells(j, 22).FormulaR1C1 = "=SI(T" & j & "<>"";SOMMEPROD(1/NB.SI($S$" & j & ":$S$" & i - 1 & ";$S$" & j & ":$S$" & i - 1 & "))-SOMMEPROD(1/NB.SI($P$" & j & ":$P$" & i - 1 & ";$P$" & j & ":$P$" & i - 1 & "));"")"
End If
j = i
End If
i = i + 1
Wend
End Sub
voila ce que je voudrais que le code vois dans la case V3
=SI(T4<>"";SOMMEPROD(1/NB.SI($S$3:$S$27;$S$3:$S$27))-SOMMEPROD(1/NB.SI($P$3:$P$27;$P$3:$P$7));"")
voila ce qui ce passe, je perd un " au debut et à la fin
=SI('T3'<>";SOMMEPROD(1/NB.SI($S$3:$S$27;$S$3:$S$27))-SOMMEPROD(1/NB.SI($P$3:$P$27;$P$3:$P$27));")
j'ai essayer de tripler les """", d'utiliser ch(34), de déclarer une varriable " afin que le conde vois ceci en entré
SI(T" & j & "<>[B]""[/B] et non seulment un seul " idem en sortie
je vous met le fichier en pièces jointe
(pour information, ce calcule me permet de connaitre le nombre de dégerbage à effectuer. Vous aurez compris j'ai besoin de calculer ce nombre pour chaque code camion donc dans ce fichier j'ai besoin de ce nombre aussi dans les cases V28 et V46)
cordialement
Ludovic
J'ai un problème dans une formule. J'ai besoin de changer les cellules d'un code en fonction des plages concernées.
Pour cela j'ai créé une sorte de condition puis j'ai intégré ma formule. mon problème c'est que je n'arrive pas à faire voir les doubles "" . J'ai essayé d'utiliser ch(34) mais ça ne fonctionne pas
Voilà le code VBA
Sub nb_degerbage()
Dim i As Integer
Dim j As Integer
Dim c As String
i = 3
j = 0
While ActiveSheet.Cells(i, 20).Text <> ""
If ActiveSheet.Cells(i, 20).Text <> 0 Then
If i <> 3 Then
ActiveSheet.Cells(j, 22).FormulaR1C1 = "=SI(T" & j & "<>"";SOMMEPROD(1/NB.SI($S$" & j & ":$S$" & i - 1 & ";$S$" & j & ":$S$" & i - 1 & "))-SOMMEPROD(1/NB.SI($P$" & j & ":$P$" & i - 1 & ";$P$" & j & ":$P$" & i - 1 & "));"")"
End If
j = i
End If
i = i + 1
Wend
End Sub
voila ce que je voudrais que le code vois dans la case V3
=SI(T4<>"";SOMMEPROD(1/NB.SI($S$3:$S$27;$S$3:$S$27))-SOMMEPROD(1/NB.SI($P$3:$P$27;$P$3:$P$7));"")
voila ce qui ce passe, je perd un " au debut et à la fin
=SI('T3'<>";SOMMEPROD(1/NB.SI($S$3:$S$27;$S$3:$S$27))-SOMMEPROD(1/NB.SI($P$3:$P$27;$P$3:$P$27));")
j'ai essayer de tripler les """", d'utiliser ch(34), de déclarer une varriable " afin que le conde vois ceci en entré
SI(T" & j & "<>[B]""[/B] et non seulment un seul " idem en sortie
je vous met le fichier en pièces jointe
(pour information, ce calcule me permet de connaitre le nombre de dégerbage à effectuer. Vous aurez compris j'ai besoin de calculer ce nombre pour chaque code camion donc dans ce fichier j'ai besoin de ce nombre aussi dans les cases V28 et V46)
cordialement
Ludovic
Pièces jointes
Dernière édition: