Discussion :

[songs_of_liberty]

Salut,

J'ai un petit souci pour regrouper des numeros

Voila, j'ai par exemple sur les colonnes A et B:
A-B et je dois obtenir C-D
2-0 3-0
2-0 0-2
2-0 1-0
0-1 1-0
0-1 0-2
4-0
5-0
0-1
0-1
En fait le principe est de regrouper les valeurs de la colonne A, par exemple trois "2" me donnent 3 -> 0 sur D (il ne peut pas y avoir de 0-0 ou 2-1 par exemple, que ce soit pour les vecteurs A-B ET C-D)
Puis deux "1" sur B me donne 0-2

Je sais que ça a l'air simple

Mais après, si par exemple on a "4" puis "5" sur A on devra avoir 1-0 puis 1-0 sur C-D, en fait il faut prendre en compte les changements.

Merci d'avance pour votre aide,

[casefayere]

Bonsoir,

regardes ce fichier joint, (si j'ai compris)

a +

[songs_of_liberty]

Salut,

Je te remercie pour ton aide, car j'arrête pas de me cogner la tête sur ce problème;
Ca c'est que j'ai trouvé dans fichier (Col. A B C D)
2 0 3 0
2 0 3 0
2 0 3 0
0 1 0 4
0 1 0 4
4 0 1 0
5 0 1 0
0 1 0 4
0 1 0 4

Le truc c'est de compter les nombre, ainsi pour A les trois 2 doivent donner 3 sur la première ligne de C mais après c'est 0 qui doit apparaitre sur la deuxième ligne de C.

Par contre après il y a 4 et 5 sur A donc sur C il y a forcement, 1 et 1 et donc a coté 0 et 0 sur D,

si plusieurs nombre sont similaires consécutivement sur A (ou B) alors il y a un 0 sur D (respectivment C).
si les nombres changent sur A (ou B) il y aura autant de 0 sur D (repspectivement C).

Voici en fichier joint une liste un peu plus longue pour montrer ce qui doit être obtenu en C et D.

++

[casefayere]

Avant de regarder ton fichier, je t'informe qu'une discussion a eu lieu, i n(y a pas tràs longtemps sur exactement le meme sujet

je vais regarder ton fichier mais si tu parcoures le forum, tu retrouveras cette discussion

a +

[songs_of_liberty]

Je me disais bien que c'était pas si evident que ça...

[ilank]

Bonjour,

voici un petit code, mais qui ne donne pas tout à fait ce que tu cherches pour les changements de valeurs entre deux zéros.

En clair, que doit être le résultat de la série suivante

2 0 => 3 0
2 0
2 0
0 1 => 0 2
0 1
4 0 => 1 0
0 1
4 0
0 1
4 0

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
Public Sub GetSerie()
   Dim Derligne As Long 'Dernière ligne du tableau
   Dim CurCol As Long 'Colonne courante de lecture
   Dim CurLigne As Long 'Ligne courante de lecture
   Dim ResultLigne As Long 'Ligne courante de l'affichage
   Dim Compte As Long 'Nombre de valeurs équivalentes successives
   Dim CurValue As Long 'Dernière valeur lue
 
    Derligne = Me.Range("A1").End(xlDown).Row
    CurValue = 0 
    CurCol = 1 
    ResultLigne = 0
    Compte = 0
 
    For CurLigne = 1 To Derligne
'Si la valeur de la cellule courante <> de l dernière valeur lue alors
        If Me.Cells(CurLigne, CurCol) <>CurValue Then
'Si La cellule=0 alors Changer de colonne de lecture
            If Me.Cells(Curligne, Curcol)=0 then CurCol = CurCol - ((-1) ^ CurCol ) 
'Conserver la valeur de la nouvelle cellule
            CurValue = Me.Cells(CurLigne, CurCol)
'Réinitialiser le nombre d'équivalences successives
            Compte = 1
'Passer à la ligne suivante d'affichage
            ResultLigne = ResultLigne + 1
        Else
'Si pas de changements de série alors ajouter à la série
                Compte = Compte + 1
        End If
'Afficher le nombre d'équivalences successives dans la cellule d'affichage
        Me.Cells(ResultLigne, CurCol + 2) = Compte
'Afficher 0 dans l'autre cellule d'affichage
        Me.Cells(ResultLigne, CurCol + 2 - ((-1) ^ CurCol )) = 0
    Next
End sub