Autres Code VBA supression formule classeur Excel 2007

J

jmfmarques

XLDnaute Accro

• 11 Mai 2020

• #2

Bonjour
quelque chose comme ceci ?

VB:

Dim sh As Worksheet, plage As Range
For Each sh In ActiveWorkbook.Worksheets
  On Error Resume Next ' -->> pour le cas où aucune formule
  Set plage = sh.Cells.SpecialCells(xlCellTypeFormulas)
  If Not plage Is Nothing Then plage.Value = plage.Value
  On Error GoTo 0
Next

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #3

Bonjour,

Quelque chose comme ça peut-être :

VB:

Sub SansFormule()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.UsedRange.Value = ws.UsedRange.Value
    Next
End Sub

Cordialement

 

Vote positif 0 Vote négatif

Solution

O

otarc

XLDnaute Junior

• 11 Mai 2020

• #4

Oui c'est exactement ça.

Merci,

Bonne soirée

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 12 Mai 2020

• #5

Il ne m'est pas possible de ne pas réagir au choix ainsi fait.
La méthode retenue peut exposer (selon le classeur) à de graves insuffisances de mémoire.
Celle que j'ai proposée n'est d'ailleurs pas non plus totalement à l'abri de ce genre de mésaventure, mais énormément moins.
Ce ne sont pas toujours les codes les plus simples qui sont les moins risqués.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2020

• #6

Bonjour,

@jmfmarques :il y a toujours quelque chose à dire sur une méthode ou l'autre. La réponse faite était à la hauteur du peu d' informations données par le demandeur, qui aura tout loisir de choisir ce qu'il veut, d'apprendre, modifier et perfectionner.

Sur votre méthode je pourrais dire que 'ActiveWorkbook' , sans demande de confirmation, la rend dangereuse en cas de lancement inopportun.

Réagissez, réagissez, mais vos assertions, assénées comme vérités restent cependant très relatives.

Bonne continuation

 

Dernière édition: 12 Mai 2020

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 12 Mai 2020

• #7

Désolé, Roblochon, mais il ne s'agit :
- ni de simples "assertions"
- ni de particularités exceptionnelles du classeur
Le code qui a été accepté tombera tout simplement en erreur (mémoire insuffisante), dès lors que le Usedrange est important.
Je viens d'en faire le test : sur ma machine et avec l'une des feuilles allant jusqu'à la colonne "XX" et la ligne 500000 (très loin d'être exceptionnel, hein ...)-->> sortie brutale en debug pour mémoire insuffisante. Cette insuffisance de mémoire pourra de surcroît intervenir à des niveaux de usedrange différents selon à la fois la machine et ce qu'il y reste de mémoire disponible au moment de l'opération
Ne pas en faire état serait, de ma part, manquer d'honnêteté, voire trahir.
Sur ce ...

 

Dernière édition: 12 Mai 2020

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2020

• #8

Re,

Oui, c'est vrai, vous avez raison j'ai oublié qui vous êtes et votre état de devin, que vous connaissiez tout des besoins et conditions particulières des demandeurs.

Bref, vous êtes le meilleur.

C'est pourquoi et sur ce ... je vous souhaite la bonne journée.

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 12 Mai 2020

• #9

A Roblochon
Je n'ai en général rien à faire des états d'âme.
Mon rôle a ici été d'alerter sur les conséquences du code adopté, dès lors que l'une des feuilles du classeur était volumineuse (et pas vraiment nécessairement très volumineuse, d'ailleurs).
Je ne veux pas être responsable, en me taisant, d'un plantage intervenant éventuellement plus tard (lorsque, ayant été abondée, l'une -il suffit d'une - des feuilles sera devenue importante en occupation de lignes et colonnes.
Je réitère donc tout ce que j'ai dit et prie pour que ce soit lu et compris par tout éventuel visiteur de la présente discussion.
Bonne journée.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 12 Mai 2020

• #10

@jmfmarques à dit:

Je n'ai en général rien à faire des états d'âme.

Cliquez pour agrandir...

Ah bon?! Ce n'en est pas un ceci :

@jmfmarques à dit:

Il ne m'est pas possible de ne pas réagir au choix ainsi fait.

Cliquez pour agrandir...

 

Dernière édition: 12 Mai 2020

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 12 Mai 2020

• #11

Ah bon?! Ce n'en est pas un ceci :

Cliquez pour agrandir...

Absolument pas. C'est, comme d'ailleurs dit, une réaction nécessaire, à ce qui pourrait générer un bug dès que le usedrange de n'importe laquelle des feuilles devient important (du fait de données ajoutées) 🙂
Il importe à mon sens que tout lecteur de cette discussion sache tout du risque non négligeable couru

otarc, que j'ai pris la peine de contacter par MP m'ayant répondu que son classeur n'était composé que de six petites feuilles avec peu de données, le code adopté est sans danger pour lui.
Il en reste toutefois un de manière plus générale (et bien plus fréquente), raison pour laquelle j'insiste sur tout ce que j'ai dit plus haut. Et ce d'autant que, sans cette alerte, le prochain visiteur pourrait se laisser avoir ...

 

Dernière édition: 12 Mai 2020

Vote positif 0 Vote négatif