Discussion :

[pilounet54]

bonjour es que l'on peux simplifier ce code 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Compteur_3()
    Dim i As Integer
    Dim j As Integer
    Dim Compteur1 As Integer
    Dim Compteur2 As Integer
    i = 3
    j = 3
    Compteur1 = 0
    Compteur2 = 0
 
    Do While Range("A" & i).Value <> ""
 
     If Range("A" & i).Value = 1 Then
           Compteur1 = Compteur1 + 1
       Else
           'Compteur = 0
     End If
 
     i = i + 1
    Loop
 
 
    Range("j4").Value = Compteur1
 
  Do While Range("A" & j).Value <> ""
 
 
If Range("A" & j).Value = 2 Then
           Compteur2 = Compteur2 + 1
       Else
           'Compteur = 0
     End If
 
     j = j + 1
    Loop
 
 
    Range("k4").Value = Compteur2
 
 
End Sub

merci

[antonysansh]

Bonjour pilounet54,

Voila une proposition :

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
Sub Compteur_3()
 
Dim i, Compteur1, Compteur2 As Integer
 
i = 3
Compteur1 = 0
Compteur2 = 0
 
Do While Range("A" & i).Value <> ""
    If Range("A" & i).Value = 1 Then
        Compteur1 = Compteur1 + 1
    ElseIf Range("A" & i).Value = 2 Then
        Compteur2 = Compteur2 + 1
    End If
    i = i + 1
Loop
 
[J4].Value = Compteur1
[K4].Value = Compteur2
 
End Sub

Antony

[mercatog]

N'oubliez pas la fonction NB.SI d'Excel!!

En vba Worksheetfunction.countif

[Nico Chg]

Attention lors de simplification :

Code :

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

1
2
Dim A, B, C as Integer
msgbox TypeName(A) & vbCrLf & TypeName(B) & vbCrLf & TypeName(C)

On voit ici que les deux premières variables sont "Empty", et seul la dernière est "Integer" : elles ne sont pas toutes Integer.

Attention aussi lors de l'utilisation de "Range" et de "Cells" sans leurs affecter de références, par défaut, elles sont sur la feuille Active, mais c'est une source d'erreur !

Penser à encadrer le code avec "With worksheets("MaFeuille")", ou utiliser le CodeName de la feuille pour plus de sécurité :

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 Compteur_3()
 
Dim i as Integer, Compteur1 as Integer, Compteur2 As Integer
 
i = 3
Compteur1 = 0
Compteur2 = 0
 
With Worksheets("MaFeuille")
Do While .Range("A" & i).Value <> ""
    If .Range("A" & i).Value = 1 Then
        Compteur1 = Compteur1 + 1
    ElseIf .Range("A" & i).Value = 2 Then
        Compteur2 = Compteur2 + 1
    End If
    i = i + 1
Loop
End With
 
[J4].Value = Compteur1
[K4].Value = Compteur2
 
End Sub
 
'Créé par antonysansh

[Theze]

Bonjour,

Comme le dis si bien mercatog, s'il n'est pas nécessaire de trouver la ou les cellules qui ont la valeur cherchée, ContIf est idéal et surtout très rapide :

Code :

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

1
2
3
4
5
6
7
 
Sub Compteur_3()
 
    Range("j4").Value = WorksheetFunction.CountIf(Columns(1), 1)
    Range("k4").Value = WorksheetFunction.CountIf(Columns(1), 2)
 
End Sub

*
Hervé.

[PierrotMfff]

+1 pour CountIf

Moi même j'ai simplifié un code qui bouclait sur 150 colones ce matin, l'utilisation de Countif est très efficace.

Puis au lieu de boucler jusqu'à ce que tu trouves une cellule vide, tu peux directement trouver la première cellule vide et en déduire ton compteur?

Code :

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

1
2
 
Range("A1").End(xlRight).Offset(1, 0).Column

[pilounet54]

bonjour et merci pour tout
à tout de suite