établissement de liste

bonjour à tous
je cherche une macro qui puisse me créer la liste suivante :

je possède sur un fichier feuille 1 un liste de nom de ville en A2:A350
Cette liste de villes est trié alphabétiquement.
En C2:C350 une liste de noms de responsableservice gérants ces villes, ces
noms sont actuellement au nombre de 4 mais à terme ce nombre risque
d'augmenter.
Ces noms de responsable de service sont aléatoires et sont inscrits en F1
F2 F3 F4
je désirerais que sur la feuille 2 en A1 soit inscrit le nom du 1er gérant
de service en B1 le nom du 2ème service
en C1 le nom du 3éme service et en D1 le nom du 4éme service (ces noms se
trouvent en F1:F4 sur la feuille 1)
et en dessous de chaque service apparaisse la liste des villes qui sont
gérés par ces gérants d'après la liste se trouvant sur la feuille 1
J'espère avoir était clair.
Avec mes remerciements.

--

Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°

Bonjour
Y a t-il une raison particulière pour que tu veuilles faire cela par
macro ? Je pose la question parce qu'avec un filtre élaboré à partir
de ta feuille 2 tu pourrais très simplement retrouver les infos que
tu recherches. Cordialement
Pascal

"Ctitout" <nonmerci@rofl.no.spam> a écrit dans le message de news:
eJvv3nV9EHA.2568@TK2MSFTNGP11.phx.gbl...

bonjour à tous
je cherche une macro qui puisse me créer la liste suivante :
<couic>

bonjour à tous
je cherche une macro qui puisse me créer la liste suivante :

je possède sur un fichier feuille 1 un liste de nom de ville en A2:A350
Cette liste de villes est trié alphabétiquement.
En C2:C350 une liste de noms de responsableservice gérants ces villes, ces
noms sont actuellement au nombre de 4 mais à terme ce nombre risque
d'augmenter.
Ces noms de responsable de service sont aléatoires et sont inscrits en F1 F2
F3 F4
je désirerais que sur la feuille 2 en A1 soit inscrit le nom du 1er gérant
de service en B1 le nom du 2ème service
en C1 le nom du 3éme service et en D1 le nom du 4éme service (ces noms se
trouvent en F1:F4 sur la feuille 1)
et en dessous de chaque service apparaisse la liste des villes qui sont
gérés par ces gérants d'après la liste se trouvant sur la feuille 1
J'espère avoir était clair.
Avec mes remerciements.

--

Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°

papou wrote:

Bonjour
Y a t-il une raison particulière pour que tu veuilles faire cela par
macro ? Je pose la question parce qu'avec un filtre élaboré à partir
de ta feuille 2 tu pourrais très simplement retrouver les infos que
tu recherches. Cordialement
Pascal

"Ctitout" <nonmerci@no.spam> a écrit dans le message de news:
eJvv3nV9EHA.2568@TK2MSFTNGP11.phx.gbl...

bonjour à tous
je cherche une macro qui puisse me créer la liste suivante :
<couic>

bonjour

Bonjour,

Ci-dessous une proposition de solution.
Elle gère automatiquement le nombre de gérants, le nombre de villes.


Sub trie()
Set org = Sheets("Feuil1")
Set dest = Sheets("Feuil2").[A1]

For i = 1 To org.[F65536].End(xlUp).Row
dest.Offset(0, i - 1) = org.Range("F" & i)
ligne = 1
For l = 1 To org.[A65536].End(xlUp).Row
If org.Range("C" & l) = dest.Offset(0, i - 1) Then
dest.Offset(ligne, i - 1) = org.Range("A" & l)
ligne = ligne + 1
End If
Next l
Next i
End Sub


Bonne fin de semaine.

Rai

Cela fonctionne

Rai wrote:

Bonjour,

Ci-dessous une proposition de solution.
Elle gère automatiquement le nombre de gérants, le nombre de villes.


Sub trie()
Set org = Sheets("Feuil1")
Set dest = Sheets("Feuil2").[A1]

For i = 1 To org.[F65536].End(xlUp).Row
dest.Offset(0, i - 1) = org.Range("F" & i)
ligne = 1
For l = 1 To org.[A65536].End(xlUp).Row
If org.Range("C" & l) = dest.Offset(0, i - 1) Then
dest.Offset(ligne, i - 1) = org.Range("A" & l)
ligne = ligne + 1
End If
Next l
Next i
End Sub


Bonne fin de semaine.

Rai

Cela fonctionne

mais j'ai voulus que les colonnes de la feuille 2 soit au bon format et
j'ai essayé (je débute) en insérant aprés Next i et avant End Sub :

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 25.43
Columns("A:A").Select
Selection.Copy
Columns("B:D").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

mais j'obtients erreur d'exécution 1004

--

Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°

