Discussion :

[songs_of_liberty]

Salut, je suis nouveau sur le forum et j'éspere que vous réussirez à m'aider ;

Le principe est le suivant, je possède par exemple ces valeurs en colonne:
23
23
23
0
0
23
0
0
0
0
0
9
0
7
7
0

et je souhaite regrouper par nombre d'apparitions tout en respectant l'ordre d'apparition, attention: quelque soit le nombre de "0" on remplacera par "0".
Ce qui doit donner cela:

3
0
1
0
1
0
2
0


Je vous remercie d'avance pour votre aide

[drakkar_agfa]

Bonjour,

Première question : Es-tu à l'aise avec le VBA et l'algorithme?
si oui, il a une façon de le faire avec un "buffer"

Deuxième question : Je suis curieux de savoir l'utilité que peut avoir ce genre de macro


EDIT : Si
7
7
7
2
2
0
3
3
3
est-ce qu'on aura

3 ou 5
2 0
0 3
3
(est-ce seulement les "0" qui différencie un des autres?)

[ouisansdoute]

Bonjour,

Vite fait un petit code pour une macro à placer dans un module par exemple (valeurs en colonne A et résultat en colonne B)

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
Sub Liste()
Dim NB_Lignes As Integer
Dim I As Integer    ' Comptage lignes
Dim X As Integer    ' Ecriture résultat
Dim Compteur As Integer    ' Compteur valeurs
 
X = 2
Compteur = 0
 
NB_Lignes = ActiveSheet().UsedRange.Rows.Count
    For I = 2 To NB_Lignes
        If Cells(I, 1) = 0 Then
            Compteur = 0
        Else
            If Cells(I, 1) <> Cells(I - 1, 1) Then
                Compteur = 1
            Else
                Compteur = Compteur + 1
            End If
        End If
        If Cells(I, 1) <> Cells(I + 1, 1) Then
            Cells(X, 2) = Compteur
            X = X + 1
        End If
    Next
End Sub

[songs_of_liberty]

Bonjour,

Première question : Es-tu à l'aise avec le VBA et l'algorithme?
si oui, il a une façon de le faire avec un "buffer"

Deuxième question : Je suis curieux de savoir l'utilité que peut avoir ce genre de macro


EDIT : Si
7
7
7
2
2
0
3
3
3
est-ce qu'on aura

3 ou 5
2 0
0 3
3
(est-ce seulement les "0" qui différencie un des autres?)

Salut,

Par rapport à la première question il est vrai que j'ai été plus formé au language en C plutôt qu'au VB.

Pour ce qui est de la deuxième question, ce cas se retrouve dans mon projet Semestre 4 pour une entreprise. En fait je dois continuer un simulateur développé sous excel et qui se base sur la méthode des "lots". cette méthode se base sur le regroupements de certaines entités en respectant un ordre d'apparition (Je suis désolé c'est un peu compliqué, mais au moins ça prouve que ma question a un intérêt).

3-

Dans l'exemple ci dessus on aura:

3
2
0
3

En fait il faut aussi compter les changements de numéros de lots;

[songs_of_liberty]

Bonjour,

Vite fait un petit code pour une macro à placer dans un module par exemple (valeurs en colonne A et résultat en colonne B)

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
Sub Liste()
Dim NB_Lignes As Integer
Dim I As Integer    ' Comptage lignes
Dim X As Integer    ' Ecriture résultat
Dim Compteur As Integer    ' Compteur valeurs
 
X = 2
Compteur = 0
 
NB_Lignes = ActiveSheet().UsedRange.Rows.Count
    For I = 2 To NB_Lignes
        If Cells(I, 1) = 0 Then
            Compteur = 0
        Else
            If Cells(I, 1) <> Cells(I - 1, 1) Then
                Compteur = 1
            Else
                Compteur = Compteur + 1
            End If
        End If
        If Cells(I, 1) <> Cells(I + 1, 1) Then
            Cells(X, 2) = Compteur
            X = X + 1
        End If
    Next
End Sub

A premiere vue ça marche plutôt bien... je vous tiens au courant.

et MERCI encore

[drakkar_agfa]

Il est possible de le faire par formule Excel.

Avec l'option "sous-totaux" mais au lieu de choisir "somme" tu n'as qu'a choisir "nombre". C'est un peu de bidouillage (effacer les lignes ensuite)

Mais un code comme celui nonsurementpas (non non, de ouisansdoute) est plus "beau"