je voulais cr=E9e une macro qui m'affiche un total =E0 chaque changement
de la premiere colonne "Date" 'm=EAme si on saisi des dates similaires
dans deffirentes lignes, le total de cette date integre les nouvelles
saisie dynamiquement), en plus du total g=E9n=E9ral =E0 la fin de mon
tableau est affich=E9.
Sub soustotal()
Columns("A:F").Select
Selection.Subtotal GroupBy:=3D1, Function:=3DxlSum,
TotalList:=3DArray(6), _
Replace:=3DTrue, PageBreaks:=3DFalse, SummaryBelowData:=3DTrue
End Sub
mais je ne vois que le total g=E9n=E9ral affich=E9.
il faut étendre le array à toutes les autres champs,
Sub soustotal() Columns("A:F").Select Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 4, 5, 6), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True End Sub
isabelle
Bonjour,
je voulais crée une macro qui m'affiche un total à chaque changement de la premiere colonne "Date" 'même si on saisi des dates similaires dans deffirentes lignes, le total de cette date integre les nouvelles saisie dynamiquement), en plus du total général à la fin de mon tableau est affiché.
Sub soustotal() Columns("A:F").Select Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True End Sub
mais je ne vois que le total général affiché.
http://cjoint.com/?jAcGcc8OjO
Merci de votre aide.
bonjour Apitos,
il faut étendre le array à toutes les autres champs,
Sub soustotal()
Columns("A:F").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 4, 5, 6), _
Replace:=True, PageBreaks:úlse, SummaryBelowData:=True
End Sub
isabelle
Bonjour,
je voulais crée une macro qui m'affiche un total à chaque changement
de la premiere colonne "Date" 'même si on saisi des dates similaires
dans deffirentes lignes, le total de cette date integre les nouvelles
saisie dynamiquement), en plus du total général à la fin de mon
tableau est affiché.
Sub soustotal()
Columns("A:F").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(6), _
Replace:=True, PageBreaks:úlse, SummaryBelowData:=True
End Sub
il faut étendre le array à toutes les autres champs,
Sub soustotal() Columns("A:F").Select Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 4, 5, 6), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True End Sub
isabelle
Bonjour,
je voulais crée une macro qui m'affiche un total à chaque changement de la premiere colonne "Date" 'même si on saisi des dates similaires dans deffirentes lignes, le total de cette date integre les nouvelles saisie dynamiquement), en plus du total général à la fin de mon tableau est affiché.
Sub soustotal() Columns("A:F").Select Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(6), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True End Sub
mais je ne vois que le total général affiché.
http://cjoint.com/?jAcGcc8OjO
Merci de votre aide.
Apitos
Bonjour,
Comme je voilais que mes sous totaux se fassent au fur et à mesure de la saisie, j'ai fait code suivant :
Private Sub Worksheet_Change(ByVal Target As Range) Columns("A:F").Select Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2, 3, 4, 5, 6), _ Replace:=True, PageBreaks:úlse, SummaryBelowData:=True End Sub
Mais voila j'ai des problemes avec ce code.
Quelqu'un peut-il m'aider ?
Merci.
Bonjour,
Comme je voilais que mes sous totaux se fassent au fur et à mesure de
la saisie, j'ai fait code suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
Columns("A:F").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum,
TotalList:=Array(2, 3, 4, 5, 6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
Comment definir dynamiquement les plages de calcul des sous-totaux ?
jps
j'écrivais ceci il y a quelques jours :
"tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait isabelle que tu ne lui dis ni bonjour, ni merci? ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien jps"
j'ajoute maintenant que ma remarque est aussi valable pour tes questions, Apitos et que veut dire ce "JB?" ? c'est le nom de ton chien? jps (las de ce manque de courtoisie inadmissible)
"Apitos" a écrit dans le message de news:
Comment definir dynamiquement les plages de calcul des sous-totaux ?
j'écrivais ceci il y a quelques jours :
"tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait
isabelle que tu ne lui dis ni bonjour, ni merci?
ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien
jps"
j'ajoute maintenant que ma remarque est aussi valable pour tes questions,
Apitos
et que veut dire ce "JB?" ? c'est le nom de ton chien?
jps (las de ce manque de courtoisie inadmissible)
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1159272041.665856.249050@b28g2000cwb.googlegroups.com...
Comment definir dynamiquement les plages de calcul des sous-totaux ?
"tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait isabelle que tu ne lui dis ni bonjour, ni merci? ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien jps"
j'ajoute maintenant que ma remarque est aussi valable pour tes questions, Apitos et que veut dire ce "JB?" ? c'est le nom de ton chien? jps (las de ce manque de courtoisie inadmissible)
"Apitos" a écrit dans le message de news:
Comment definir dynamiquement les plages de calcul des sous-totaux ?
FxM
Se serait-il appelé Jean ou Testou dans une vie antérieure ? :o(
@+ FxM
j'écrivais ceci il y a quelques jours :
"tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait isabelle que tu ne lui dis ni bonjour, ni merci? ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien jps"
j'ajoute maintenant que ma remarque est aussi valable pour tes questions, Apitos et que veut dire ce "JB?" ? c'est le nom de ton chien? jps (las de ce manque de courtoisie inadmissible)
"Apitos" a écrit dans le message de news:
Comment definir dynamiquement les plages de calcul des sous-totaux ?
Se serait-il appelé Jean ou Testou dans une vie antérieure ?
:o(
@+
FxM
j'écrivais ceci il y a quelques jours :
"tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait
isabelle que tu ne lui dis ni bonjour, ni merci?
ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien
jps"
j'ajoute maintenant que ma remarque est aussi valable pour tes questions,
Apitos
et que veut dire ce "JB?" ? c'est le nom de ton chien?
jps (las de ce manque de courtoisie inadmissible)
"Apitos" <apitos@gmail.com> a écrit dans le message de news:
1159272041.665856.249050@b28g2000cwb.googlegroups.com...
Comment definir dynamiquement les plages de calcul des sous-totaux ?
Se serait-il appelé Jean ou Testou dans une vie antérieure ? :o(
@+ FxM
j'écrivais ceci il y a quelques jours :
"tes réponses sont d'une siccité inouïe, apitos ; qu'est-ce qu'elle t'a fait isabelle que tu ne lui dis ni bonjour, ni merci? ah que dis-tu? que ça t'arrache la gmail? alors je ne dis plus rien jps"
j'ajoute maintenant que ma remarque est aussi valable pour tes questions, Apitos et que veut dire ce "JB?" ? c'est le nom de ton chien? jps (las de ce manque de courtoisie inadmissible)
"Apitos" a écrit dans le message de news:
Comment definir dynamiquement les plages de calcul des sous-totaux ?
Apitos
jps, pourqoui t'acharnes-tu sur moi ?
tu n'as rien contre moi, je suppose ... et puis au lieu de me répondre par quelque chose qui est utile tu t'engages à valoriser mes questions et mes réponses ...
Ce JB (Jacques Boigontier), et pour moi un grand maitre d'Excel/VBA.
C'est simple ...
jps, pourqoui t'acharnes-tu sur moi ?
tu n'as rien contre moi, je suppose ... et puis au lieu de me répondre
par quelque chose qui est utile tu t'engages à valoriser mes questions
et mes réponses ...
Ce JB (Jacques Boigontier), et pour moi un grand maitre d'Excel/VBA.
tu n'as rien contre moi, je suppose ... et puis au lieu de me répondre par quelque chose qui est utile tu t'engages à valoriser mes questions et mes réponses ...
Ce JB (Jacques Boigontier), et pour moi un grand maitre d'Excel/VBA.
