Discussion :

[leronce]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[EngueEngue]

Dans ton bout de code ton activate ne sert à rien

[leronce]

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

[EngueEngue]

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

[leronce]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EngueEngue]

Vire ton S.activate et remplace:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

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

[leronce]

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

[EngueEngue]

Un regard extérieur permet de rajouter quelques neurones!