valeurs

eutrophisation · 11 Octobre 2010

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 · 11 Octobre 2010

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 · 11 Octobre 2010

Re : valeurs

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

Code:

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 · 12 Octobre 2010

Re : valeurs

Bonjour

C'est ce que je cherchais

Staple1600 · 12 Octobre 2010

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 · 28 Octobre 2010

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.

valeurs

eutrophisation

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

Discussions similaires

valeurs

eutrophisation

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

eutrophisation

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency