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 trie dans une nouvelle feuille

trie dans une nouvelle feuille

15 réponses
Avatar
tintin
Bonjour,

j'ai plusieurs feuilles (class=E9es par orde alphab=E9tique)
qui sont au nom de personnes appartenant =E0 diverses agences
de travail temporaire. A l'int=E9rieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence =E0
laquelle il appartient. Chaque nom et agence sont li=E9es par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence =E0 laquelle il est rattach=E9 et
divers autres caract=E9ristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des diff=E9rentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des r=E9ponses susceptibles de m'aider.
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
Céline Brien
Salut Tintin,
Voici une suggestion de codes VBA.
Il suffit d'ajouter un onglet à ton fichier actuel. Titre de la colonne
A : Agence. Titre de la colonne B : Nom.
Ils ne font pas le travail pour l'instant mais je suis certaine que les
experts VBA feront les petites corrections qui s'imposent.
À suivre...
Céline

Sub Tri()
' Copier les données des cellules A1 de tous les onglets en B2, B3,
B4, etc. du premier onglet
' Copier les données des cellules B1 de tous les onglets en A2, A3,
A4, etc. du premier onglet
For cpt = 2 To Sheets.Count
Sheets(cpt).Select
Range("A1").Select
Selection.Copy
Sheets(1).Select
Range ("B" & cpt)
ActiveSheet.Paste
Sheets(cpt).Select
Range("B1").Select
Selection.Copy
Sheets(1).Select
Range ("A" & cpt)
ActiveSheet.Paste
Next
' Trier les données du premier onglet par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"tintin" a écrit dans le message de
news:c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.
Avatar
ChrisV
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le message de news:
c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.
Avatar
Céline Brien
Salut Chris,
Salut Tintin,
Bravo Chris ! Exactement ce qu'il cherchait. Seulement une petite
correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2
Cells(i - 1, 1) = Sheets(i).Cells(1, 2)
Ci-dessous des codes plus complets, je me suis amusée, je vais garder le
tout.
Merci,
Céline
----------------------------------------------
Sub zaza()
' Effacer la feuille Recap
Sheets(1).Delete
' Créer une variable pour compter les onglets
Dim i As Integer
' Créer la feuille Recap avant la feuille 1
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
' Sélectionner la feuille Recap
Sheets("Recap").Select
' Donner un titre aux colonnes A et B
Range("A1").Value = "Agence"
Range("B1").Value = "Nom"
Range("A1:B1").Select
Selection.Font.Bold = True
' Copier les agences et les noms dans la feuille Recap
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Cells(1, 2)
Cells(i, 2) = Sheets(i).Cells(1, 1)
Next i
' Trier les données de la feuille Recap par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"ChrisV" a écrit dans le message de
news:
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le message de
news:

c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.




Avatar
ChrisV
Re,

correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2


Hum, hum... selon l'énoncé de Tintin, le nom d'agence se situe en colonne F,
c'est bien la 6e non ?
;-P


ChrisV


"Céline Brien" a écrit dans le message de
news:
Salut Chris,
Salut Tintin,
Bravo Chris ! Exactement ce qu'il cherchait. Seulement une petite
correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2
Cells(i - 1, 1) = Sheets(i).Cells(1, 2)
Ci-dessous des codes plus complets, je me suis amusée, je vais garder le
tout.
Merci,
Céline
----------------------------------------------
Sub zaza()
' Effacer la feuille Recap
Sheets(1).Delete
' Créer une variable pour compter les onglets
Dim i As Integer
' Créer la feuille Recap avant la feuille 1
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
' Sélectionner la feuille Recap
Sheets("Recap").Select
' Donner un titre aux colonnes A et B
Range("A1").Value = "Agence"
Range("B1").Value = "Nom"
Range("A1:B1").Select
Selection.Font.Bold = True
' Copier les agences et les noms dans la feuille Recap
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Cells(1, 2)
Cells(i, 2) = Sheets(i).Cells(1, 1)
Next i
' Trier les données de la feuille Recap par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"ChrisV" a écrit dans le message de
news:
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le message de
news:

c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.







