Script VBA classement donnée

Bonjour,

Faisant face à un nombre conséquent de donnée, et n'ayant pas fait de VBA depuis des années, je vous avoue que je galère..

Exposition du problème :

Je possède un classeur excel avec un grand nombre de donnée (>500).
Les données sont des résultats biologiques de deux machines, classées par nom.

Cependant l'extraction des données a été faite ainsi :
Une ligne correspond à un résultat biologique d'une machine pour une personne
ce qui veux dire, que je possède plusieurs ligne, avec un même nom et des résultats.

Objectif :

J'aimerais regrouper les différents résultats biologiques d'un même patient qui vont être répartie sur la ligne 1,2, et 3, en : une seule ligne, avec le nom unique (afin d'éviter d'avoir plusieurs ligne, avec plusieurs fois le même prénom)

https://nsa40.casimages.com/img/2019...1128204655.png


Si vous avez la bonter de bien vouloir m'aider, je vous en serais absolument reconnaissant ^^

Bonjour
je recommander de simplement résultat type (x) dans une seule colonne (colonne E) et insérer un TCD avec comme colonne Résultat Type et tu aura ce que tu veux sans VBA

bonjour

un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub test() Dim old As Range, Dl As Long, plage As Range, meslignes As String, I As Long Set plage = ActiveSheet.UsedRange ' adapter a ton contexte Dl = Cells(Rows.Count, 1).End(xlUp).Row Set old = plage.Cells(1, 1) For I = 2 To Dl If Cells(I, 1).Text = old.Text Then If old.Offset(, 4) = "" And plage.Cells(I, 1).Offset(, 4).Text <> "" Then old.Offset(, 4) = plage.Cells(I, 1).Offset(, 4).Text: x = True If old.Offset(, 5) = "" And plage.Cells(I, 1).Offset(, 5).Text <> "" Then old.Offset(, 5) = Cells(I, 1).Offset(, 5).Text: x = True If old.Offset(, 6) = "" And plage.Cells(I, 1).Offset(, 6).Text <> "" Then old.Offset(, 6) = plage.Cells(I, 1).Offset(, 6).Text: x = True   If x = True Then meslignes = meslignes & " " & plage.Rows(I).Address Else Set old = plage.Cells(I, 1) x = False End If Next 'netoyage meslignes = Replace(Trim(meslignes), " ", ",") plage.Parent.Range(meslignes).EntireRow.Delete End Sub

---

avec la variable plage il n'est pas forcé que la plage a (trier, arranger, nettoyer )commence en ("A1")
en fin de macro je supprime les lignes obsolètes

avant

Pièce jointe 488600

après

Pièce jointe 488604

Bonjour,

Ouaw, je ne m'attendais pas une réponse aussi rapide,
je regarde ton code dans la soirée, pour voir ce que ça donne et te faire un retour !

En tout cas,
un grand merci pour votre réactivité !

Bonjour, je vous pris d'excuser le retard dans mon intervention, j'ai été pas mal pris malheureusement.

Alors du coup, j'ai re-regarder mon extraction de donnée, et il y a plusieurs choses a prendre en compte.

la première c'est que j'ai omis un détail de selection non négligeable, alors je re-explique le but de l'algo, et les objectifs :

Le but étant toujours le même : extraire de cette longue liste les données pertinentes.

J'ai simplifié le problème, en considérant qu'il n'y avait que deux valeurs (les deux colonnes tout a droite en bleu).

Objectif : Extraire les données d'un même patient, de l'automate 1 et 2, les mettre sur une seule ligne, seulement et seulement si les resultats sont du même jours avec 1h max d'écart.
Le but étant d'associé un résultat de l'automate un, sur une même ligne avec un résultat de l'automate 2 qui a été fait avec max 1h de différence.


Etant donnée que les resultats de l'automate 1 (colonne resultat gauche) sont moins nombreux, ils sont donc plus discriminants, voila donc a ce que j'ai pensé : Exemple (par rapport au screen)

----------------------------------------

1.Il faut que l'algorithme en premier lieu : détermine la plage des différentes valeurs d'un même patient : pour nom1 de 105 a 109
une fois ça déterminé

2. L'agorithme doit parcourir les ligne de l'automate 1 du NOM 1

-> si première case est vide (de l'automate 1)
alors : lire la deuxième case ( de l'automate 1) tant qu'il ne trouve pas un résultat automate 1
en gros il parcours, dans l'ordre les resultats automate 1, jusqu'a avoir une valeur

Si il trouve un resultat : premier résultat trouver dans l’exemple est donc 70
--------------- alors : l'algorithme cherche en colonne resultat automate 2, un resultat (une case non vide) qui a moins d'une heure de différence.
-------------------- si il trouve : alors il concatène ces deux resultats dans une nouvelle feuille
-------------------- sinon (=aucune valeurs automate 2 <1h) : il peut passer a la deuxième valeur automate 1 qui est 134, de même, il cherche a l'associé avec un résultat automate 2 qui a <1h d'écart

dans l’exmple 1, ici rien ne sera extrait car aucun resultat automate 2 < 1h (pour le 70)

Résultat exemple : cf screen resultat 1

Dans le cas ou : 1 valeur automate un peut être associé a 2 résultat automate 2 (<1h donc), deux ligne seront crée : cf exemple 2


Pièce jointe 490505
les valeurs ajouté en rouge, on été ajouté pour le cas exemple 2


J'espère que c'est clair au maximum, et encore merci de votre aide, vous allez peut-être me sauver la vie <3
d'ailleurs si quelqu'un veux m'aider et souhaite me poser des questions en direct, je suis dispo Discord, skype, même tel ^^

Petit ajout :

Après verification, pour que l'algorithme verifie qu'il y est bien une durée inférieur d'une heure entre les deux résultats d'automate, la différence des deux dates permet de sortir une valeur

exemple : (13/06/19 6:10) - (13/06/19 7:10) =0.041
la différence des dates/heures doit donc être <0.041..

dernier petit message (désolé, je spam un peu..)

Mais vous trouverez ici en exemple (xls) les données de départ, et ce que je souhaite a l'arriver.. :calim2:Pièce jointe 490721