Microsoft 365 VBA Fonction pour Copier/ Coller valeur ?

trekkeur50

XLDnaute Junior
Bonjour,
j'ai une macro qui me convient mais je voudrais que la copie de la feuille se fasse en valeur.Je ne sais pas comment l'indiquer dans la 3eme ligne de la macro

....
Select Case j
Case Is = 0: 'case = si la condition est remplie
Sheets("Store - Categories").Copy after:=Sheets(Sheets.Count) 'Comment copier en valeur ???
ActiveSheet.Name = ActiveSheet.Range("A1")
....

Merci de votre aide
 

Staple1600

XLDnaute Barbatruc
Re

Et une seconde suggestion
(je viens de tester la première)
Et je suis arrivé à ceci
VB:
Sub OnlyValues()
Sheets(1).Copy after:=Sheets(Sheets.Count)
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
End Sub
A toi de voir ce que tu peux en faire ;)
 

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec