Discussion :

[walid1980]

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 :

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

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

[casefayere]

Bonjour,
après les remarques de AlainTech, les miennes

Code :

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

1
2
Feuil4.Select
Feuil4.Activate

à quoi ça sert ?
il suffit de commencer par

Code :

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

1
2
3
4
With Feuil4'si c'est le codename
...
...
End With

et mettre un "." devant les "Cells" ou "Range" appelés

Code :

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

ActiveCell.SpecialCells(xlLastCell).Select

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

Code :

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

Range(Selection, Cells(1)).Select

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

Code :

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

Range(Cells(1),Selection).Select

mais comme je dis, inutile

ci-dessous

Code :

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

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

[Theze]

Bonjour,

Une piste :

Code :

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

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