Discussion :

[NSch023]

Bonjour,

J'essaye de réaliser une macro partant d'un bouton.

Lorsque je clique sur ce bouton la liste dans la colonne à coté doit se mettre à jour en fonction du nombre de ligne dans les autres sheets.

Mon soucis ce situe au niveau de la récupération des lignes. J'aimerais que uniquement les lignes de la colonne A contenant un "Y" soit prises en compte dans le nombre de lignes affichées dans l'index.

Merci d'avance pour votre aide.

[jfchappuis]

Voici un exemple de code

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
21
22
23
24
25
26
27
Dim ws As Worksheet
Dim rg As Range
Dim cpt As Long
Dim strOccurence As String
 
strOccurence = "Y"
 
'Parcourt toutes les feuilles
For Each ws In ActiveWorkbook.Worksheets
    'parcourt toutes les cellules
    For Each rg In ws.Range("A:A")
 
        If rg.Value = UCase(strOccurence) Then
            cpt = cpt + 1
 
        End If
 
 
 
    Next rg
 
Next ws
 
 
'la variable cpt contient le nombre d'occurence trouvées et peut être insérée dans une cellule, par exemple
 
Range("Compteur") = cpt

Cette macro met un certain temps à s'exécuter car toutes les cellules de la colonne A de toutes les feuilles sont évalules

Une autre solution serait d'utiliser la fonction nb.si sans passer par une macro