XL 2013 Inverser des lignes si 3 critères vrai

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour