Discussion :

[PasdeSalade]

Bonjour à toutes et tous.

J'aurais bien besoin d'un coup de pouce, car je sèche...

Dans une feuille j'ai un certain nombre de colonnes (cela varie) avec entête (Pers1 à PerX).
Sous ces entêtes j'ai un certain nombre de valeurs, que j'ai trié par macro.
Jusque là ça va (avec l'aide du forum, je le précise...)
Maintenant, je cherche à ventiler ces données par colonne, disons que je voudrais lister les valeurs comme suit :
1 de 12
2 de 22
1 de 32
3 de 33
etc...
J'essaie en vain de faire une routine mais je n'y arrive pas.
Je joins un fichier exemple (sans macro) si cela peut servir.
Merci par avance.
Cordialement.

[PasdeSalade]

Je viens de trouver sur un autre forum, une routine qui fonctionne, ca pourrait aller faute de mieux, mais le résultat vient se placer en horizontal
Je ne comprend pas tout mais un oeil averti certainement ??
Voici :

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 Compte()
Dim Mondico As Object
Dim J As Long
Dim NbLg As Long
 
  NbLg = Range("B" & Rows.Count).End(xlUp).Row
  Set Mondico = CreateObject("Scripting.dictionary")
  For J = 2 To NbLg
    Mondico(Range("B" & J).Value) = Range("B" & J).Value
  Next J
  Range("C1") = Mondico.Count
  Range("D2").Resize(1, Mondico.Count) = Mondico.keys
  Range("D1").Resize(1, Mondico.Count).Formula = "=COUNTIF(R2C2:R" & NbLg & "C2,R[1]C)"
End Sub

[EricDgn]

Bonjour,

Si j'ai bien compris, ceci est ce que vous cherchez à faire:

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
Option Explicit
 
Sub Compter()
    Dim kR As Long, kR2 As Long, kC As Long
    Dim v As Integer, n As Integer
    For kC = 3 To 10
        For kR = 6 To 12
            If Cells(kR, kC) = "" Then
                Exit For
            ElseIf kR = 6 Then
                n = 1
                kR2 = 15
                v = Cells(kR, kC)
            ElseIf Cells(kR, kC) = v Then
                n = n + 1
            Else
                n = 1
                v = Cells(kR, kC)
                kR2 = kR2 + 1
            End If
            Cells(kR2, kC) = n & " de " & v
        Next kR
    Next kC
End Sub

Code vraiment rustique, à adapter !
Bonne continuation.