Avatar
ChrisV
Un msg en bal perso que je t'ai transmis concernant ta dernière procédure me
revient systématiquement "Name service error for laurentides.qc.ca: Host not
found"
:-(
Tu peux me la transmettre stp ?


ChrisV


"Céline Brien" a écrit dans le message de
news:
Salut Chris,
Salut Tintin,
Bravo Chris ! Exactement ce qu'il cherchait. Seulement une petite
correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2
Cells(i - 1, 1) = Sheets(i).Cells(1, 2)
Ci-dessous des codes plus complets, je me suis amusée, je vais garder le
tout.
Merci,
Céline
----------------------------------------------
Sub zaza()
' Effacer la feuille Recap
Sheets(1).Delete
' Créer une variable pour compter les onglets
Dim i As Integer
' Créer la feuille Recap avant la feuille 1
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
' Sélectionner la feuille Recap
Sheets("Recap").Select
' Donner un titre aux colonnes A et B
Range("A1").Value = "Agence"
Range("B1").Value = "Nom"
Range("A1:B1").Select
Selection.Font.Bold = True
' Copier les agences et les noms dans la feuille Recap
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Cells(1, 2)
Cells(i, 2) = Sheets(i).Cells(1, 1)
Next i
' Trier les données de la feuille Recap par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"ChrisV" a écrit dans le message de
news:
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le message de
news:

c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.







Avatar
Clément Marcotte
Bonjour

Sauf horreur de ma part, il suffit que tu mettes "int", juste avant
Laurentides.


"ChrisV" a écrit dans le message de
news:
Un msg en bal perso que je t'ai transmis concernant ta dernière
procédure me

revient systématiquement "Name service error for laurentides.qc.ca:
Host not

found"
:-(
Tu peux me la transmettre stp ?


ChrisV


"Céline Brien" a écrit dans le
message de

news:
Salut Chris,
Salut Tintin,
Bravo Chris ! Exactement ce qu'il cherchait. Seulement une petite
correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2
Cells(i - 1, 1) = Sheets(i).Cells(1, 2)
Ci-dessous des codes plus complets, je me suis amusée, je vais
garder le


tout.
Merci,
Céline
----------------------------------------------
Sub zaza()
' Effacer la feuille Recap
Sheets(1).Delete
' Créer une variable pour compter les onglets
Dim i As Integer
' Créer la feuille Recap avant la feuille 1
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
' Sélectionner la feuille Recap
Sheets("Recap").Select
' Donner un titre aux colonnes A et B
Range("A1").Value = "Agence"
Range("B1").Value = "Nom"
Range("A1:B1").Select
Selection.Font.Bold = True
' Copier les agences et les noms dans la feuille Recap
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Cells(1, 2)
Cells(i, 2) = Sheets(i).Cells(1, 1)
Next i
' Trier les données de la feuille Recap par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"ChrisV" a écrit dans le message de
news:
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le
message de



news:
c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.











Avatar
ChrisV
Ok, merci Clément.
J'essaie de ce pas !


ChrisV


"Clément Marcotte" a écrit dans le message
de news:
Bonjour

Sauf horreur de ma part, il suffit que tu mettes "int", juste avant
Laurentides.


"ChrisV" a écrit dans le message de
news:
Un msg en bal perso que je t'ai transmis concernant ta dernière
procédure me

revient systématiquement "Name service error for laurentides.qc.ca:
Host not

found"
:-(
Tu peux me la transmettre stp ?


ChrisV


"Céline Brien" a écrit dans le
message de

news:
Salut Chris,
Salut Tintin,
Bravo Chris ! Exactement ce qu'il cherchait. Seulement une petite
correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2
Cells(i - 1, 1) = Sheets(i).Cells(1, 2)
Ci-dessous des codes plus complets, je me suis amusée, je vais
garder le


tout.
Merci,
Céline
----------------------------------------------
Sub zaza()
' Effacer la feuille Recap
Sheets(1).Delete
' Créer une variable pour compter les onglets
Dim i As Integer
' Créer la feuille Recap avant la feuille 1
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
' Sélectionner la feuille Recap
Sheets("Recap").Select
' Donner un titre aux colonnes A et B
Range("A1").Value = "Agence"
Range("B1").Value = "Nom"
Range("A1:B1").Select
Selection.Font.Bold = True
' Copier les agences et les noms dans la feuille Recap
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Cells(1, 2)
Cells(i, 2) = Sheets(i).Cells(1, 1)
Next i
' Trier les données de la feuille Recap par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"ChrisV" a écrit dans le message de
news:
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le
message de



news:
c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.














Avatar
ChrisV
Malheureusement...
User unknown


Attendons la confirmation de Céline...
Merci quand même.


ChrisV


"Clément Marcotte" a écrit dans le message
de news:
Bonjour

Sauf horreur de ma part, il suffit que tu mettes "int", juste avant
Laurentides.


"ChrisV" a écrit dans le message de
news:
Un msg en bal perso que je t'ai transmis concernant ta dernière
procédure me

revient systématiquement "Name service error for laurentides.qc.ca:
Host not

found"
:-(
Tu peux me la transmettre stp ?


ChrisV




Avatar
Céline Brien
Oups ! Lu trop vite...
Céline

"ChrisV" a écrit dans le message de
news:Ol$
Re,

correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2


Hum, hum... selon l'énoncé de Tintin, le nom d'agence se situe en
colonne F,

c'est bien la 6e non ?
;-P


ChrisV


"Céline Brien" a écrit dans le message
de

news:
Salut Chris,
Salut Tintin,
Bravo Chris ! Exactement ce qu'il cherchait. Seulement une petite
correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2
Cells(i - 1, 1) = Sheets(i).Cells(1, 2)
Ci-dessous des codes plus complets, je me suis amusée, je vais
garder le


tout.
Merci,
Céline
----------------------------------------------
Sub zaza()
' Effacer la feuille Recap
Sheets(1).Delete
' Créer une variable pour compter les onglets
Dim i As Integer
' Créer la feuille Recap avant la feuille 1
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
' Sélectionner la feuille Recap
Sheets("Recap").Select
' Donner un titre aux colonnes A et B
Range("A1").Value = "Agence"
Range("B1").Value = "Nom"
Range("A1:B1").Select
Selection.Font.Bold = True
' Copier les agences et les noms dans la feuille Recap
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Cells(1, 2)
Cells(i, 2) = Sheets(i).Cells(1, 1)
Next i
' Trier les données de la feuille Recap par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"ChrisV" a écrit dans le message de
news:
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le
message de



news:
c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.











Avatar
ChrisV
Céline,

Ton adresse ci-dessous ne semble pas valide...
???


ChrisV


"Céline Brien" a écrit dans le message de
news: #
Oups ! Lu trop vite...
Céline

"ChrisV" a écrit dans le message de
news:Ol$
Re,

correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2


Hum, hum... selon l'énoncé de Tintin, le nom d'agence se situe en
colonne F,

c'est bien la 6e non ?
;-P


ChrisV


"Céline Brien" a écrit dans le message
de

news:
Salut Chris,
Salut Tintin,
Bravo Chris ! Exactement ce qu'il cherchait. Seulement une petite
correction à effectuer.
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
changer le 6 pour un 2
Cells(i - 1, 1) = Sheets(i).Cells(1, 2)
Ci-dessous des codes plus complets, je me suis amusée, je vais
garder le


tout.
Merci,
Céline
----------------------------------------------
Sub zaza()
' Effacer la feuille Recap
Sheets(1).Delete
' Créer une variable pour compter les onglets
Dim i As Integer
' Créer la feuille Recap avant la feuille 1
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
' Sélectionner la feuille Recap
Sheets("Recap").Select
' Donner un titre aux colonnes A et B
Range("A1").Value = "Agence"
Range("B1").Value = "Nom"
Range("A1:B1").Select
Selection.Font.Bold = True
' Copier les agences et les noms dans la feuille Recap
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Cells(1, 2)
Cells(i, 2) = Sheets(i).Cells(1, 1)
Next i
' Trier les données de la feuille Recap par les colonnes A et B
Sheets(1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:= _
False, Orientation:=xlTopToBottom
End Sub

"ChrisV" a écrit dans le message de
news:
Bonjour Tintin,

Sub zaza()
Dim i As Integer
Sheets.Add(Before:=Sheets(1)).Name = "Recap"
For i = 2 To Worksheets.Count
Cells(i - 1, 1) = Sheets(i).Cells(1, 6)
Cells(i - 1, 2) = Sheets(i).Cells(1, 1)
Next i
End Sub


ChrisV


"tintin" a écrit dans le
message de



news:
c57501c3edb4$b75c1fb0$
Bonjour,

j'ai plusieurs feuilles (classées par orde alphabétique)
qui sont au nom de personnes appartenant à diverses agences
de travail temporaire. A l'intérieur de chaque feuille, en
A1, on retrouve le nom de la personne et en F1 l'agence à
laquelle il appartient. Chaque nom et agence sont liées par
des macros de telle sorte que lorsque je saisis un nom
d'une personne, l'agence à laquelle il est rattaché et
divers autres caractéristiques s'inscrivent. Je souhaite,
dans une nouvelle feuille, avoir la liste des différentes
agences en colonne A et le nom du personnel correspondant
en colonne B.

Merci des réponses susceptibles de m'aider.














1 2