Identifier série

Efgé

XLDnaute Barbatruc

• 22 Mai 2013

• #16

Re : Identifier série

Re
Le module de tri

VB:

Quick sort [url=http://boisgontierj.free.fr/]Formation Excel VBA JB[/url]

Cordialement

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 22 Mai 2013

• #17

Re : Identifier série

Ok, je vais essayer d'éclaircir cela et je laisserai le quick sort.
Par contre pourriez vous m'indiquer le fonctionnement sur les lignes grisées?? Qu'en serait il si les lignes étaient rouge par exemple?

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2013

• #18

Re : Identifier série

Re
Grise, rouge ou marron, peu importe.
Je me suis basé sur le fait que ce sont les seules dont la valeur (en colonne 18 pour toi) est vide.
Voir le Post 6 pour l'exemple.
Cordialement

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 22 Mai 2013

• #19

Re : Identifier série

Ok merci.
Et pour en revenir à mon 1er post, comment pourrez t'on incrémenter la valeur d'une ligne grise sa valeur dès lors qu'elle est dans la série.
Ex : Pour le fichier Test (3), le compte rendu donne:
C 69
D 97
A 112
E 145
B 300
Les chiffres sont une unité de mesure du temps. On comprend donc que 2C = 138, 2D = 194... et par conséquent le compte rendu des 5 valeurs doit être
C 69
D 97
A 112
C 138
E 145
D 194

En espérant avoir été clair, je pensais passer par une colonne intermédiaire, qui correspondrait à la valeur d'origine multipliée par la fréquence d'apparition dans la série... et la macro "compte rendu" s'appliquerait à cette colonne mais je ne suis pas capable de mettre cela en place en VBA... Je suis entrain de regarder pour comprendre votre macro ce qui sera déjà un grand progrès pour moi...

Merci d'avance

Adriano

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2013

• #20

Re : Identifier série

Re
Là, franchement, je ne vois pas comment faire.
Quelqu'un d'autre passera peut-être par ici.
Cordialement

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 22 Mai 2013

• #21

Re : Identifier série

Ok, merci de votre aide vous m'avez déja bien aidé.
Par contre, je ne vois pas dans le code où vous faites référence au fait que la ligne supérieure porte la lettre (quand on s'intéresse aux lignes surlignées...)
Et j'ai copié mes données dans votre "test 4", cela plante pourtant le nombre de colonnes est identique, est ce du au nombre de ligne, environ 200 pour le véritable fichier???

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2013

• #22

Re : Identifier série

RE
Une petite explication:
Dans

VB:

If .Cells(i, 17).Value > 0 And .Cells(i, 18).Value = "" Then _
D(.Cells(i, 17).Value) = .Cells(i - 1, 18).Value

On lit
Si la valeur de la cellule ligne i colonne 17 est suppérieur à 0 ET si la valeur de la ligne i colonne 18 est égale à rien alors _
La clé du dictionaire D est la valeur de la ligne i colonne 17 et l'item du dictionaire correspondant à cette clé est la valeur de la ligne i - 1 colonne 18.

d'où i - 1 est la ligne du dessus de la cellule vide en colonne 18
Cordialement

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 22 Mai 2013

• #23

Re : Identifier série

Voici un exemple proche de la réalité si cela peut vous éclairer, pour ma part je suis vaincu!!!

 

Pièces jointes

• Test(5).xlsm

  42.5 KB · Affichages: 19

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2013

• #24

Re : Identifier série

ReTout s'explique....J'ai décomposé les If / End If pour simplifier la lecture.Pas terrible des formules en erreur... Essai de te débrouiller autrement la prochaine fois ; )Cordialement

 

Pièces jointes

• Test(5).xls

  75 KB · Affichages: 19
• Test(5).xls

  75 KB · Affichages: 20
• Test(5).xls

  75 KB · Affichages: 19

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 22 Mai 2013

• #25

Re : Identifier série

Re,

J'étais justement entrain de corriger mes formules pensant que ça pouvait venir de là mais non. Quel était le problème en réalité?
Un grand merci de votre aide en tout cas!!!

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 22 Mai 2013

• #26

Re : Identifier série

Re
Ton code bloquait sur la ligne 19, première ligne rencontrée avec une erreur
Cordialement

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 23 Mai 2013

• #27

Re : Identifier série

Re le forum,

Sauriez vous comment faire pour afficher le résultat dans une listbox plutot qu'avec une msgbox?

Cordialement

Adriano43

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Mai 2013

• #28

Re : Identifier série

Bonjour Adriano,
La listBox est sur la feuille ? dans un UserForm ?
Un nouvel exemple, le plus prochie possible de la réalité, est nécessaire.
Cordialement

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 23 Mai 2013

• #29

Re : Identifier série

Re,

Dans un userForm1, je vais préparer l'exemple le plus proche

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 23 Mai 2013

• #30

Re : Identifier série

Re,

Voici le fichier le plus proche du réel avec les explications sur les zones de textes...
En tout cas un grand merci par avance de votre aide Efgé

Cordialement

Adriano43

 

Pièces jointes

• Test(6).xlsm

  50.8 KB · Affichages: 30

Vote positif 0 Vote négatif