Autres [RÉSOLU] Enregistrement fichier

un internaute

XLDnaute Impliqué
Bonjour le forum
Je voudrais enregistrer si c'est possible par la feuille Année en cours et par la feuille MENU. Si on double click cellule A2 on affiche les cellules vides colonnes E
Si on enregistre par Feuille Année en cours on masque les cellules vides colonne E. Je voudrais également si j'enregistre par feuille MENU masquer les cellules vides colonne E
Conclusion:
Enregistrement par Feuille MENU et Année en cours tout en masquant cellules vides colonne E
Merci à vous
Cordialement
 

Paritec

XLDnaute Barbatruc
Bonjour Al87 le forum
Avec la langue c'est plus facile !!!!! Pourtant tu as bien écrit sur EP que tu allais le faire tout seul........
Quand je te disais que tu n'es pas capable de tenir compte du travail que l'on fait pour toi!!!
Je t'ai donné la réponse hier ou avant hier et je t'ai fait le fichier.
Toujours les mêmes questions, et si tu trouves encore 10 autres forum, tu redemanderas aussi les mêmes choses, même si tu as eu des réponses auparavant !!!
En plus tu fais du multi-postage sans le préciser, c'est assez incorrect.
Bon weekend
a+
Papou :)
 

un internaute

XLDnaute Impliqué
Bonjour Al87 le forum
Avec la langue c'est plus facile !!!!! Pourtant tu as bien écrit sur EP que tu allais le faire tout seul........
Quand je te disais que tu n'es pas capable de tenir compte du travail que l'on fait pour toi!!!
Je t'ai donné la réponse hier ou avant hier et je t'ai fait le fichier.
Toujours les mêmes questions, et si tu trouves encore 10 autres forum, tu redemanderas aussi les mêmes choses, même si tu as eu des réponses auparavant !!!
En plus tu fais du multi-postage sans le préciser, c'est assez incorrect.
Bon weekend
a+
Papou :)

Bonjour Paritec
Eh! non c'est pas moi!!!
C'est quelqu'un de ma famille qui utilise mon pseudo
Ça a marché trop content.
TOUJOURS je mets que je MULTIPOSTE mais là c'est volontaire.
Eh! non ça ne fonctionne pas votre fichier.
Il faut bien rigoler c'est le WE
Bien amicalement
 

Paritec

XLDnaute Barbatruc
Re Al87 le forum
Le fichier que j'ai modifié fonctionne parfaitement, mais ce n'est pas celui que vous avez remis dans cette demande
Bref je sais que vous avez raison et que vous avez toujours raison votre réponse sur EP avant hier en est la preuve, mais en terme de savoir, il ne suffit pas de dire je vais faire encore faut-il ensuite savoir le faire.
bon weekend
Papou :)
 

un internaute

XLDnaute Impliqué
Bonjour Paritec
Eh! non c'est pas moi!!!
C'est quelqu'un de ma famille qui utilise mon pseudo
Ça a marché trop content.
TOUJOURS je mets que je MULTIPOSTE mais là c'est volontaire.
Eh! non ça ne fonctionne pas votre fichier.
Il faut bien rigoler c'est le WE
Bien amicalement
Re Al87 le forum
Le fichier que j'ai modifié fonctionne parfaitement, mais ce n'est pas celui que vous avez remis dans cette demande
Bref je sais que vous avez raison et que vous avez toujours raison votre réponse sur EP avant hier en est la preuve, mais en terme de savoir, il ne suffit pas de dire je vais faire encore faut-il ensuite savoir le faire.
bon weekend
Papou :)
Non c'est pour rire et mon fils n'a pas posté le même il bloque la dessus.
Il ne faut pas demander à une personne comme moi de 94 ans des trucs comme ça.
Alors très souvent ce n'est pas moi le demandeur
Moi j'ai TOUJOURS loué ton travail et je le dit.
Bon WE à toi
Très cordialement
 

Paritec

XLDnaute Barbatruc
Re Al87 le forum
94 ans là chapeau, bon alors je ne te dirai plus rien, car j'aimerais à ton age encore aller sur les forums et pouvoir répondre comme tu le fais
Alors pour ta macro AfficherMasquer, elle ne pouvait pas répondre à ta demande, car à la fermeture du fichier, c'est un coup voir un coup cacher
j'avais donc rajouté une macro qui elle n'est toujours en réponse que cacher et donc avant la fermeture du fichier je lance cette macro sur la feuille je ne sais plus quoi 2019
bon weekend
Papou :)
 
Dernière édition:

un internaute

XLDnaute Impliqué
Re Al87 le forum
94 ans là chapeau, bon alors je ne te dirai plus rien, car j'aimerais à ton age encore aller sur les forums et pouvoir répondre comme tu le fais
Alors pour ta macro AfficherMasquer, elle ne pouvait pas répondre à ta demande, car à la fermeture du fichier, c'est un coup voir un coup cacher
j'avais donc rajouté une macro qui elle n'est toujours en réponse que cacher et donc avant la fermeture du fichier je lance cette macro sur la feuille je ne sais plus quoi 2019
bon weekend
Papou :)

Re Paritec
Tu ne me dira plus rien? J'espère bien que si. Moi je suis quelqu'un de très "pacifique" et très HUMBLE car je suis un miraculé.
J'ai été opéré d'une dissection aortique (voir sur Google) et le stress il ne m'en faut plus. Alors m'énerver pour ça c'est terminé.
Maintenant je suis preneur pour le fichier joint.
Cordialement à tous
 

un internaute

XLDnaute Impliqué
Bonjour le forum et Paritec
Voilà sans s'énerver et surtout se respecter.
Nous sommes toujours des éternels apprentis
Bien cordialement à vous

Modifs macro ThisWorkbook

VB:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim J As Long, Feuille As Worksheet
    Application.ScreenUpdating = False
    If ActiveSheet.Name = "MENU" Then                  'Ces 6 lignes pour Enregistrement Feuille MENU et Charges
      Set Feuille = Sheets("Charges " & Year(Date))    '********************************
    Else                                                                          '********************************
      Set Feuille = ActiveSheet                                       '********************************
    End If                                                                         '********************************
    With Feuille                                                                '********************************
'      .Columns("G:I").Hidden = True                   'Mettre en commentaires pour afficher colonnes G à I ouvertes à l'Enregistrement
      For J = 11 To 111
        Select Case J
          Case 16, 31 To 37, 43, 58 To 64, 70, 85 To 91, 97
          Case Else
          If .Range("E" & J) = "" Then .Rows(J).Hidden = True
        End Select
      Next J
      Application.Goto .Range("A10"), True
      ActiveSheet.Range("A1").Select
  End With
 
Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • toto.xls
    622 KB · Affichages: 1

Discussions similaires

Réponses
5
Affichages
349

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale