valeurs

[eutrophisation]

BONSOIR

Merci d’avance

With ActiveWorkbook
For i = 1 To .Sheets.Count
.Sheets(i).UsedRange.Value = .Sheets(i).UsedRange.Value
Next i
End With
End Sub

Ce programme que j’avais trouvé sur un site « excel » me permet de transformer les formules de tout mon classeur en valeur. Mon souci est de transformer que les formules de certaines feuilles.
Les feuilles sont les suivantes : menu, liste, saisie, information et données.
Mon fichier est composé de 11 feuilles.

 

[Staple1600]

Re : valeurs

Bonsoir


Utilises le moteur de recherche du forum

et tu trouveras de quoi t'aider

(Ce sujet a déja été traité de nombreuses fois)

UN exemple parmi de nombreux autres
Lien supprimé


PS: peux-tu modifier ton titre , stp (celui-ci tel quel ne veut pas dire grand chose)
Merci.

EDITION: Bonsoir Sieur Kjin
(C'est vrai qu'on peut se passer de la raie 😉 )

 

[kjin]

Re : valeurs

Bonsoir, salut staple 🙂,
Utilisation conjointe de For/Next et Select Case

For Each feuille In Sheets
    Select Case UCase(feuille.Name)
        Case "MENU", "LISTE", "SAISIE", "INFORMATION"
            With feuille
                .UsedRange.Value = .UsedRange.Value
            End With
    End Select
Next

A+
kjin

 

[eutrophisation]

Re : valeurs

Bonjour

C'est ce que je cherchais

 

[Staple1600]

Re : valeurs

Bonjour eutrophisation

Et le petit merci qui va bien à la fin de ton message
il est resté au fond de ton bol de café 🙄

Alors je le fais pour toi: Merci sieur Kjin 😉

 

[eutrophisation]

Re : valeurs

Bonjour
Je viens de lire ton message STAPLLE1600
Effectivement tu as tout à fait raison Merci sieur Kjin.
La joie de découvrir la solution proposée par Mr KJIN m'a fait perdre des comportements des plus élémentaires... Je tiens à reiterer mes remerciements à l'ensemble des membres du forum et plus particulierement aux concepteurs de ce forum. Mon programme a évolué grace à VOUS. Je ne cesse de parler autour de moi de vous, en soulignant votre générosité indéfectible jusqu'à ce jour. Je profite de cette opportunité pour demander de vouloir bien me transmettre votre logo pour que je puisse l'ajouter dans mon programme qui a été fait avec votre collaboration.