Bonjour,
Une nouvelle fois je fais appel =E0 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 =E0 200 environ) dans
le d=E9sordre. Exemple : 101W17, 2U150.
En col B j'ai 1 ou plusieurs noms s=E9par=E9s 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.
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
jipeache
On 23 oct, 10:59, jipeache wrote:
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
On 23 oct, 10:59, jipeache <jipea...@gmail.com> wrote:
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
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
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 wrote:
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.
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 <jipea...@gmail.com> wrote:
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.
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 wrote:
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.
