Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel macro qui agit sur toutes les feuilles d'un classeur

macro qui agit sur toutes les feuilles d'un classeur

20 réponses
Avatar
newoceane2000
Bonjour =E0 tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne tr=E8s bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) =3D "A"
Case 10.000001 To 30: Range("B" & b.Row) =3D "B"
Case 3.000001 To 10: Range("B" & b.Row) =3D "C"
Case 1.000001 To 3: Range("B" & b.Row) =3D "D"
Case 0.300001 To 1: Range("B" & b.Row) =3D "E"
Case 0.100001 To 0.3: Range("B" & b.Row) =3D "F"
Case Is <=3D 0.1: Range("B" & b.Row) =3D "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la m=EAme chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous =E9galement me d=E9crire avec pr=E9cision o=F9 je doit =E9crire=
le
code vba?

Merci pour votre aide
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
j
pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide
Avatar
Pierre Fauconnier
Salut

EN itérant sur les sheets plutôt que sur les worksheets, tu vas planter
s'il existe des feuilles graphiques...

[HS] Je viens de renseigner ton site pour un script permettant de faire
confiance au projet Visual Basic... [/HS]

Bonne soirée

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide


--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")

Avatar
j
pinailleur ! ;-)


----- Original Message -----
From: "Pierre Fauconnier"
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, October 23, 2007 9:15 PM
Subject: Re: macro qui agit sur toutes les feuilles d'un classeur


Salut

EN itérant sur les sheets plutôt que sur les worksheets, tu vas planter
s'il existe des feuilles graphiques...






"Pierre Fauconnier" a écrit dans le
message de news:
Salut

EN itérant sur les sheets plutôt que sur les worksheets, tu vas planter
s'il existe des feuilles graphiques...

[HS] Je viens de renseigner ton site pour un script permettant de faire
confiance au projet Visual Basic... [/HS]

Bonne soirée

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide


--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")





Avatar
j
ça veut dire quoi ?
moi pas comprendre langage HS !

[HS] Je viens de renseigner ton site pour un script permettant de faire
confiance au projet Visual Basic... [/HS]

Bonne soirée

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide


--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")





Avatar
Pierre Fauconnier
En un seul mot, sinon mon épouse va me frapper... ;-)

pinailleur ! ;-)


----- Original Message -----
From: "Pierre Fauconnier"
Newsgroups: microsoft.public.fr.excel
Sent: Tuesday, October 23, 2007 9:15 PM
Subject: Re: macro qui agit sur toutes les feuilles d'un classeur


Salut

EN itérant sur les sheets plutôt que sur les worksheets, tu vas planter
s'il existe des feuilles graphiques...






"Pierre Fauconnier" a écrit dans le
message de news:
Salut

EN itérant sur les sheets plutôt que sur les worksheets, tu vas planter
s'il existe des feuilles graphiques...

[HS] Je viens de renseigner ton site pour un script permettant de faire
confiance au projet Visual Basic... [/HS]

Bonne soirée

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide


--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")



--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")



Avatar
Pierre Fauconnier
Ben... HS = hors sujet...

Pour ce qui est du script, j'avais répondu sur un autre forum
(www.developpez.net) qu'à ma connaissance, il n'y avait pas moyen de
cocher la case par code... puis j'ai trouvé ton site qui
l'expliquait... Et comme ton site est bien fait (sans pommade), je l'ai
renseigné... Comme quoi le pinailleur sait reconnaître le beau boulot
(re sans pommade... ;-) )

ça veut dire quoi ?
moi pas comprendre langage HS !

[HS] Je viens de renseigner ton site pour un script permettant de faire
confiance au projet Visual Basic... [/HS]

Bonne soirée

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide


--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")



--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")



Avatar
j
ahhh, j'adoore la vile flatterie !


"Pierre Fauconnier" a écrit dans le
message de news:
Ben... HS = hors sujet...

