macro qui agit sur toutes les feuilles d'un classeur

Le
newoceane2000
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
j
Le #4999131
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




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
Le #4999111
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




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")

j
Le #4999071
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" 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




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")





j
Le #4999061
ç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




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
Le #4999021
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" 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




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
Le #4999011
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




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")



j
Le #4998961
ahhh, j'adoore la vile flatterie !


"Pierre Fauconnier" 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




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")







j
Le #4998871
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



"" #

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




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
Le #4998631
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



"" #

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




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
Le #4998621
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" 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




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")





Publicité
Poster une réponse
Anonyme