Discussion :

[NulenVBA]

Bonjour, je progresse et commence a aimer coder, un peu, mais des choses comme cela me font douter.
En effet, mon total reprend mes sommes à 0, il ne va pas chercher l'incrémentation. Savez-vous pourquoi ?
Merci!

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
28
29
Dim Feuille As Worksheet
Dim a, b, c, d, e, f As Integer
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0
 
For Each Feuille In ActiveWorkbook.Sheets
    If Feuille.Name <> "Résultats individuels" And Feuille.Name <> "Résultats d'ensemble" Then Feuille.Name = Feuille.Cells(17, 5).Value & "#" & Feuille.Cells(19, 5).Value
    If Cells(21, 5) = "Business Analyst" Then a = a + 1
    If Cells(21, 5) = "Consultant" Then b = b + 1
    If Cells(21, 5) = "Senior Consultant" Then c = c + 1
    If Cells(21, 5) = "Manager" Then d = d + 1
    If Cells(21, 5) = "Senior Manager" Then e = e + 1
    If Cells(21, 5) = "Associé" Then f = f + 1
Next Feuille
 
 
'Calculs'
Cells(4, 2).Value = Worksheets.Count - 2
Cells(5, 2).Value = WorksheetFunction.Sum(Range(Cells(6, 2), Cells(11, 2)))
Cells(6, 2).Value = a
Cells(7, 2).Value = b
Cells(8, 2).Value = c
Cells(9, 2).Value = d
Cells(10, 2).Value = e
Cells(11, 2).Value = f

[drakkar_agfa]

Bonjour,

essais ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each Feuille In ActiveWorkbook.Sheets
with Feuille
    If Feuille.Name <> "Résultats individuels" And Feuille.Name <> "Résultats d'ensemble" Then Feuille.Name = Feuille.Cells(17, 5).Value & "#" & Feuille.Cells(19, 5).Value
    If Cells(21, 5) = "Business Analyst" Then a = a + 1
    If Cells(21, 5) = "Consultant" Then b = b + 1
    If Cells(21, 5) = "Senior Consultant" Then c = c + 1
    If Cells(21, 5) = "Manager" Then d = d + 1
    If Cells(21, 5) = "Senior Manager" Then e = e + 1
    If Cells(21, 5) = "Associé" Then f = f + 1
end with
Next Feuille

Et, sais-tu que ceci

Code :

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

Dim a, b, c, d, e, f As Integer

Seulement le f sera Integer, les autres seront déclarés as variant.

Aussi, au lieu des if, tu peux utiliser un select case.

Est-ce que ça a du sens?

[NulenVBA]

Non, ça ne change pas le résultat, pourtant en faisant Debug F8 le programme a l'air de prendre les choses dans le bon ordre. Quelque chose m'échappe: les valeurs prises sont bien les valeurs initiales. Bizarre. Merci en tout cas pour cet essai.

Les valeurs auxquelles les cases renvoient sont des menus Excel à choix multiples. Est-ce que ça a une influence? A priori non car quand je mets une cellule figée ça ne marche pas plus. Dur de programmer mais je commence à aimer cela. Seul problème: je suis vraiment très très lent!

[wilfried_42]

bonjour à tous

je pense que si tu as fais une boucle sur les feuilles c'est pour les utiliser

tu as 2 solution, celle de drakkar_agfa sans oublier le "." devant cells

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For Each Feuille In ActiveWorkbook.Sheets
     with Feuille
           If .Name <> "Résultats individuels" And .Name <> "Résultats d'ensemble" Then .Name = .Cells(17, 5).Value & "#" & .Cells(19, 5).Value
          If .Cells(21, 5) = "Business Analyst" Then a = a + 1
          If .Cells(21, 5) = "Consultant" Then b = b + 1
          If .Cells(21, 5) = "Senior Consultant" Then c = c + 1
          If .Cells(21, 5) = "Manager" Then d = d + 1
          If .Cells(21, 5) = "Senior Manager" Then e = e + 1
          If .Cells(21, 5) = "Associé" Then f = f + 1
     end with
Next Feuille

ou encore

Code :

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

1
2
3
4
5
6
7
8
9
For Each Feuille In ActiveWorkbook.Sheets
    If Feuille.Name <> "Résultats individuels" And Feuille.Name <> "Résultats d'ensemble" Then Feuille.Name = Feuille.Cells(17, 5).Value & "#" & Feuille.Cells(19, 5).Value
    If Feuille.Cells(21, 5) = "Business Analyst" Then a = a + 1
    If Feuille.Cells(21, 5) = "Consultant" Then b = b + 1
    If Feuille.Cells(21, 5) = "Senior Consultant" Then c = c + 1
    If Feuille.Cells(21, 5) = "Manager" Then d = d + 1
    If Feuille.Cells(21, 5) = "Senior Manager" Then e = e + 1
    If Feuille.Cells(21, 5) = "Associé" Then f = f + 1
Next Feuille

[NulenVBA]

D'accord, il faut donc répéter la référence à la feuille bien que l'on soit dans une boucle For? Eh bien, que de subtilités que VBA recèle!

Je vais essayer ça et je vous tiens au courant.

En tout cas je suis con,tent, cela faisait 5 ans que jessayais de coder sans reussir à m'y mettre mais là c'est bien parti!