gratifiant > microsoft.* > microsoft.excel

ManBas (30/11/2005, 12h26)
Bonjour à tous,
J'ai plusieurs feuilles identiques (1 par semaine) dans mon classeur.
Comment dois-je écrire le code pour que ma boucle parcoure toutes les
feuilles (visibles) et me rende le résultat sur la première?
Lorsque je rajoute un For Next pour chaque feuille j'ai le résultat de
chaque feuille sur chacune d'elle.
Sub compte()
Range("feuil1!B1") = 0
'Dim f As Worksheet
Dim CellA As Range
Dim x As Integer
x = 1
For Each CellA In Range("A1:A20")
If CellA = "yes" Then
Range("feuil1!B1") = x
x = x + 1
End If
Next CellA
End Sub

Merci de votre aide.
Daniel (30/11/2005, 12h58)
Bonjour.
Teste la macro suivante :

Sub compte()
Range("feuil1!B1") = 0
'Dim f As Worksheet
Dim CellA As Range
Dim x As Integer
x = 1
For Each Sheet In Sheets
For Each CellA In Range("A1:A20")
If CellA = "yes" Then
Range("feuil1!B1") = x
x = x + 1
End If
Next CellA
Next
End Sub

Cordialement.
Daniel
"ManBas" <nonospam-j.ragni> a écrit dans le message de news:
uko$OiZ9FHA.2832...
[..]
docm (30/11/2005, 13h14)
Bonjour ManBas.

Sub zaza1()
For Each f In Worksheets
If f.Visible = True Then
f.Range("B1").Value =
Application.WorksheetFunction.CountIf(f.Range("A1: A20"), "yes")
End If
Next
End Sub

docm

ManBas déclare:
[..]
ManBas (30/11/2005, 15h48)
Simple, efficace, merci Daniel.

Merci Daniel
"Daniel" <dZZZcolardelle> a écrit dans le message de news:
OEfI3zZ9FHA.1332...
[..]
ManBas (30/11/2005, 15h56)
Bonjour Docmarti,
Merci pour ce code différent (plus concis) de ce que je sais faire. Mais il
plante sur la ligne:
f.Range("B1").Value =
Application.WorksheetFunction.CountIf(f.Range("A1: A20"), "yes")
avec une erreur 1004 (erreur aplication ou objet).
Est-ce que j'ai oublié quelque chose?

"docm" <docmarti> a écrit dans le message de news:
eCG$37Z9FHA.1020...
[..]
ManBas (30/11/2005, 16h02)
Euh, ça le fais plus !!!
Seule la première feuille est prise en compte!
....
"Daniel" <dZZZcolardelle> a écrit dans le message de news:
OEfI3zZ9FHA.1332...
[..]
ManBas (30/11/2005, 16h19)
Je ne comprends pas:.
J'ai fixé x=0 pour le départ.
S'il y 1 fois l'item dans la colonne de la 1ere feuille (et 0 dans la 2ème
feuille), le compte renvoi 2.
S'il y a 2 fois l'item dans la colonne de la 1ere feuille (et 0 dans la 2ème
feuille), le compte renvoie 5.
S'il y a 3 fois l'item dans la colonne de la 1ere feuille (et 0 dans la 2ème
feuille), le compte renvoie 8.
?????
"Daniel" <dZZZcolardelle> a écrit dans le message de news:
OEfI3zZ9FHA.1332...
[..]
docm (30/11/2005, 18h52)
La cellule B1 de la feuille est probablement protégée en écriture.

docm

ManBas déclare:
[..]
Discussions similaires