Masquer cellules vides et colonnes à l'enregistrement

Re,

En fait, c'ètait une correction de ce que je pensais être une erreur ...

Il te suffit de supprimer l'instruction Cancel = True ...

James007 a écrit :

Re,

En fait, c'ètait une correction de ce que je pensais être une erreur ...

Il te suffit de supprimer l'instruction Cancel = True ...

Ça ne change rien

Je ne voit pas où c'est

Re,

Ci-joint la correction ...

Je ne vois car si je l'enregistre (voir fichier joint) il ne remonte pas

al87 a écrit :

Je ne vois car si je l'enregistre (voir fichier joint) il ne remonte pas

Que signifie exactement : ne remonte pas ...???

Nous parlons bien du Double-Click ... non ...???

James007 a écrit :

al87 a écrit :

Je ne vois car si je l'enregistre (voir fichier joint) il ne remonte pas

Que signifie exactement : ne remonte pas ...???

Nous parlons bien du Double-Click ... non ...???

Ah! non à l'enregistrement

OK ...

Ci-joint la correction pour l'enregistrement ...

Non pas ça encore

Je crois que ça vient de figer les volets ligne 9

Re,

Une petite modif ...

A tester ...

Toujours pas

Je vais essayer de gratter un peu

A tous les 2 on va bien y arriver

Re,

Je viens de faire les deux tests ... sur la dernière version ... et tout fonctionne ...

Fais attention à toutes les versions existantes sur ton PC ...

Re James007

Il manquait cette ligne

Application.Goto .Range("A10"), True

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ScreenUpdating = False
Dim Cel As Range
  With ActiveSheet
      .Columns("G:I").Hidden = True
      For Each Cel In .Range("E11:E15,E17:E30,E39:E43,E45:E58,E67:E71,E73:E86,E95:E99,E101:E114")
          If Cel = "" Then Cel.EntireRow.Hidden = True
      Next Cel
      Application.Goto .Range("A10"), True
  End With
Application.ScreenUpdating = True
End Sub

Un GRAND merci à toi pour le temps passé ÉNORME

Bonne fin de WE

Cordialement

Ravi que tout soit rentré dans l'ordre ...

Bonjour James007 et le forum

Tout fonctionne bien mais encore un "petit truc" vu par hasard ce matin

Lorsque je modifie du vba ou pas mais que je me trompe de "biscotte" pour enregistrer (feuille vba)

Message suivant : "Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet

Possible de faire quelque chose?

Merci d'avance à vous

Fichier joint

Bonjour,

Merci d'expliquer comment se produit l'erreur ... et à quel endroit ....

Bonjour James007

Dans ThisWorkbook cette ligne vient en jaune comme tu peux le voir dans le fichier si tu enregistres le fichier sous VBA et non feuille excel

Merci à toi

For Each Cel In .Range("E12:E16,E18:E31,E41:E45,E47:E60,E70:E74,E76:E89,E99:E103,E105:E118")

Bonjour,

Tu dis

si tu enregistres le fichier sous VBA et non feuille excel

Mais il faut clarifier les choses :

Il s'agit donc d'un problème de compatibilité entre les différentes versions d'Excel ...

mais je viens de faire le test sur le format 97-2003 ...donc avec la simple extension xls

et çà fonctionne ...

Donc, est-ce-que tu as un autre problème ...

Sur quelle version d'Excel travailles-tu ...?

Excel 2003

Si tu prends mon fichier et que par inadvertance tu enregistre sous le VBA tu vois bien ce que ça fait sinon pas d'autre problème

Je ne peux dire autre chose

Ne t'escrime pas là-dessus quand même

OK ...

Pas de problème ...