XL 2013 Inverser des lignes si 3 critères vrai

Luc MOUNY · 11 Septembre 2021

Bonjour à tous,

Après une longue absence, je reviens vers vous

J'ai bien avancé dans mon programme de gestion des adhésions d'une association.
Par macros, j'édite les reçus d'adhésions à envoyer par mail au format PDF, ou imprime les reçus à remettre aux adhérents ne possédant pas de mail. Tout ça fonctionne bien
mais après différentes macros, ma base de données se présente comme dans le classeur ci joint. Les reçus se créent de la façon suivante :
MME M. DUPOND BERNADETTE Incorrect ou bizarre
M. MME DURAND ALBERT Correct
MME M. MARTIN COLETTE Incorrect ou bizarre
Pour les personnes seules, pas de souci.
Mon souhait : par macro, lire l'ensemble de la BDD, trouver les lignes comportant les conditions de nom, d'adresse et de ville et d'inverser certaines lignes comportant les 3 conditions, pour que M soit sur la ligne supérieure, afin que tous les reçus soit au nom de M MME NOM PRENOM du mari. Dans le classeur exemple, inverser les 2 lignes DUPOND et les deux lignes MARTIN.
J'espère avoir été clair ?
Merci par avance aux sympathiques forumeurs qui voudrons bien me tracer une piste.
Portez vous bien
Luc

M12 · 11 Septembre 2021

Bonjour,
Un test

job75 · 11 Septembre 2021

Bonjour Luc MOUNY, M12, le forum,

Normalement un simple tri sur le nom, l'adresse, la civilité doit suffire :

VB:

Sub Tri()
With [A1].CurentRegion
    .Sort .Columns(3), xlAscending, .Columns(5), , xlAscending, .Columns(2), xlAscending, Header:=xlYes
End With
End Sub

A+

Luc MOUNY · 11 Septembre 2021

job75 à dit:
Bonjour Luc MOUNY, M12, le forum,

Normalement un simple tri sur le nom, l'adresse, la civilité doit suffire :

VB:

Sub Tri() With [A1].CurentRegion .Sort .Columns(3), xlAscending, .Columns(5), , xlAscending, .Columns(2), xlAscending, Header:=xlYes End With End Sub

A+

Bonjour à tout le forum,

Merci à M12 et Job75 pour la rapidité des réponses, vos deux propositions fonctionnent.

Dans mon esprit, je pensais que ce serait beaucoup plus compliqué, j'ai cherché par l'inversion de lignes, sous conditions.

Je passe en résolu.

Comme d'habitude, le forum et les intervenants sont formidables.

XL 2013 Inverser des lignes si 3 critères vrai

Luc MOUNY

XLDnaute Junior

Pièces jointes

M12

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Luc MOUNY

XLDnaute Junior

Discussions similaires