Discussion :

[vuong1]

Bonjour, j'aimerais savoir comment fais -t-on pour sélectionner des cellules qui se trouvents sur plusieurs feuilles. J'ai essayé la sybtaxe suivante sans succès, VB ne reconnait pas la methode. Quelqu'un peut-il m'aider svp :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Bt_MoyenneJour_Click()
Dim NbJour As Integer, i As Integer
Dim MesFeuilles As Sheets
Dim DateT As Date
NbJour = 0
For Each MesFeuilles In ActiveWorkbook
   For i = 38 To 70
      If MesFeuilles.Cells(i, 3).Value = DateT Then
         NbJour = NbJour + 1
      End If
   Next i
Next MesFeuilles
End Sub

avec

Code :

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

1
2
3
 
Dim MesFeuilles As Worksheets
MesFeuilles.Cells(i, 3)

sa ne marche pas non plus

[patbou]

bonjour

essaye
For Each MesFeuilles In Worksheets
la boucle for each bouclant sur chaque elements de la collection
for each element in group

pas testé

[patbou]

j ai oublié
Dim MesFeuilles As worksheet

[alsimbad]

salut vuong
je n'ai pas trouvé l'astuce non plus, pourtant a priori, le code n'est pas mauvais, mais c'est une histoire de définition de la collection, bref, il est 6 h du mat....
utilise ça, c'est moins poétique mais ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Bt_MoyenneJour_Click()
Dim NbJour As Integer, i As Integer
Dim DateT As Date
NbJour = 0
For j = 1 To Sheets.Count
   For i = 38 To 70
      If Sheets(j).Cells(i, 3).Value = DateT Then
         NbJour = NbJour + 1
      End If
   Next i
Next j
End Sub

[AlainTech]

Un code "propre" avec instanciation (mise en application des conseils de patbou):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Bt_MoyenneJour_Click()
Dim NbJour As Integer, i As Integer
Dim wksSheet As Worksheet
Dim DateT As Date
NbJour = 0
For Each wksSheet In Worksheets
   For i = 38 To 70
      If wksSheet.Cells(i, 3).Value = DateT Then
         NbJour = NbJour + 1
      End If
   Next i
Next wksSheet
End Sub

[vuong1]

Vous aviez raison, il s'agissait du problème de collection sa marche mais pas tout à fait, il me compte pas le bon nombre de cellule. Jai essayé sur une seule feuille, VBA me retourne 8 alors qu'il y en a 23 sachant que les dates sont definies à partir de la premiere cellule, les autres j'y ajoute le nombre de jour supplémentaire, pouvez-vous me dire à quoi cela est du pourtant je declare bien une variable DateT de type date. Merci d'avance

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
 
Private Sub Bt_MoyenneJour_Click()
Dim NbJour As Integer, i As Integer
Dim DateT As Date
NbJour = 0
 
   For i = 38 To 70
      If Sheets(2).Cells(i, 3).Value = DateT Then
         NbJour = NbJour + 1
      End If
   Next i
 
MsgBox (Sheets.Count)
MsgBox (NbJour)
End Sub