XL 2010 Tableau Recap Totaux

chris

XLDnaute Barbatruc

• 9 Juin 2018

• #2

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 9 Juin 2018

• #3

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 9 Juin 2018

• #4

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.

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 9 Juin 2018

• #5

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

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 9 Juin 2018

• #6

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.

 

Pièces jointes

• TESTSommeAnnee.xlsm

  25 KB · Affichages: 15

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 9 Juin 2018

• #7

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

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 9 Juin 2018

• #8

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.
🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juin 2018

• #9

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 😉

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 9 Juin 2018

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juin 2018

• #11

Re

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

VB:

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 😉

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 9 Juin 2018

• #12

Demat, JM.

Remember l'Ecclésiaste 😉

Cliquez pour agrandir...

Crise de foie ?
😉

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 9 Juin 2018

• #13

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 😵

 

Vote positif 0 Vote négatif

S

Scorpio

XLDnaute Impliqué

• 9 Juin 2018

• #14

Victor21 à dit:

Demat, JM.


Crise de foie ?
😉

Cliquez pour agrandir...

oui, 🙁🙁🙁🙁

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juin 2018

• #15

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 ?

VB:

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 ?

 

Vote positif 0 Vote négatif