regrouper cellules selon une cote

Le
jipeache
Bonjour,
Une nouvelle fois je fais appel à vos connaissances.
J'ai au boulot un tableau excel 2003 avec en col A une cote type
chiffre+lettre(2U ou 101W uniquement)/chiffre (1 à 200 environ) dans
le désordre. Exemple : 101W17, 2U150.
En col B j'ai 1 ou plusieurs noms séparés par une virgule.
En colone C, 1 type d'affaire (jugement).
Certaines cotes concernent plusieurs affaires et donc plusieurs noms
ou groupes de noms.
Je souhaite regrouper automatiquement par cote tous les noms et les
types d'affaires.

Ex :
101W10 BRENNETOT, HELLEU Assassinat
101W10 CATHELIN Incendie volontaire
101W10 CHARPENTIER, TAVERNE Assassinat
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
jipeache
Le #5000131
On 23 oct, 10:59, jipeache
Bonjour,
Une nouvelle fois je fais appel à vos connaissances.


Excusez-moi, je maitrise encore mal le touchpad du nouveau
portable ;-) et c'est parti un peu vite...
exemple :
101W10 BRE, HEL Assassinat
101W10 CATH Incendie volontaire
101W10 CHARP, TAV Assassinat
2U105 MUS Attentats à la pudeur
2U105 VAU Incendie volontaire
2U106 BAI Attentats à la pudeur
2U106 BAS, PIA Homicide volontaire
etc...
doit devenir :
101W10 en col A - BRE.., HELL.., CATH..., CHARP..., TAV. en col B -
et Assa., Inc. vol., Assa. en col C (et si possible élimination des
doublons ?)
Merci d'avance

JB
Le #5000081
Bonjour,

Sub essai()
ligne = 2
[A2].Select
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
temp = ""
temp2 = ""
Do While ActiveCell = mmatricule
temp = temp & ActiveCell.Offset(0, 1) & ","
If InStr(temp2, ActiveCell.Offset(0, 2)) = 0 Then temp2 =
temp2 & ActiveCell.Offset(0, 2) & ","
ActiveCell.Offset(1, 0).Select
Loop
Sheets("résult").Cells(ligne, 2) = Left(temp, Len(temp) - 1)
Sheets("résult").Cells(ligne, 3) = Left(temp2, Len(temp2) - 1)
ligne = ligne + 1
Loop
End Sub

http://cjoint.com/?kxlYhKVGLb

JB
http://boisgontierjacques.free.fr



On 23 oct, 10:59, jipeache
Bonjour,
Une nouvelle fois je fais appel à vos connaissances.
J'ai au boulot un tableau excel 2003 avec en col A une cote type
chiffre+lettre(2U ou 101W uniquement)/chiffre (1 à 200 environ) dans
le désordre. Exemple : 101W17, 2U150.
En col B j'ai 1 ou plusieurs noms séparés par une virgule.
En colone C, 1 type d'affaire (jugement).
Certaines cotes concernent plusieurs affaires et donc plusieurs noms
ou groupes de noms.
Je souhaite regrouper automatiquement par cote tous les noms et les
types d'affaires.

Ex :
101W10 BRENNETOT, HELLEU Assassinat
101W10 CATHELIN Incendie volontaire
101W10 CHARPENTIER, TAVERNE Assassinat


jipeache
Le #4999991
On 23 oct, 11:50, JB
Bonjour,

Sub essai()
ligne = 2
[A2].Select
Do While ActiveCell <> ""
mmatricule = ActiveCell
Sheets("résult").Cells(ligne, 1) = ActiveCell
temp = ""
temp2 = ""
Do While ActiveCell = mmatricule
temp = temp & ActiveCell.Offset(0, 1) & ","
If InStr(temp2, ActiveCell.Offset(0, 2)) = 0 Then temp2 =
temp2 & ActiveCell.Offset(0, 2) & ","
ActiveCell.Offset(1, 0).Select
Loop
Sheets("résult").Cells(ligne, 2) = Left(temp, Len(temp) - 1)
Sheets("résult").Cells(ligne, 3) = Left(temp2, Len(temp2) - 1)
ligne = ligne + 1
Loop
End Sub

http://cjoint.com/?kxlYhKVGLb

JBhttp://boisgontierjacques.free.fr

Bonjour,

Merci mais ne fonctionne pas.
Je n'arrive pas non plus à faire fonctionner l'exemple : rien ne se
passe à première vue.
jipaih

Publicité
Poster une réponse
Anonyme