Discussion :

[wyzer]

Hello,

Voilà, tous les lundi j'extrais la liste des clients débiteurs de l'AS400, que j'intègre dans le fichier "Liste des clients débiteurs", avec comme nom de feuille la date du jour.

Ce que j'aimerais c'est créer un autre fichier avec la liste de tous nos clients, et ajouter une colonne qui se nommerait "Nb de fois débiteurs".

Or, si j'utilise la fonction NB.SI, je ne peux pas lui dire de prendre en compte toutes les colonnes A du fichier "Liste des clients débiteurs".

Donc à mon avis le mieux serait de faire une macro

Mais comment faire svp ?

Merci par avance !!

[mercatog]

Exemple avec consolidation
Données sont en colonne A à partir de la ligne 2 (A1: titre de la colonne)
Une feuille nommée synthèse

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
Sub Macro1()
Dim Sh As Worksheet
Dim LastLig As Long
Dim TabSrce() As String
Dim i As Integer
 
Application.ScreenUpdating = False
ReDim TabSrce(1 To Worksheets.Count - 1)
For Each Sh In Worksheets
   If Sh.Name <> "Synthese" Then
      i = i + 1
      With Sh
         LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
         .Range("B1:B" & LastLig).Value = 1
         TabSrce(i) = .Name & "!R1C1:R" & LastLig & "C2"
      End With
   End If
Next Sh
'Consolidation
With Sheets("Synthese")
   .Range("A1").Consolidate Sources:=TabSrce, Function:=xlCount, TopRow:=True, LeftColumn:=True, CreateLinks:=False
   .Range("A1:B1").Value = Array("Nom", "Nbre")
End With
'Suppression des colonnes B
For Each Sh In Worksheets
   If Sh.Name <> "Synthese" Then
      Sh.Range("B:B").Clear
   End If
Next Sh
End Sub

[wyzer]

Merci !!

Je testerais ça lundi