Microsoft 365 VBA Fonction pour Copier/ Coller valeur ?

[trekkeur50]

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]

Bonsoir le fil, trekkeur50

•>trekkeur50
Une suggestion
Le faire en laissant l’enregistreur de macros
Ce qui te donnera la syntaxe VBA
Ensuite, il suffira d'adapter 😉

 

[Staple1600]

Re

Et une seconde suggestion
(je viens de tester la première)
Et je suis arrivé à ceci

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 😉

 

[trekkeur50]

Merci Staple
Ca été rapide et efficace 🙂