XL 2010 Ajouter une ligne avec formule.

fanch55

XLDnaute Barbatruc

• 1 Septembre 2021

• #2

Bonjour,
Feuille Stock : le tableau a été converti en Tableau Structuré.
Faire click-droit sur une cellule Produit .
J'ai également modifié la procédure Mes_Zones (Tri) pour vous faire voir comment trier cette table .

 

Pièces jointes

• STOCK DAVID .xlsm

  274.7 KB · Affichages: 3

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 1 Septembre 2021

• #3

Bonjour fanch55, le forum,
Merci beaucoup.
C'est génial.
Est-il possible d'avoir le même résultat sans Tableau Structuré ?
Bon après-midi.
Cordialement.
David.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Septembre 2021

• #4

Pour une table des années 2000 ...

 

Pièces jointes

• STOCK DAVID Non structuré..xlsm

  154.3 KB · Affichages: 10

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 1 Septembre 2021

• #5

Bonsoir fanch55,
Merci beaucoup, mais je dois mal faire, car j'ai une erreur "400" !
Cordialement.
David.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 2 Septembre 2021

• #6

Bonjour,
Allez dans le code du Module4 et changez la portée de votre constante Password de Private en Public ....

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 2 Septembre 2021

• #7

Bonjour fanch55,
Merci beaucoup.
C'est génial.
Bon après-midi.
Cordialement.
David.

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 3 Septembre 2021

• #8

Bonjour fanch55,
Je reviens vers toi, car j'ai un souci.
J'ai mis les macros et les codes que tu as faits sur le classeur (PJ).
Malheureusement, le bouton "trie" et le bouton en haut à droite "sauvegarde" ne fonctionne plus !
Le tri se faisait par secteur de A à Z et maintenant "abricots mûrs" et abricots au sirop..." ne se trient plus !
La sauvegarde se fait, mais avant la date changeait automatiquement. Maintenant, elle reste figée !
As-tu une idée ?
Bonne journée.
Cordialement.
David.

 

Pièces jointes

• STOCK - 03 - 09 - 2021 - PROBLEME..xlsm

  231.7 KB · Affichages: 1

Dernière édition: 3 Septembre 2021

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Septembre 2021

• #9

Pour le Tri : La ligne 8 est vide ...

Sub MesZones() 'recherche des zones à trier
With Sheets("STOCK")
deb = 8
While .Cells(deb, 2) <> ""

Cliquez pour agrandir...

De toutes façons, avec deux tableaux, le code ne triera pas les 2 tel qu'il est écrit ...
J'ai du mal à croire que les abricots font partie de la charcuterie ...

Pour le Save : non existant sur le fichier initial sur lequel j'ai travaillé ..
L'analyse du code me fait dire qu'il n'est pas finalisé ( l'annulation de la sauvegarde n'est pas prise en compte ).

Pour la date : je suppose que c'est la cellule E4 de la feuille stock
Elle n'a pas de formule et je n'ai trouvé nulle part dans le code une quelconque référence à celle-ci ...

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 3 Septembre 2021

• #10

Bonjour fanch55,
Merci pour le coup de main.
Pour le tri, c'est réglé grâce à toi.
Je vais regarder ce qui se passe pour la sauvegarde, pas sûr de trouver.
Bonne journée.
Cordialement.
David.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Septembre 2021

• #11

La sauvegarde se fait, mais avant la date changeait automatiquement

Cliquez pour agrandir...

Il ne faut pas confondre la date affichée qui est une date de mise à jour avec la date de la sauvegarde ...

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 3 Septembre 2021

• #12

As-tu une solution pour faire apparaître la date de la sauvegarde en E4 ?

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Septembre 2021

• #13

Es-tu sur de la pertinence de cette date, car on peut sauvegarder quand on le veut tous les jours sans rien changer dans les feuilles ...

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 3 Septembre 2021

• #14

Je souhaiterais en utilisant le bouton "Sauvegarde" avoir la date du jour de la sauvegarde.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 3 Septembre 2021

• #15

Mettre la fonction ci-dessous dans un module :

VB:

Function Date_Modif() As String
    Application.Volatile
    Date_Modif = ActiveWorkbook.BuiltinDocumentProperties("Last save time")
'   Désactiver la ligne ci-dessous si on ne désire que la date sans l'heure
'    Date_Modif = Format(Date_Modif, "DD/MM/YYYY")
End Function

en E4, mettre la formule : =Date_Modif()

 

Vote positif 0 Vote négatif