Discussion :

[pmoge]

Bonjour,
Est-ce que il y’a qlqun qui peut m’aider un faire un petit programme en Vab Excel qui contient un compteur qui peut me compter le nombre de dossiers par mode de transport a partir de feuille1 a feuille 2
Voir format voulue sur feuille2 dans le fichier ci-joint

[Invité]

Bonjour et bienvenue sur le forum Office de DVP.

Beaucoup de membres du forum ne téléchargent pas les pièces jointes (pour des raisons de sécurité ou de connexion), c'est pour cela qu'il est aussi intéressant de détailler clairement son problème.

Philippe

[helas]

Ca pourrait ressembler à ça

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 calcul()
 Dim ligne As Long, lignemax As Long, mois As Long, transport As Long
 
 Sheets("Feuil2").Range("B4:D16").ClearContents
 Sheets("Feuil1").Activate
 lignemax = Selection.SpecialCells(xlCellTypeLastCell).Row
 
 For ligne = 2 To lignemax
  If Sheets("Feuil1").Cells(ligne, 1) <> "" Then
   mois = Format$(Sheets("Feuil1").Cells(ligne, 1), "m")
   t = Sheets("Feuil1").Cells(ligne, 8)
   For transport = 2 To 4
    If t = Sheets("Feuil2").Cells(3, transport) Then Exit For
   Next transport
   Sheets("Feuil2").Cells(3 + mois, transport) = Sheets("Feuil2").Cells(3 + mois, transport) + 1
  End If
 Next ligne
 Sheets("Feuil2").Activate
 
End Sub

Il suffit de créer un bouton sur la feuille "Feuil2" qui pointe sur calcul

[laetitia]

bonjour pmoge Philippe helas le forum
dans ton cas pourquoi passer par vba ???? par formule plus simple
ex: avec sommeprod

feuille2 cellule b4

Code :

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

=SOMMEPROD((Feuil1!$A$2:$A$10000="01/01/2009"*1)*(Feuil1!$H$2:$H$10000="DHL"))

tu etires la formule jusqu'a b15 & tu modifies
idem pour les autres cellules tu modifies seulement adresse & condition

tu remarques que janv.09 je l'écris "01/01/2009"*1
donc => févr.-09 = "01/02/2009"*1

[pmoge]

Bonjour Helas,
je vous remercie pour votre solution;néanemoins, ca me done la meme resultat qu'avec le tableau croisé dynamique ou someprode.Ca me compte les doublons des dossiers toujours ; est ce que c'est possible de ne pas compter les doublons.
Est ce que c'est possible aussi d'aficher le nombre des dossiers qui sont payé et ceux qui n'on pas??

je vous remerci beacoup pour votre aide