compter le nombre d’occurrences identiques dans une colonne

Version imprimable

bonjour
j'ai crée une macro sous vba-excel pour compter le nombre des contrats identique mais ça marche pas
ci aprés le code

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
Private Sub agence_Change()
Dim Rw As Range
Dim i As Integer
Dim j As Integer
i = 2
j = 1
 
Feuil4.Select
Feuil4.Activate
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
'Tant que la cellule de la colonne 9 n'est pas vide
While Trim(Feuil4.Cells(i, 9).Value) <> ""
Dim nb As Integer
If Cells(i, 9).Value Like agence.Text Then
nb = nb + 1
Rows(i).Select
End If
 
i = i + 1
Wend
 
While Cells(i, 9).Value Like agence.Text
Dim nb1 As Integer
Dim nb2 As Integer
If Cells(i, 8).Value = Cells(i + 1, 8).Value Then (pour compter le nombre des contrats identiques dans une colonne le probleme est ici ce code ne renvoie pas le nombre des contrat identique)
num1 = num1 + 1
End If
 
If Cells(i, 7).Value = Cells(i, 6).Value And Cells(i, 7) <> "" And Cells(i, 6) <> "" Then
nb2 = nb2 + 1
End If
i = i + 1
Wend
 
nb.Text = b
produit.Text = nb.Text - nb1
encaissé.Text = nb.Text - nb2
annulé.Text = produit.Text - encaissé.Text
 
End Sub

30/07/2016, 10h56
AlainTech
Bonjour et bienvenue,

3 petites choses pour avoir plus de chances d'obtenir une réponse:
- Ne pas poster ta question dans la discussion d'un autre
  Beaucoup d'intervenants regardent les discussions sans réponse et si, par hasard, quelqu'un te répond, tu ne pourras pas mettre la discussion en "Résolu".
- Baliser ton code avec les balises [CODE][/CODE]. Je l'ai fait pour toi cette fois-ci.
- Ca ne marche pas ne nous donne aucune indication.
  Soit il y a un message d'erreur et il faut que tu nous le donnes et par quelle ligne il est généré, soit ton code ne donne pas le résultat attendu et il faut nous dire ce qui se passe.
30/07/2016, 11h15
casefayere
Bonjour,
après les remarques de AlainTech, les miennes
Code:

1 2 Feuil4.Select Feuil4.Activate
à quoi ça sert ?
il suffit de commencer par
Code:

1 2 3 4 With Feuil4'si c'est le codename ... ... End With
et mettre un "." devant les "Cells" ou "Range" appelés

Code:

ActiveCell.SpecialCells(xlLastCell).Select

pourquoi "Select" ?, Quelle est la cellule active ?

Code:

Range(Selection, Cells(1)).Select

ne sert à rien et je l'aurais mis (par logique) dans l'autre sens

Code:

Range(Cells(1),Selection).Select

mais comme je dis, inutile

ci-dessous
Code:

1 2 While Trim(Feuil4.Cells(i, 9).Value) <> "" Dim nb As Integer
tu déclares une variable à l'intérieur d'une boucle donc à chaque fois nb s'initialise, "Dim nb As Integer" à déclarer en début de procédure

je ne vais pas plus loin sans meilleures informations

bon courage

Bonjour,

Une piste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Test()
 
    Dim Plage As Range
 
    With Worksheets("Feuil4")
 
        Set Plage = .Range(.Cells(1, 9), .Cells(.Rows.Count, 9).End(xlUp))
 
    End With
 
    MsgBox Application.CountIf(Plage, agence.Text)
 
End Sub