Modification de code

Question

Slt à tout le forum,

Je dispose d'une codification (ci-dessous) que je n'arrive pas à modifier comme je le souhaite.

Il s'agit là d'une "codification test" dont les résultats attendus correspondent aux attentes.

Sauf que cette phase de test à été appliquée sur une seule feuille (pour test) et en l'occurrence la feuille "Feuil1" (sub deb).

La modification consisterait à ce que ce code s'applique de la même façon sur toutes les feuilles d'un même classeur actif, à partir de la feuille active.

Merci de votre aide

Dim compteur, compte, inc, borneb, borneh

Sub deb()

borneb = -1: borneh = 10

Call compt(Sheets("Feuil1"), 3)

borneb = 9: borneh = 20

Call compt(Sheets("Feuil1"), 4)

borneb = 19: borneh = 10000

Call compt(Sheets("Feuil1"), 5)

End Sub

Sub compt(feuille, rangt)

Set zone = feuille.Range("a2:a167")

compte = 0: compteur = False

For Each i In zone

im = i.Offset(-1, 0)

If (i < borneh And i > borneb) Or (im < borneh And im > borneb) Or i = "" Then Call compta(i, im, rangt)

Sub compta(i, im, rangt)

If compteur = False Then

compteur = True

Else

If im < borneh And im > borneb Then

If (im < borneh And im) And i <> 1 Then inc = 2 Else inc = 1

compte = compte + inc

If i = 1 Or i = 2 Then

compteur = False

compte = compte & "G"

i.Offset(0, rangt - 1) = compte

compte = 0

End If

Else

If im > borneh - 1 Or im < borneb + 1 Then inc = 0

compte = compte + inc

End If

End Sub

oxydum · Answer

Peut-être quelque chose comme ça : Sub deb() For Each SH In Sheets borneb = -1: borneh = 10 Call compt(SH, 3) borneb = 9: borneh = 20 Call compt(SH, 4) borneb = 19: borneh = 10000 Call compt(SH, 5) Next End Sub...