Probleme de Logique macro EXCEL

Salut,

J'ai un petit souci pour regrouper des numeros :cry:

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 :P

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,

Bonsoir,

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

a +

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.

++

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 +

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

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:

---

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

---

Citation:

---

Envoyé par 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:

---

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

---

---

Salut, et merci pour ton aide

Par rapport à ton exemple, la suite de la serie sera:

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



MAIS le probleme vient quand t'as:

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

++

D'accord,
mon code semble fonctionner alors. Pour qu'il fonctionne quelque soit la colonne de départ différente de 0; il faut initialiser la valeur de test sur autre chose que 0.
remplace la ligne

Code:

---

CurValue=0

---

par

Code:

---

CurValue=-1

---

On t'as déja dit que t'étais fûté...:king:

Sans blague, ça fait deux semaines que je me cogne la tête sur ce problème et quand je compare ma méthode avec la tienne, ben j'me dis que j'ai encore beaucoup à apprendre.

Je te tiens au courant si jamais il y aurait une faille (ce qui m'étonnerait venant de toi :lol::lol::lol:)

Merci encore ++