Discussion :

[tututas]

Bonjour, j'ai également besoin d'aide svp,
j'ai un fichier excel avec 2 pages et j'essaie de compter le nombre d'opérateur total par box (en m'aidant de la feuille "OPERATEURS") et inscrire ces valeurs dans la colonne 9 de la feuille "AFFICHAGE", et ce pour chaque box.
Je met ici les aperçus et le programme que j'ai commencé à faire.
Merci de votre aide

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
Sub nbopeo()
Dim i As Integer, n As Single, box As Single
i = 3
n = 0
box = Sheets("AFFICHAGE").Cells(i, 1)
 
If Sheets("AFFICHAGE").Cells(i, 1) = Sheets("OPERATEURS").Cells(i, 1) Then
Do While Not IsEmpty(Sheets("OPERATEURS").Cells(i, 1))
 
 
    Do While Sheets("OPERATEURS").Cells(i, 1) = box
    n = n + 1
    i = i + 1
 
    Loop
 
    i = i + 1
 
Loop
 
 
End If
Sheets("OPERATEURS").Cells(i, 9) = n
Sheets ("AFFICHAGE")
i = i + 1
 
End Sub

[unparia]

Bonjour
Une simple formule Excel devrait ici faire l'affaire.

J'aimerais connaître :
1) la raison de cette condition :

Code :

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

If Sheets("AFFICHAGE").Cells(i, 1) = Sheets("OPERATEURS").Cells(i, 1) Then

2) ce à quoi te sert cette ligne de code avant le End Sub :

Code :

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

1
2
3
i = i + 1
 
End Sub

[BENNASR]

Bonjour
une solution parmi d'autres

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
Sub test()
Application.ScreenUpdating = False
Dim tablo
Dim derlig As Long
Dim j As Integer
Dim i As Long
Dim x As Variant
With Sheets("OPERATEURS")
tablo = .Range("A3", "G" & .Range("G" & .Rows.Count).End(xlUp).Row)
End With
 
With Sheets("AFFICHAGE")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
For j = 3 To derlig
        For i = LBound(tablo, 1) To UBound(tablo, 1)
             If .Cells(j, 1) = tablo(i, 1) Then
             x = x + tablo(i, 7)
             End If
        Next i
  .Cells(j, 9) = x
  x = 0
  Next j
End With
Application.ScreenUpdating = True
End Sub

[Algoplus]

Bonjour à tous,

Dans les exemples fournis, pour la box 1234, faudrait il trouver 4 opérateurs ou 3 opérateurs; Alison étant en doublon.

A+