Pour ce qui est du script, j'avais répondu sur un autre forum
(www.developpez.net) qu'à ma connaissance, il n'y avait pas moyen de
cocher la case par code... puis j'ai trouvé ton site qui
l'expliquait... Et comme ton site est bien fait (sans pommade), je l'ai
renseigné... Comme quoi le pinailleur sait reconnaître le beau boulot
(re sans pommade... ;-) )

ça veut dire quoi ?
moi pas comprendre langage HS !

[HS] Je viens de renseigner ton site pour un script permettant de faire
confiance au projet Visual Basic... [/HS]

Bonne soirée

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide


--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")



--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")







Avatar
j
ou en plus tordu :

Sub test()
for each page in thisworkbook.WORKsheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
b = Chr(70 - (2 * (1 + Int(Log(b) / Log(10))) + (t * 10 ^ Int(-Log(b) /
Log(10)) > 0.3) * (t * 10 ^ Int(-Log(b) / Log(10)) < 1)))
Next
End Sub



"" a écrit dans le message de news:
#

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide





Avatar
Pierre Fauconnier
A mon avis, ta moquette est de mauvaise qualité... lol

ou en plus tordu :

Sub test()
for each page in thisworkbook.WORKsheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
b = Chr(70 - (2 * (1 + Int(Log(b) / Log(10))) + (t * 10 ^ Int(-Log(b) /
Log(10)) > 0.3) * (t * 10 ^ Int(-Log(b) / Log(10)) < 1)))
Next
End Sub



"" a écrit dans le message de news:
#

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide



--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")


Avatar
Pierre Fauconnier
Ah, j'ai cru que tu adorais sans pommade...

"Ne me cherchez pas, je suis déjà dehors..."

ahhh, j'adoore la vile flatterie !


"Pierre Fauconnier" a écrit dans le
message de news:
Ben... HS = hors sujet...

Pour ce qui est du script, j'avais répondu sur un autre forum
(www.developpez.net) qu'à ma connaissance, il n'y avait pas moyen de
cocher la case par code... puis j'ai trouvé ton site qui
l'expliquait... Et comme ton site est bien fait (sans pommade), je l'ai
renseigné... Comme quoi le pinailleur sait reconnaître le beau boulot
(re sans pommade... ;-) )

ça veut dire quoi ?
moi pas comprendre langage HS !

[HS] Je viens de renseigner ton site pour un script permettant de faire
confiance au projet Visual Basic... [/HS]

Bonne soirée

pas testé :

Sub test()
for each page in thisworkbook.sheets
For Each b In page.Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: b= "A"
Case 10.000001 To 30: b = "B"
Case 3.000001 To 10: b = "C"
Case 1.000001 To 3: b = "D"
Case 0.300001 To 1: b = "E"
Case 0.100001 To 0.3: b = "F"
Case Is <= 0.1: b = "G"
End Select
Next
next
End Sub

à mettre de préférence dans un module tout neuf :
oultil / macros / visual basic editor / insertion / module


http://jacxl.free.fr



a écrit dans le message de news:

Bonjour à tous !

Je suis nulle a vba et j'ai donc besoin de votre aide.
J'ai une macro qui fonctionne très bien sur une feuille (elle remplace
les chiffres qui sont dans la colonne B par des lettres) :

Sub test()
For Each b In Range("b1:b" & Range("b65536").End(xlUp).Row)
Select Case b
Case 30.000001 To 100: Range("B" & b.Row) = "A"
Case 10.000001 To 30: Range("B" & b.Row) = "B"
Case 3.000001 To 10: Range("B" & b.Row) = "C"
Case 1.000001 To 3: Range("B" & b.Row) = "D"
Case 0.300001 To 1: Range("B" & b.Row) = "E"
Case 0.100001 To 0.3: Range("B" & b.Row) = "F"
Case Is <= 0.1: Range("B" & b.Row) = "G"

End Select
Next
End Sub

Je voudrais pouvoir avoir une macro qui fasse la même chose sur toutes
les feuilles d'un classeur en un clic.

Pouvez vous également me décrire avec précision où je doit écrire le
code vba?

Merci pour votre aide


--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")



--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")



--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")





1 2