Macro de trie Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
BonVin
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 22 janvier 2017
Version d'Excel : 2010

Message par BonVin » 19 septembre 2017, 18:04

Bonjour forum,

Les extraits de nos logiciels de gestion et comptabilité donnent les données en différents formats.

Par exemple : sous l’onglet LAMal : la même personne dans la colonne 4 « Brun Hans Rudolf 27.01.1940 » et dans la colonne 18 elle est « Brun Hans Rudolf 27-JAN-40 ». Mais, je dois comparer ces 2 colonnes. Et pour le faire, j’aimerais copier la 18ème en format de 4ème dans la colonne 37, car c’est la base de données jusqu’à colonne 35 et il est préférable de faire tout le travail à la fin.

De plus, si le nom de la personne (colonne 4) est différent de celui de la colonne 37, comme c’est le cas des 2 derniers dossiers (les mamans avec leur enfants mineurs, un ou plusieurs), il faut ajouter ces enfants, ligne par ligne, dans l’onglet « Tab.-Job », juste après leur mères. C'est mon onglet de travail.

Est-ce que c’est faisable ? Si cela vous paraît trop compliqué, vos idées sont bienvenues.

En fait, je prépare la liste de notre personnel qui devra changer leur assurance maladie pour l’an 2018. On ne connaît pas les futures primes, c’est juste les préparatifs, pour pouvoir les imprimer via Publipostage plus tard.

Merci d’avance.

PS : ce fichier est trop gros pour le télécharger sur forum. Voici la mini-copie.
2018-test.xlsx
(93.64 Kio) Téléchargé 12 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'714
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 20 septembre 2017, 01:26

Bonjour,

voici pour la 1è partie
sous l’onglet LAMal : la même personne dans la colonne 4 « Brun Hans Rudolf 27.01.1940 » et dans la colonne 18 elle est « Brun Hans Rudolf 27-JAN-40 ». Mais, je dois comparer ces 2 colonnes. Et pour le faire, j’aimerais copier la 18ème en format de 4ème dans la colonne 37
=GAUCHE(D9;NBCAR(D9)-10)&TEXTE(DROITE(R9;9);"jj.mm.aaaa")
je continue a chercher pour l'autre demande.
BonVin-2018-test.xlsx
(90.33 Kio) Téléchargé 15 fois
Vive ces nouvelles saisons qui nous colorent.
isabelle
B
BonVin
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 22 janvier 2017
Version d'Excel : 2010

Message par BonVin » 20 septembre 2017, 14:15

Merci Isabelle.

Ça marche, mais il y a un souci.
Si la date de naissance est dans les mois où il y a un accent dans les 3 premiers lettres (FEV ; AOU et DEC), ça donne FAUX dans la colonne 38.

Comment égaliser les « FEV » et « FÉV », par exemple, sans apporter les modifications à l'extrait même, c'est-à-dire dans la colonne 18?

Merci.

Bonvin.
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'714
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 20 septembre 2017, 15:39

Bonjour,

Voici la correction,
[barrer]=GAUCHE(D9;NBCAR(D9)-10)&TEXTE(SUBSTITUE(SUBSTITUE(DROITE(R9;9);"E";"É");"U";"Û");"jj.mm.aaaa")[/barrer]
plutot
=GAUCHE(D9;NBCAR(D9)-10)&TEXTE(SUBSTITUE(SUBSTITUE(SUBSTITUE(DROITE(R9;9);"DE";"DÉ");"FE";"FÉ");"OU";"OÛ");"jj.mm.aaaa")
Vive ces nouvelles saisons qui nous colorent.
isabelle
B
BonVin
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 22 janvier 2017
Version d'Excel : 2010

Message par BonVin » 20 septembre 2017, 19:48

Bonsoir,
Merci bcp, ça marche.
Mais, ça change le nom du bénéficiaire.
J'aimerais garder son nom exact et changer seulement le format de sa date de naiss. en jj.mm.aaaa.
Donc, je pense que c'est mieux comme ça, si vous êtes d'accord:

=GAUCHE(LC(-19);NBCAR(LC(-19))-9)&TEXTE(SUBSTITUE(SUBSTITUE(SUBSTITUE(DROITE(LC(-19);9);"DEC";"DÉC");"FEV";"FÉV");"AOU";"AOÛ");"jj.mm.aaaa")

Et après, tous ce qui sont sous FAUX selon le test, sont à traiter.
BonVin-2018-test.xlsx
(92.76 Kio) Téléchargé 4 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'714
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 20 septembre 2017, 20:06

ça peut aussi être,
=GAUCHE(R9;NBCAR(R9)-10)&TEXTE(SUBSTITUE(SUBSTITUE(SUBSTITUE(DROITE(R9;9);"DE";"DÉ");"FE";"FÉ");"OU";"OÛ");"jj.mm.aaaa")
Vive ces nouvelles saisons qui nous colorent.
isabelle
B
BonVin
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 22 janvier 2017
Version d'Excel : 2010

Message par BonVin » 21 septembre 2017, 11:48

Bonjour,
J'essaie de changer la formule selon nos dernière conversation et ça marche pas, je ne comprends pas pourquoi.
Le résultat est juste dans la barre d'insertion de formule.
Mais, dans la cellule même c'est la formule qui s'affiche et pas le résultat (toujours sous l'onglet LAMAL colonne 37).
Que-ce que j'ai fait de faux???
Merci.
BonVin-2018-test.xlsx
(90.53 Kio) Téléchargé 4 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'714
Appréciations reçues : 333
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 21 septembre 2017, 18:25

Bonjour,

cela peut arriver si les cellules ont été formater en Texte,
voici un exemple,
BonVin-2018-test(1).xlsx
(9.01 Kio) Téléchargé 9 fois
Vive ces nouvelles saisons qui nous colorent.
isabelle
B
BonVin
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 22 janvier 2017
Version d'Excel : 2010

Message par BonVin » 22 septembre 2017, 08:36

Bonjour,
Oui, justement, c’était sous Texte.
J'ai tout mis en Standard et s'est bon maintenant.
Merci bcp.
Bonvin.
B
BonVin
Membre habitué
Membre habitué
Messages : 57
Inscrit le : 22 janvier 2017
Version d'Excel : 2010

Message par BonVin » 22 septembre 2017, 10:46

Rebonjour Isabelle,

La 1ère partie donne parfois des FAUX dans la colonne 38, quand c'est VRAIS en réalité.
Et je ne vois pas où est l'erreur.

La 2ème partie sera difficile à faire pour moi. Puis-je vous demander de la diviser en deux.

D'abord, avec une macro, dans l'onglet LAMal (voir ci-attaché) il faut créer nouvel onglet LAMal-Trié qui va contenir une seule ligne par dossier, s'il y a une seule personne dans ce dossier. C’est-à-dire, le résultat donne VRAIS sous colonne 38. Si ça donne FAUX, il faut ajouter ces lignes (les enfants) juste au-dessous de parent.

Les valeurs qu'il faut utiliser et dans la macro:
Dossier (col. 1), puis par Date de début et de fin de prime (col. 19 et 20: prendre que 2017) et puis par Montant de déduction (col. 29: prendre le plus grand). Parfois, ces cellules sont vides. Ça veut dire que notre logiciel est mal remplit, mais je suis sensé de l'utiliser tel quel.

Ça va être plus facile après pour l'onglet Tab.-Job.

Merci d'avance.

PS: puis-je vous envoyer par email prive le vrai tab, car il est trop gros (8Mo). ça rentre pas sur le cite.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message