C'est quoi "le bon format" ??
chaque format cellule destination = format cellule origine ??
format de la colonne entière ?? (par rapport à quelle colonne
d'origine) ?

rai

"Ctitout" <nonmerci@rofl.no.spam> a écrit dans le message de news:
eP9%234EW9EHA.2540@TK2MSFTNGP09.phx.gbl...

Rai wrote:

Bonjour,

Ci-dessous une proposition de solution.
Elle gère automatiquement le nombre de gérants, le nombre de villes.


Sub trie()
Set org = Sheets("Feuil1")
Set dest = Sheets("Feuil2").[A1]

For i = 1 To org.[F65536].End(xlUp).Row
dest.Offset(0, i - 1) = org.Range("F" & i)
ligne = 1
For l = 1 To org.[A65536].End(xlUp).Row
If org.Range("C" & l) = dest.Offset(0, i - 1) Then
dest.Offset(ligne, i - 1) = org.Range("A" & l)
ligne = ligne + 1
End If
Next l
Next i
End Sub


Bonne fin de semaine.

Rai

Cela fonctionne

mais j'ai voulus que les colonnes de la feuille 2 soit au bon format
et
j'ai essayé (je débute) en insérant aprés Next i et avant End Sub :

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 25.43
Columns("A:A").Select
Selection.Copy
Columns("B:D").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
Application.CutCopyMode = False

mais j'obtients erreur d'exécution 1004

Rai wrote:

C'est quoi "le bon format" ??
chaque format cellule destination = format cellule origine ??
format de la colonne entière ?? (par rapport à quelle colonne
d'origine) ?

rai

"Ctitout" <nonmerci@rofl.no.spam> a écrit dans le message de news:
eP9%234EW9EHA.2540@TK2MSFTNGP09.phx.gbl...

Rai wrote:

Bonjour,

Ci-dessous une proposition de solution.
Elle gère automatiquement le nombre de gérants, le nombre de villes.


Sub trie()
Set org = Sheets("Feuil1")
Set dest = Sheets("Feuil2").[A1]

For i = 1 To org.[F65536].End(xlUp).Row
dest.Offset(0, i - 1) = org.Range("F" & i)
ligne = 1
For l = 1 To org.[A65536].End(xlUp).Row
If org.Range("C" & l) = dest.Offset(0, i - 1) Then
dest.Offset(ligne, i - 1) = org.Range("A" & l)
ligne = ligne + 1
End If
Next l
Next i
End Sub


Bonne fin de semaine.

Rai

Cela fonctionne

mais j'ai voulus que les colonnes de la feuille 2 soit au bon format
et
j'ai essayé (je débute) en insérant aprés Next i et avant End Sub :

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 25.43
Columns("A:A").Select
Selection.Copy
Columns("B:D").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

mais j'obtients erreur d'exécution 1004

les colonnes d'origine sur feuille 2 sont trop étroit de ce fait les
cellules sont tronqués, je voulais juste les élargir à environ 26 ( ici
c'était 25.43)
--

Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°

Rai wrote:

C'est quoi "le bon format" ??
chaque format cellule destination = format cellule origine ??
format de la colonne entière ?? (par rapport à quelle colonne
d'origine) ?

rai

"Ctitout" <nonmerci@rofl.no.spam> a écrit dans le message de news:
eP9%234EW9EHA.2540@TK2MSFTNGP09.phx.gbl...

Rai wrote:

Bonjour,

Ci-dessous une proposition de solution.
Elle gère automatiquement le nombre de gérants, le nombre de villes.


Sub trie()
Set org = Sheets("Feuil1")
Set dest = Sheets("Feuil2").[A1]

For i = 1 To org.[F65536].End(xlUp).Row
dest.Offset(0, i - 1) = org.Range("F" & i)
ligne = 1
For l = 1 To org.[A65536].End(xlUp).Row
If org.Range("C" & l) = dest.Offset(0, i - 1) Then
dest.Offset(ligne, i - 1) = org.Range("A" & l)
ligne = ligne + 1
End If
Next l
Next i
End Sub


Bonne fin de semaine.

Rai

Cela fonctionne

mais j'ai voulus que les colonnes de la feuille 2 soit au bon format
et
j'ai essayé (je débute) en insérant aprés Next i et avant End Sub :

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 25.43
Columns("A:A").Select
Selection.Copy
Columns("B:D").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

mais j'obtients erreur d'exécution 1004

les colonnes d'origine sur feuille 2 sont trop étroit de ce fait les
cellules sont tronqués, je voulais juste les élargir à environ 26 ( ici
c'était 25.43)
--

Ctitout B-{}

°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨ °ºo§oº°¨¨¨¨°ºo§oº°¨¨¨¨°ºo§oº° ¨¨¨¨°

Et si tu veux un ajustement automatique de TOUTES les colonnes à la
plus grande largeur :
Sub trie()