Allègement d'un fichier et pas de mise a jour

[WDAndCo]

Bonsoir le Forum

J'ai encore besoin de vos services !
Il faudrait compléter cette Macro pour quelle efface les colonnes qui sont =0 en ligne 82, pour l'effacement des lignes la Macro marche.

A aussi un truc comment avoir une copie de page avec la même présentation mais avec les valeurs plus les formules (Pour ne plus avoir le message "mettre a jour"). Avec le fichier s'est beaucoup plus clair.

D'avance merci.
Dominique

 

[Gorfael]

Re : Allègement d'un fichier et pas de mise a jour

Bonsoir le Forum

J'ai encore besoin de vos services !
Il faudrait compléter cette Macro pour quelle efface les colonnes qui sont =0 en ligne 82, pour l'effacement des lignes la Macro marche.

A aussi un truc comment avoir une copie de page avec la même présentation mais avec les valeurs plus les formules (Pour ne plus avoir le message "mettre a jour"). Avec le fichier s'est beaucoup plus clair.

D'avance merci.
Dominique

Salut
Avant de supprimer les lignes, pour supprimer les colonnes =0 en ligne 82 :
For x = Range("IV82").End(xlToLeft).Column To 1 Step -1
If Cells(82, x)=0 Then Columns(x).Delete
Next

pour éviter les demandes de mise à jour, remplace les formules par leurs valeurs
Sheets("VHR A et D").Cells.Copy
Sheets("VHR A et D").Cells.PasteSpecial (xlPasteValues)

A+

 

[WDAndCo]

Re : Allègement d'un fichier et pas de mise a jour

Salut
Avant de supprimer les lignes, pour supprimer les colonnes =0 en ligne 82 :
For x = Range("IV82").End(xlToLeft).Column To 1 Step -1
If Cells(82, x)=0 Then Columns(x).Delete
Next

pour éviter les demandes de mise à jour, remplace les formules par leurs valeurs
Sheets("VHR A et D").Cells.Copy
Sheets("VHR A et D").Cells.PasteSpecial (xlPasteValues)

A+

Merci de votre réponse, mais elle ne marche car en faite j'ai 2 pages a copier dans un autre classeur

Sheets("VHR A et D").Cells.Copy
Sheets("VHR A et D").Cells.PasteSpecial (xlPasteValues)
Sheets("TNA A et D").Cells.Copy
Sheets("TNA A et D").Cells.PasteSpecial (xlPasteValues)

les ' dans la Macro sont mis juste pour l'exemple car dans le vrai il n'y a pas les ' et le fichier fait presque 3000Ko