XL 2010 Ajouter une ligne avec formule.

[DAVID-44-]

Bonjour le forum
Je souhaiterais avec un double-clic sur la cellule (par exemple) "C9" ajouter au-dessous une ligne avec toutes les formules, mais seulement avec les cellules "C9" et "L9" recopier.
Merci de votre aide.
Bon après-midi.
David.

 

[fanch55]

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 .

 

[DAVID-44-]

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.

 

[fanch55]

Pour une table des années 2000 ...

 

[DAVID-44-]

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

 

[fanch55]

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

 

[DAVID-44-]

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

 

[DAVID-44-]

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.

 

[fanch55]

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

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

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

 

[DAVID-44-]

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.

 

[fanch55]

La sauvegarde se fait, mais avant la date changeait automatiquement

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

 

[DAVID-44-]

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

 

[fanch55]

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

 

[DAVID-44-]

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

 

[fanch55]

Mettre la fonction ci-dessous dans un module :

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()