XL 2013 Inverser des lignes si 3 critères vrai

Luc MOUNY

XLDnaute Junior
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
 

Pièces jointes

  • Classeur test.xlsx
    46.6 KB · Affichages: 4

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • Classeur test(1).xlsm
    53.4 KB · Affichages: 3

Luc MOUNY

XLDnaute Junior
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 821
dernier inscrit
hybroxis