Suppression de "activate"

bonjour au forum
dans ma chasse aux "select, activate", un "activate" me pose pb à supprimer
ci-dessous, code partiel:
je parcours 3 feuilles (S) pour compter lignes avec particularités, mais sans "activate", je n'obtiens pas ce que je veux

Code:

---

1 2 3 4 5 6

Application.ScreenUpdating = False For Each S In Worksheets(Array(3, 5, 6)) S.Activate Nbl = S.Range("B" & S.Rows.Count).End(xlUp).Row Set MaPlage = S.Range("I2:I" & Nbl) For Each Cellule In MaPlage

---

surement pas grand chose à modifier, mais mon neurone rend l'âme, alors un bon samaritain pour un athée serait le bienvenu (lol)

Dans ton bout de code ton activate ne sert à rien

hélas si, car je suis positionné sur la 2ème feuille, et sans activate, ma macro écrit sur cette feuille et non sur les 3, 5 & 6

ps: merci de m'avoir lu

Tu as du oublier un S. quelque part mais pas dans ce bout de code.. mets nous le reste

voici l'intégralité de ma sous-procédure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub N_Cpte_Anim() 'compte animaux en S3 & S5 & S6 Dim Cellule As Range, MaPlage As Range, Nbl As String Dim Compteur As Integer, i As Integer, S Application.ScreenUpdating = False For Each S In Worksheets(Array(3, 5, 6)) S.Activate Nbl = S.Range("B" & S.Rows.Count).End(xlUp).Row Set MaPlage = S.Range("I2:I" & Nbl) For Each Cellule In MaPlage For i = 1 To Len(Cellule) If Mid(Cellule, i, 1) = Chr(44) Then 'cherche virgule Compteur = Compteur + 1 End If Next i Next Cellule Range("I1") = "Nombre Animaux = " & Compteur Compteur = 0 Next S Application.ScreenUpdating = True End Sub

---

Vire ton S.activate et remplace:

Code:

---

S.Range("I1") = "Nombre Animaux = " & Compteur

---

On n'a pas le code que tu utilises pour écrire.

@EngueEngue: merci bon samaritain, nickel, bref la peccadille qui m'emm..ait, est partie

Un regard extérieur permet de rajouter quelques neurones!

hi hi hi hi hi an pour moi, ton avoine est excellente au vu de tes inters