Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Tri dépendant

Tri dépendant

11 réponses
Avatar
Didier GUYOT
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
papou
Bonjour

http://cjoint.com/data/fnleCOy6I0.htm

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8



Avatar
Didier GUYOT
Bonjour Pascal
je te remercie pour ta célérité
mais, il y a un problème
je souhaite avoir en premier l'adhérent principal
c'est à dire : adhérent secondaire = adhérent principal, puis la suite des
adhérents secondaires
Je te remercie
M. Didier GUYOT


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour

http://cjoint.com/data/fnleCOy6I0.htm

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8







Avatar
papou
Re
Ou est la notion de l'adhérent principal ?
S'il s'agit de la couleur de fond de la cellule, on s'embarque vers quelque
chose de pas très carré !
Je te suggère de définir une clé qui détermine la notion d'adhérent
principal ou secondaire puis d'utiliser cette valeur comme deuxième clé de
tri.

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message de
news:
Bonjour Pascal
je te remercie pour ta célérité
mais, il y a un problème
je souhaite avoir en premier l'adhérent principal
c'est à dire : adhérent secondaire = adhérent principal, puis la suite des
adhérents secondaires
Je te remercie
M. Didier GUYOT


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour

http://cjoint.com/data/fnleCOy6I0.htm

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8











Avatar
Ardus Petus
Sub Tri()
Dim lrow As Long
Dim sNomPrenom() As String
Dim bPrincipal As Boolean
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
sNomPrenom = Split(.Value, " ")
bPrincipal = .Value = .Offset(0, 1).Value
.Offset(0, -1).Value = _
sNomPrenom(0) & _
CInt(Not bPrincipal) & _
sNomPrenom(1)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("A1"), order1:=xlAscending
Columns("A").Delete
End Sub

Cordialement,
--
AP

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8



Avatar
Ardus Petus
Plus simple (j'avais cru que les prénoms jouaient un rôle):

Sub Tri()
Dim lrow As Long
Dim bPrincipal As Boolean
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
bPrincipal = .Value = .Offset(0, 1).Value
.Offset(0, -1).Value = .Value & CInt(Not bPrincipal)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("A1"), order1:=xlAscending
Columns("A").Delete
End Sub

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8



Avatar
Didier GUYOT
Re, l'adhérent principal est l'adhérent auquel est rattaché le secondaire
ici, je l'ai mis en fond jaune afin de mieux visualiser, c'est celui qui
paie le montant total
Merci
M. Didier GUYOT


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Re
Ou est la notion de l'adhérent principal ?
S'il s'agit de la couleur de fond de la cellule, on s'embarque vers
quelque chose de pas très carré !
Je te suggère de définir une clé qui détermine la notion d'adhérent
principal ou secondaire puis d'utiliser cette valeur comme deuxième clé de
tri.

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message de
news:
Bonjour Pascal
je te remercie pour ta célérité
mais, il y a un problème
je souhaite avoir en premier l'adhérent principal
c'est à dire : adhérent secondaire = adhérent principal, puis la suite
des adhérents secondaires
Je te remercie
M. Didier GUYOT


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour

http://cjoint.com/data/fnleCOy6I0.htm

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message
de news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8















Avatar
Ardus Petus
J'annulle le dernier post: ma première solution était la bonne

Cordialement,
--
AP


"Ardus Petus" a écrit dans le message de news:
%
Plus simple (j'avais cru que les prénoms jouaient un rôle):

Sub Tri()
Dim lrow As Long
Dim bPrincipal As Boolean
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
bPrincipal = .Value = .Offset(0, 1).Value
.Offset(0, -1).Value = .Value & CInt(Not bPrincipal)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("A1"), order1:=xlAscending
Columns("A").Delete
End Sub

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8







Avatar
Didier GUYOT
Je te remercie beaucoup Ardus Petrus
cela fonctionne parfaitement
Bon week-end
M. Didier GUYOT


"Ardus Petus" a écrit dans le message de news:
%
Plus simple (j'avais cru que les prénoms jouaient un rôle):

Sub Tri()
Dim lrow As Long
Dim bPrincipal As Boolean
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
bPrincipal = .Value = .Offset(0, 1).Value
.Offset(0, -1).Value = .Value & CInt(Not bPrincipal)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("A1"), order1:=xlAscending
Columns("A").Delete
End Sub

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8







Avatar
Didier GUYOT
Je te remercie beaucoup Pascal pour ton aide
Je te souhaite un bon week-end
M. Didier GUYOT


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Re
Ou est la notion de l'adhérent principal ?
S'il s'agit de la couleur de fond de la cellule, on s'embarque vers
quelque chose de pas très carré !
Je te suggère de définir une clé qui détermine la notion d'adhérent
principal ou secondaire puis d'utiliser cette valeur comme deuxième clé de
tri.

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message de
news:
Bonjour Pascal
je te remercie pour ta célérité
mais, il y a un problème
je souhaite avoir en premier l'adhérent principal
c'est à dire : adhérent secondaire = adhérent principal, puis la suite
des adhérents secondaires
Je te remercie
M. Didier GUYOT


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour

http://cjoint.com/data/fnleCOy6I0.htm

Cordialement
Pascal

"Didier GUYOT" a écrit dans le message
de news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8















Avatar
Ardus Petus
Ca fonctionne uniquement parce que les adhérents secondaires ont le même nom
de famille que l'adhérent principal.

Voici (enfin) une solution universelle:

Sub Tri()
Dim lrow As Long
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
.Offset(0, -1) = (.Value = .Offset(0, 1).Value)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("C2"), order1:=xlAscending, _
key3:=Range("B2"), Order3:=xlAscending, _
key2:=Range("A2"), Order2:=xlDescending
Columns("A").Delete
End Sub

Bon WE à toi aussi!
--
AP

"Didier GUYOT" a écrit dans le message de
news:
Je te remercie beaucoup Ardus Petrus
cela fonctionne parfaitement
Bon week-end
M. Didier GUYOT


"Ardus Petus" a écrit dans le message de news:
%
Plus simple (j'avais cru que les prénoms jouaient un rôle):

Sub Tri()
Dim lrow As Long
Dim bPrincipal As Boolean
Columns("A").Insert
For lrow = 2 To Range("B2").End(xlDown).Row
With Cells(lrow, "B")
bPrincipal = .Value = .Offset(0, 1).Value
.Offset(0, -1).Value = .Value & CInt(Not bPrincipal)
End With
Next lrow
Range("A2:E2").Resize(lrow - 1).Sort _
key1:=Range("A1"), order1:=xlAscending
Columns("A").Delete
End Sub

"Didier GUYOT" a écrit dans le message de
news:
Bonjour
J'ai un tableau avec dans la 1ère colonne Nom et prénom de l'adhérent
secondaire et la 2ème nom et prénom de l'adhérent principal
Je souhaite qu'après déclenchement d'une procédure que cela tri les
adhérents comme dans le fichier ci-joint
Je vous remercie par avance et vous souhaite une très bonne journée
M. Didier GUYOT

http://cjoint.com/?fnkViLvWc8











1 2