Discussion :

[arctica]

Bonsoir à tous ,

existe -il une macro plus simple pour passer toutes les cellules d'une feuille en valeur que celle la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sheets("globale").Activate
Cells.Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Merci pour votre aide , je débute (a noter que ce code provient de l'enregistreur

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim cel as range
for each cel in sheets("globale")
cel.value=cel.value
next cel

[arctica]

Bonsoir Mercatog,

le code genere une erreur type 438 ou il dit en surlignant la ligne
[CODE] for each cell in sheets "globale
Propriete ou methode non gére par cet objet
la phrase et pourtant sensée..

[mercatog]

Désolé, à main levée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim cel as range, plage as range
 
set plage=sheets("globale").range(TaPlage de données)  ' à adapter, si tu mets sheets("global").cells le traitement sera trop trop long
for each cel in sheets("globale").plage
cel.value=cel.value
next cel

Il faut adapter "TaPlage de données" à la plage de données effective