Simplification max du code

bonjour es que l'on peux simplifier ce code svp

Code:

---

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

Bonjour pilounet54,

Voila une proposition :

Code:

---

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

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

En vba Worksheetfunction.countif

Attention lors de simplification :

Code:

---

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:

---

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

---

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:

---

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é.

+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:

---

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

---

bonjour et merci pour tout
à tout de suite ;)