XL 2016 simplifier avec boucle la macro de l'enregistreur de macro

Lone-wolf

XLDnaute Barbatruc

• 16 Mars 2018

• #2

Bonjour PASCAL

Ton fichier en retour. Double-clique sur une colonne pour filtrer, pour supprimer le filtre clique dans la colonne A. Comme c'est du n'importe quoi, dur dur de faire un test.

 

Pièces jointes

• Classeur1 simplification macro(1).xlsm

  20.9 KB · Affichages: 47

Vote positif 0 Vote négatif

P

PASCAL84810

XLDnaute Junior

• 19 Mars 2018

• #3

Bonjour,

je vous remercie,
pour les filtres cela fonctionne bien.
par contre pour les sous totaux cela ne correspond pas à mes besoins.
pour chaque mois je dois avoir les deux sous totaux, donc ils doivent se décaler d'une colonne vers la gauche pour chaque colonne que je vais filtrer aussi de droite à gauche.
Ils doivent rester figés pour chaque mois et ne pas ce modifier à chaque nouveau filtre comme c'est le cas dans votre fichier.
j'avais pensé à un copier-coller "valeur".
le but du fichier et d'avoir le nombre et les quantités de références en stock, de rotation nul depuis la date d'entrée du lot.
le passé n’évoluera plus. je pourrai le faire à la main vu que le passé et unique, mais j'ai une trentaine de familles d'articles à traiter.
De plus je rajouterai une colonne chaque mois.
Encore merci.

Pascal

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 19 Mars 2018

• #4

Bonjour,

du VBA est-il vraiment utile sur ce fichier ???
Perso, je pense que tes dates devraient se trouver dans UNE colonne et pas en ligne
Un tcd pourra aider ensuite
P.

On ne fait pas du VBA si on ne connait pas une base d'excel ...

 

Dernière édition: 19 Mars 2018

Vote positif 0 Vote négatif

P

PASCAL84810

XLDnaute Junior

• 19 Mars 2018

• #5

Bonjour,

je connais très bien excel et mon fichier est déjà le résultat d'un TCD.
le fichier originale fait 280 000 lignes.
mais je suis ouvert à toutes sujétions, je vais réfléchir à votre proposition.
j'ai une trentaine de fichiers à traiter ainsi.
cordialement
Pascal

 

Vote positif 0 Vote négatif

P

PASCAL84810

XLDnaute Junior

• 19 Mars 2018

• #6

Bonjour,

Avec la macro filtre automatique , en tirant les formules "sous-total" et en copiant collant valeur à chaque mois cela va vite.
merci pour tout.
Cordialement
Pascal

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mars 2018

• #7

Bonjour le fil, le forum

@Lone-wolf
Je me permets cette petite suggestion
Quitte à utiliser des endives, autant prendre de l'endive globale

VB:

Sub Filtrer()
Dim plage As Range, vForm
Set plage = Range("A1:AS1248"): vForm = Array("=SUBTOTAL(3,AR:AR)-1", "=SUBTOTAL(9,E:E)")
plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
With Range("CI2:CI3")
    .Formula = Application.Transpose(vForm)
    .Value = .Value
    With .Offset(, -1)
        .Formula = Application.Transpose(vForm)
        .Value = .Value
    End With
End With
End Sub

 

Vote positif 0 Vote négatif

P

PASCAL84810

XLDnaute Junior

• 20 Mars 2018

• #8

Bonjour,

en fait j'ai besoin pour chaque colonne "mois" en remontant dans le temps, donc de droite à gauche d'avoir
les deux formules. Chaque mois avec les filtres, j'ai moins de lignes à compter et à éditionner.
dans vos propositions la valeur du mois n et copiée dans le mois n-1.
concrètement mon besoin
je filtre la colonne AR : j'applique mes deux formules en CI2 et CI3 et fige la valeur,
je filtre la colonne AQ (en laissant la colonne précédente filtrée : j'applique mes deux formules en CH2 et CH3 et fige la valeur,
ainsi de suite pour les 38 colonnes.
le tout peut être fait en une boucle
je voyais quelque chose comme cela dans l'idée :

VB:

Sub Filtrer()
Dim plage As Range, vForm
Set plage = Range("A1:AS1248"): vForm = Array("=SUBTOTAL(3,AR:AR)-1", "=SUBTOTAL(9,E:E)")
Set plage = Range("a1:ar1248")
    plage.AutoFilter Field:=ActiveCell.Column, Criteria1:=">-24", Operator:=xlAnd
With Range("CI2:CI3")
    .Formula = Application.Transpose(vForm)
    .Value = .Value
  
    With .Offset(, -1)
        .Formula = Application.Transpose(vForm)
        .Value = .Value
    With .Offset(, 1)
      Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
     End With
    End With
End With
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Call Filtrer
Cancel = True
End Sub
VBA

Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mars 2018

• #9

Bonsoir le fil, le forum

@PASCAL84810
Tu auras remarqué que mon post s'adressait à Lone-wolf
(Une sorte de private joke entre lui et moi)
Je voulais juste lui suggérer quand pouvait écrire autrement ses With/End With

 

Dernière édition: 20 Mars 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2018

• #10

Bonsoir tout le monde.

@ Jean Marie: j'éspère que tu n'aie pas d'indigestion avec toutes ces iv end iv - iv end iv.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mars 2018

• #11

Bonsoir le fil, le forum

@Lone-wolf
L'essentiel est: Est-ce que les deux versions du code vont la même chose ?
Apparemment je dirai oui, non ?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2018

• #12

Re

Bein... oui et non.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mars 2018

• #13

Re

Ah bon?
Où est la différence?
NB: Je parle de la seule procédure Filtrer lancée dans VBE en ayant pris soin de d'inhiber les procédures événementielles au préalable.

Que ce soit ta version ou la mienne, le résultat est le même, non ?

(En tout cas, c'est comme cela que j'ai testé)

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 20 Mars 2018

• #14

Re

Et bien, d'après Pascal

En fait j'ai besoin pour chaque colonne "mois" en remontant dans le temps, donc de droite à gauche d'avoir
les deux formules.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Mars 2018

• #15

Re

@Lone-wolf
On ne se comprends pas
Je te demande simplement si ma syntaxe fait que la même chose que la tienne si on exécute la macro en mode "test"
Je vais prendre un exemple
Ces syntaxes sont différentes et pourtant elles produisent le même résultat

VB:

Sub SyntaxeA()
Range("A1").FormulaR1C1 = "1"
Range("A2").FormulaR1C1 = "2"
Range("A1:A2").AutoFill Destination:=Range("A1:A10"), Type:=xlFillDefault
End Sub
Sub SyntaxeB()
[A1] = "1": [A1:A10].DataSeries 2, -4132
End Sub

C'est pareil ici, nos syntaxes sont différentes mais elles font la même chose.
Elles appliquent un filtre et insère des formules en CI2:CI3 et en CH2:CH3 puis passent en valeur seule.

 

Vote positif 0 Vote négatif