XL pour MAC Comment conserver ses données ?

[amelie75]

Bonjour,
encore besoin de vos lumières
j'ai en feuil3 un tableaux qui vas de janvier a décembre
mais arriver a décembre j'effacerais ces donner a l'interieur de chaque mois
ma question et t'il possible de conserver c'est donner (tableaux ci joint)
et que ce tableaux continue a se remplir quand je remplirai janvier a décembre de nouveaux

 

[amelie75]

En PJ le même, je l'ai juste ouvert et enregistrer sur le bureau.
Essayez de l'ouvrir, juste pour voir.

il ne fonctionne pas

 

[sylvanu]

Lorsque vous appuyez sur le bouton, je duplique la feuil3, la renomme et la masque.
Vous pouvez faire autant d'archives que vous voulez.
Par contre ça, je ne comprends pas :

ainsi que mes données qui se mettrons au fur et a mesure dans mon tableaux
(mes donnée 2022 et 2023)c'est bien ça

L'archive est rangée et on n'y touche plus.

 

[TooFatBoy]

J'ai une remarque, qui est surtout une question en fait : je crois qu'une InputBox n'a pas de paramètres pour les boutons, et que c'est pour ça que la barre de titre affiche "4" à cause du "vbYesNo". Non ?

 

[sylvanu]

il ne fonctionne pas

Alors il y a un truc qui ne plait pas à Monsieur MAC.
Très surement dans la macro, mais vraiment je ne vois pas où, les instructions sont on ne peu plus classiques.

 

[amelie75]

Lorsque vous appuyez sur le bouton, je duplique la feuil3, la renomme et la masque.
Vous pouvez faire autant d'archives que vous voulez.
Par contre ça, je ne comprends pas :

L'archive est rangée et on n'y touche plus.

il y aura bien les donner du tableaux 2022 qui se mettron aux fur et a mesure dans 2023

 

[TooFatBoy]

J'ai repris le fichier de #58, je l'ai ouvert, et "enregistré sous".
Est-ce qu'il y a le même problème sous ton Mac qu'avec #59 ?

 

[sylvanu]

je crois qu'une InputBox n'a pas de paramètres pour les boutons

Oups, j'ai confondu msgbox et inputbox. Merci de l'avoir vu.
@Amélie,
Changer la ligne :

Nomfeuille = InputBox("Quel nom voulez vous donner à l'archive ?", vbYesNo)

par

Nomfeuille = InputBox("Quel nom voulez vous donner à l'archive ?", "Archivage")

 

[sylvanu]

il y aura bien les donner du tableaux 2022 qui se mettron aux fur et a mesure dans 2023

Non, fin 2023 il faudra faire un nouveau archivage. Donc vous aurez en masqué une feuille nommée 2022 et une feuille nommée 2023.

 

[amelie75]

J'ai repris le fichier de #58, je l'ai ouvert, et "enregistré sous".
Est-ce qu'il y a le même problème sous ton Mac qu'avec #59 ?

exactement le meme probleme

 

[amelie75]

Oups, j'ai confondu msgbox et inputbox. Merci de l'avoir vu.
@Amélie,
Changer la ligne :

Nomfeuille = InputBox("Quel nom voulez vous donner à l'archive ?", vbYesNo)

par

Nomfeuille = InputBox("Quel nom voulez vous donner à l'archive ?", "Archivage")

whouah
tu pourra me remettre le code complet ce sera plus simple
belle soirée je ferait ça demain

 

[sylvanu]

exactement le meme probleme

Je pense que quand on ouvre le fichier, on passe par la sécurité système ( que ce soit sous Windows ou IOS ) et IOS trouve dans la macro un truc qui ne lui plait pas et supprime les macros.
Or la macro n'utilise que du classique, pas de Références, de librairies de services Windows.
Ca restera un mystère.

Pour le nouveau code :

Sub Archivage()
    Dim Nomfeuille, FeuilleOrigine, Mois(), M%, Début%, Fin%
    On Error GoTo FinArchive
    Application.ScreenUpdating = False
    ' Nom de la nouvelle archive
    FeuilleOrigine = ActiveSheet.Name
    Nomfeuille = InputBox("Quel nom voulez vous donner à l'archive ?", "Archivage")
    If Nomfeuille = "" Then Exit Sub
    ' Duplication de la feuille, renommage, copier coller valeur, et masquage.
    ActiveWorkbook.ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Nomfeuille
    [P30] = [P30].Value             ' Figeage de la valeur Course en P30
    [B1].Select
    ActiveSheet.Visible = 0
    ' On revient sur la feuille d'origine et on efface les données.
    Sheets(FeuilleOrigine).Select
    Mois = Array("JANVIER", "FEVRIER", "MARS", "AVRIL", "MAI", "JUIN", "JUILLET", "AOUT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", "DECEMBRE", "FIN")
    For M = 0 To 11
        Nom = Mois(M)
        Début = Application.Match(Mois(M), [C:C], 0) + 2        ' Zone à effacer commence 2 lignes après le mois
        If M < 11 Then
            Fin = Application.Match(Mois(M + 1), [C:C], 0) - 1  ' et se termine 1 ligne avant le mois suivant
        Else
            Fin = 400                                           ' Si mois de décembre, pas de mois suivant donc Fin=400
        End If
        Range("D" & Début & ":K" & Fin).ClearContents
    Next M
    ' Message de fin
    MsgBox "Cette feuille a été archivée sous le nom de " & Nomfeuille & Chr(10) & " et a été masquée."
Exit Sub
FinArchive:
    ' Si le nom de l'archive existe déjà, alors erreur.
    MsgBox "Oups! petit souci, la feuille avec ce nom semble déjà exister."
End Sub

Sur ce, bonne nuit.