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

[ouskel'n'or]

Si tu ne mets rien dans DateT, tu compares Rien avec le contenu d'une cellule, alors ton test ne sert à rien. Tu peux donc supprimer tout ça

For i = 38 To 70
......If Sheets(2).Cells(i, 3).Value = DateT Then
...........NbJour = NbJour + 1
......End If
Next i

et mettre directement

Code :

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

1
2
MsgBox (Sheets.Count)
MsgBox 0

C'est lundi, je plaisante
Dis-nous ce que tu veux faire, on pourra sans doute t'aider

[vuong1]

Je souhaite compté le nombre de cellule où il y a une date dans chaque feuille, il s'agit de faire une moyenne journalière. Je pense qu'il faut voir avec la fonction format ce que je suis entrain de faire mais j'avoue c'est un peu compliqué.

[vuong1]

Voilà ce que j'ai essayé mais il ne me trouve toujours pas le bon nombre de cellule

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim NbJour As Integer, i As Integer
Dim DateT As String
NbJour = 0
For j = 1 To Sheets.Count
   For i = 38 To 70
      DateT = Format(Sheets(j).Cells(i, 3).Value, "jjjj jj/mm")
      If Sheets(j).Cells(i, 3).Value = DateT Then
         NbJour = NbJour + 1
      End If
   Next i
Next j
MsgBox (NbJour)
End Sub

[ouskel'n'or]

Là, tu ne regardes que dans une feuille (Sheets(2)) mais je pense que tu le sais.
Regarde la fonction IsDate, dans l'aide et teste ça

Code :

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

1
2
3
4
5
   For i = 38 To 70
      If isdate (Sheets(j).Cells(i, 3).Value) Then
         NbJour = NbJour + 1
      End If
   Next i

Tu dis
A+

[vuong1]

Ok je voit, merci mek ++