XL 2010 Tableau Recap Totaux

[Scorpio]

Bonjour à tous,
Dans la feuille "Totaux", je regroupe les totaux de la ligne 10 de la feuille 1 et 2.

Dans la feuille 1, j'ai une barre de défilement pour changer les mois d'année en année.

Et si je veux regrouper les totaux de la ligne 10, a chaque fois il me faut faire =SOMME(Feuil1!B10+Feuil2!B10).
Comment je pourrais faire cette opération d'une autre façon ?
Merci et à toute.

 

[chris]

Bonjour

Il y a un problème de logique sur ta feuil1 : on change les en-tête mais pas les valeurs...

Si tu veux conserver des valeurs antérieures dans RECAP ce ne sera pas possible par formule, il faudra les enregistrer en VBA

 

[Scorpio]

Salut Chris,
A oui, ben voila, Le VBA, c'est pas ma tasse de thé, comment faire ?

 

[Victor21]

Bonjour Scorpio, chris

Une base de données sur une seule feuille : Date, ..., Quantité (une ligne pour chaque nombre), et toutes les extractions deviennent possibles (Filtres, TCD...
C'est quand même plus simple, et les archives d'XLD fourmillent d'exemples.

 

[Scorpio]

Salut Victor21,
Quelque part tu as raison, on se complique la vie facilement.
Je vais y réfléchir, merci du conseil.

 

[Scorpio]

Re bonjour chris et Victor21,
J'ai trouvé une macro pour faire sur double-clic le transfert de la ligne que je veux, mais le résultat n'est pas bon dans la feuille "Totaux"
J'aimerais et je ne sais pas le faire, transférer que les valeurs et pas les formules.
Voilà et merci beaucoup de votre aide.

 

[Scorpio]

J'ai sauté une ligne, oups,
S'il vous plaît, serait-ce possible de votre part de me faire une petite correction dans ce code.
Merci beaucoup
A plus

 

[Victor21]

Re,

Sans moi : je n'utilise que les outils dont je maîtrise l'emploi *, et le VBA n'en fait pas partie.

* Selon Murphy, le besoin d'intervenir arrive toujours au pire moment, celui où ceux qui peuvent nous dépanner sont indisponibles, et où il est crucial de nous débrouiller seul.

 

[Staple1600]

Bonjour le fil, le forum

@Scorpio
Tu peux faire cette correction par toi-même
Il suffit d'utiliser l’enregistreur de macros
(et d'ensuite adapter en utilisant PasteSpecial)

@Victor21
Remember l'Ecclésiaste

 

[Scorpio]

OK, merci victore21
Staple1600, bonjour, on vas essayé.
Merci à tous.

 

[Staple1600]

Re

@Scorpio
Je viens d'essayer sur mon PC
Et l'enregistreur de macros me donne une syntaxe de ce genre.

Sub Macro1_brute()
    Range("A1").Select
    Selection.Copy
    Sheets("Feuil3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
Sub Macro1_Nettoyée_A()
Range("A1").Copy
Sheets(3).Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Sub Macro1_Nettoyée_B()
Range("A1").Copy
Sheets(3).Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Il suffit alors d'adapter ton code original en conséquence

 

[Victor21]

Demat, JM.

Remember l'Ecclésiaste

Crise de foie ?

 

[Scorpio]

RE Staple1600,
C'est gentil de ton aide, mais je sais pas ou introduire l'une de ces 3 version dans le code original
Pourrais-tu m'informer

 

[Scorpio]

Demat, JM.


Crise de foie ?

oui,

 

[Staple1600]

Re

@Scorpio
Ce n'est qu'un exemple!
Un exemple de syntaxe qui montre que pour copier des valeurs seules, on utilise
.PasteSpecial Paste:=xlPasteValues

Donc si on regarde ton code initial, il est aisé de voir ce qu'il faut changer, non ?!?

Voici ma version de ta macro
NB: C'était pas compliqué, non ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then Exit Sub
Application.ScreenUpdating = False
Target.EntireRow.Copy
Sheets(3).Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues
Application.CutCopyMode = False
MsgBox "Le transfert de la ligne a été fait", vbInformation, "Avertissement"
End Sub

@Victor21
Rassures-moi, tu as bien saisi l'allusion au MP d'hier, non ?