VBA Bug enregistrement macro
Fermé
actaris51
Messages postés
93
Date d'inscription
mardi 15 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2011
-
10 août 2009 à 12:13
melanie1324 - 10 août 2009 à 15:37
melanie1324 - 10 août 2009 à 15:37
A voir également:
- VBA Bug enregistrement macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
- Macro word - Guide
- Bug localisation snap ✓ - Forum Snapchat
3 réponses
Bonjour,
Voici la formule que tu dois utiliser dans vba :
=if(SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>"Validated")*(Status<>"Cancelled")*1)>0;SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>"Validated")*(Status<>"Cancelled")*Delay)/SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>"Validated")*(Status<>"Cancelled")*1);0)
Voici la formule que tu dois utiliser dans vba :
=if(SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>"Validated")*(Status<>"Cancelled")*1)>0;SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>"Validated")*(Status<>"Cancelled")*Delay)/SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>"Validated")*(Status<>"Cancelled")*1);0)
actaris51
Messages postés
93
Date d'inscription
mardi 15 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2011
2
10 août 2009 à 13:46
10 août 2009 à 13:46
Ca ne semble pas marcher
Il me dit : erreur definie par l'application ou l'objet
voici le bout de code :
'Average Delay Formula
With .Range("AB24:AB" & Range("AA24").End(xlDown).Row)
.FormulaR1C1 = _
"=if(SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1)>0;SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*Delay)/SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1);0)"
End With
merci
Il me dit : erreur definie par l'application ou l'objet
voici le bout de code :
'Average Delay Formula
With .Range("AB24:AB" & Range("AA24").End(xlDown).Row)
.FormulaR1C1 = _
"=if(SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1)>0;SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*Delay)/SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1);0)"
End With
merci
re,
essaie dans un premier temps ce bout de code
range("Ab24").select
ActiveCell.FormulaR1C1 ="=if(SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1)>0;SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*Delay)/SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1);0)"
est ce que cela marche? Si non, je pense que c'est parce que vba ne reconait pas les noms de plage.
Si non, essaie :
range("Ab24").select
ActiveCell.FormulaR1C1 ="=if(SUMPRODUCT(("""Delay""">0)*("""Latest_Agreed_Baseline"""<AUJOURDHUI())*("""Budget_Owner"""=$Y24)*("""Status"""<>""Validated"")*("""Status"""<>""Cancelled"")*1)>0;SUMPRODUCT(("""Delay""">0)*("""Latest_Agreed_Baseline"""<AUJOURDHUI())*("""Budget_Owner"""=$Y24)*("""Status"""<>""Validated"")*("""Status"""<>""Cancelled"")*"""Delay""")/SUMPRODUCT(("""Delay""">0)*("""Latest_Agreed_Baseline"""<AUJOURDHUI())*("""Budget_Owner"""=$Y24)*("""Status"""<>""Validated"")*("""Status"""<>""Cancelled"")*1);0)"
Si oui, je te conseille de faire ainsi
range("ab24").copy
Range("AB24:AB" & Range("AA24").End(xlDown).Row).select
Activesheet.paste
essaie dans un premier temps ce bout de code
range("Ab24").select
ActiveCell.FormulaR1C1 ="=if(SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1)>0;SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*Delay)/SUMPRODUCT((Delay>0)*(Latest_Agreed_Baseline<AUJOURDHUI())*(Budget_Owner=$Y24)*(Status<>""Validated"")*(Status<>""Cancelled"")*1);0)"
est ce que cela marche? Si non, je pense que c'est parce que vba ne reconait pas les noms de plage.
Si non, essaie :
range("Ab24").select
ActiveCell.FormulaR1C1 ="=if(SUMPRODUCT(("""Delay""">0)*("""Latest_Agreed_Baseline"""<AUJOURDHUI())*("""Budget_Owner"""=$Y24)*("""Status"""<>""Validated"")*("""Status"""<>""Cancelled"")*1)>0;SUMPRODUCT(("""Delay""">0)*("""Latest_Agreed_Baseline"""<AUJOURDHUI())*("""Budget_Owner"""=$Y24)*("""Status"""<>""Validated"")*("""Status"""<>""Cancelled"")*"""Delay""")/SUMPRODUCT(("""Delay""">0)*("""Latest_Agreed_Baseline"""<AUJOURDHUI())*("""Budget_Owner"""=$Y24)*("""Status"""<>""Validated"")*("""Status"""<>""Cancelled"")*1);0)"
Si oui, je te conseille de faire ainsi
range("ab24").copy
Range("AB24:AB" & Range("AA24").End(xlDown).Row).select
Activesheet.paste
