Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne pas, je
m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod correspondante
tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà fonctionne
mais çà plante lorsque j'essaye d'y intégrer une boucle avec notamment la
valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne pas, je
m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod correspondante
tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà fonctionne
mais çà plante lorsque j'essaye d'y intégrer une boucle avec notamment la
valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne pas, je
m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod correspondante
tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà fonctionne
mais çà plante lorsque j'essaye d'y intégrer une boucle avec notamment la
valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Salut,
Lorsque tu écris la formule entre guillements, vba essaye d'inscrire mot
pout mot ce que tu as écrit. Ta formule aurait donc été :
=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)
(C'est-à-dire exactement ce que tu as tapé dans vba.)
Ca provoque évidemment une erreur.
Pour remplacer les dl, zei, rdv et autres variables par leurs valeurs, il
ne
faut pas qu'ils soient dans les guillements, mais concaténer toute la
formule. Exemple :
="sum(A1:A" & Variable & ")"
(pour =somme(a1:ax), x changeant)
La première formule de ta macro devient donc (attention aux retours à la
ligne) :
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 = "=SUMPRODUCT((R1C2:R" & dl
&
"C2=rdv)*(R1C4:R" & dl & "C4=" & jour & ")*(R1C6:R" & dl & "C6=" & zei &
")*1)"
Je te laisse faire de même pour la deuxième formule.
A+
--
Nicolas B.
Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsCBonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Salut,
Lorsque tu écris la formule entre guillements, vba essaye d'inscrire mot
pout mot ce que tu as écrit. Ta formule aurait donc été :
=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)
(C'est-à-dire exactement ce que tu as tapé dans vba.)
Ca provoque évidemment une erreur.
Pour remplacer les dl, zei, rdv et autres variables par leurs valeurs, il
ne
faut pas qu'ils soient dans les guillements, mais concaténer toute la
formule. Exemple :
="sum(A1:A" & Variable & ")"
(pour =somme(a1:ax), x changeant)
La première formule de ta macro devient donc (attention aux retours à la
ligne) :
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 = "=SUMPRODUCT((R1C2:R" & dl
&
"C2=rdv)*(R1C4:R" & dl & "C4=" & jour & ")*(R1C6:R" & dl & "C6=" & zei &
")*1)"
Je te laisse faire de même pour la deuxième formule.
A+
--
Nicolas B.
Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Salut,
Lorsque tu écris la formule entre guillements, vba essaye d'inscrire mot
pout mot ce que tu as écrit. Ta formule aurait donc été :
=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)
(C'est-à-dire exactement ce que tu as tapé dans vba.)
Ca provoque évidemment une erreur.
Pour remplacer les dl, zei, rdv et autres variables par leurs valeurs, il
ne
faut pas qu'ils soient dans les guillements, mais concaténer toute la
formule. Exemple :
="sum(A1:A" & Variable & ")"
(pour =somme(a1:ax), x changeant)
La première formule de ta macro devient donc (attention aux retours à la
ligne) :
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 = "=SUMPRODUCT((R1C2:R" & dl
&
"C2=rdv)*(R1C4:R" & dl & "C4=" & jour & ")*(R1C6:R" & dl & "C6=" & zei &
")*1)"
Je te laisse faire de même pour la deuxième formule.
A+
--
Nicolas B.
Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsCBonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Bonjour,
Pas regardé en détail mais a priori problème avec R1C2:R & dl & C2
R1C2R:R et C2 ne sont pas des variables, et ne peuvent pas être concaténées
avec dl directement. idem pour les autres concaténations
Pas d'erreur signalée par VBA car c'est dans une formule, entre guillemets.
Pour VBA, l'ensemble est une chaîne de caractères, donc aucun contrôle.Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne pas, je
m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod correspondante
tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà fonctionne
mais çà plante lorsque j'essaye d'y intégrer une boucle avec notamment la
valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour,
Pas regardé en détail mais a priori problème avec R1C2:R & dl & C2
R1C2R:R et C2 ne sont pas des variables, et ne peuvent pas être concaténées
avec dl directement. idem pour les autres concaténations
Pas d'erreur signalée par VBA car c'est dans une formule, entre guillemets.
Pour VBA, l'ensemble est une chaîne de caractères, donc aucun contrôle.
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne pas, je
m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod correspondante
tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà fonctionne
mais çà plante lorsque j'essaye d'y intégrer une boucle avec notamment la
valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Bonjour,
Pas regardé en détail mais a priori problème avec R1C2:R & dl & C2
R1C2R:R et C2 ne sont pas des variables, et ne peuvent pas être concaténées
avec dl directement. idem pour les autres concaténations
Pas d'erreur signalée par VBA car c'est dans une formule, entre guillemets.
Pour VBA, l'ensemble est une chaîne de caractères, donc aucun contrôle.Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne pas, je
m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod correspondante
tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà fonctionne
mais çà plante lorsque j'essaye d'y intégrer une boucle avec notamment la
valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
--
Cordialement,
Michel Gaboly
http://www.gaboly.com
Salut,
Lorsque tu écris la formule entre guillements, vba essaye d'inscrire mot
pout mot ce que tu as écrit. Ta formule aurait donc été :
=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)
(C'est-à-dire exactement ce que tu as tapé dans vba.)
Ca provoque évidemment une erreur.
Pour remplacer les dl, zei, rdv et autres variables par leurs valeurs, il ne
faut pas qu'ils soient dans les guillements, mais concaténer toute la
formule. Exemple :
="sum(A1:A" & Variable & ")"
(pour =somme(a1:ax), x changeant)
La première formule de ta macro devient donc (attention aux retours à la
ligne) :
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 = "=SUMPRODUCT((R1C2:R" & dl &
"C2=rdv)*(R1C4:R" & dl & "C4=" & jour & ")*(R1C6:R" & dl & "C6=" & zei &
")*1)"
Je te laisse faire de même pour la deuxième formule.
A+
--
Nicolas B.
Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsCBonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Salut,
Lorsque tu écris la formule entre guillements, vba essaye d'inscrire mot
pout mot ce que tu as écrit. Ta formule aurait donc été :
=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)
(C'est-à-dire exactement ce que tu as tapé dans vba.)
Ca provoque évidemment une erreur.
Pour remplacer les dl, zei, rdv et autres variables par leurs valeurs, il ne
faut pas qu'ils soient dans les guillements, mais concaténer toute la
formule. Exemple :
="sum(A1:A" & Variable & ")"
(pour =somme(a1:ax), x changeant)
La première formule de ta macro devient donc (attention aux retours à la
ligne) :
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 = "=SUMPRODUCT((R1C2:R" & dl &
"C2=rdv)*(R1C4:R" & dl & "C4=" & jour & ")*(R1C6:R" & dl & "C6=" & zei &
")*1)"
Je te laisse faire de même pour la deuxième formule.
A+
--
Nicolas B.
Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC
Bonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Salut,
Lorsque tu écris la formule entre guillements, vba essaye d'inscrire mot
pout mot ce que tu as écrit. Ta formule aurait donc été :
=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R & dl &
C6=zei)*1)
(C'est-à-dire exactement ce que tu as tapé dans vba.)
Ca provoque évidemment une erreur.
Pour remplacer les dl, zei, rdv et autres variables par leurs valeurs, il ne
faut pas qu'ils soient dans les guillements, mais concaténer toute la
formule. Exemple :
="sum(A1:A" & Variable & ")"
(pour =somme(a1:ax), x changeant)
La première formule de ta macro devient donc (attention aux retours à la
ligne) :
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 = "=SUMPRODUCT((R1C2:R" & dl &
"C2=rdv)*(R1C4:R" & dl & "C4=" & jour & ")*(R1C6:R" & dl & "C6=" & zei &
")*1)"
Je te laisse faire de même pour la deuxième formule.
A+
--
Nicolas B.
Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsCBonsoir
Après avoir cherché en vain pourquoi la macro suivante ne fonctionne
pas, je m'en reporte à los qualités d'experts.
Voilà le problème.
Lorsque je rentre dans les cellules la fonction sommeprod
correspondante tout fonctionne
lorsque j'inclus en VBA sumproduct avec des valeurs fixes, çà
fonctionne mais çà plante lorsque j'essaye d'y intégrer une boucle
avec notamment la valeur dl comme "dernière ligne".
merci de m'éclairer
je vous joins la macro correspondante
Fred, pas tout à fait débutant, mais loin d'être expert
Sub remplis_le_tableau()
Dim dl As Integer 'dl est la dernière ligne de la colonne
Dim zei As String 'valeur de la zei pour le secteur choisi
Dim trn As String 'valeur de la tournée pour le secteur choisi
dl = [A65536].End(3).Row
zei = Sheets("feuil1").Cells(10, 10).Value
trn = Sheets("feuil1").Cells(25, 10).Value
'boucle des 10 prochains jours
For dates = 13 To 31 Step 2
jour = Sheets("feuil1").Cells(9, dates).Value
'boucle des précisions horaires
For plage = 10 To 19
rdv = Sheets("feuil1").Cells(plage, 11).Value
'affichage du nombre d'interventions
Sheets("feuil1").Cells(plage, 13).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*1)"
'affichage du temps cumulé d'intervention
Sheets("feuil1").Cells(plage, 14).FormulaR1C1 > > "=SUMPRODUCT((R1C2:R & dl & C2=rdv)*(R1C4:R & dl & C4=jour)*(R1C6:R &
dl & C6=zei)*(R1C5:R & dl & C5)"
Next plage
Next dates
End Sub
Excuse-moi, je n'avais pas vu ta réponse ;-((
Aucun problème. Il vaut mieux que "news free" (???) ait plusieurs réponses
Bonsoir,
Excuse-moi, je n'avais pas vu ta réponse ;-((
Excuse-moi, je n'avais pas vu ta réponse ;-((
Aucun problème. Il vaut mieux que "news free" (???) ait plusieurs réponses
Bonsoir,
Excuse-moi, je n'avais pas vu ta réponse ;-((
Excuse-moi, je n'avais pas vu ta réponse ;-((
Aucun problème. Il vaut mieux que "news free" (???) ait plusieurs réponses
Bonsoir,
Excuse-moi, je n'avais pas vu ta réponse ;-((
