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

5 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
sabatier
ne t'énerve pas, chris
essaie plutôt : la
jps

ChrisV a écrit:
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.
















Avatar
Céline Brien
Salut Chris,
Il y a trois heures je t'ai fait parvenir un message à cette adresse
Tu ne l'as pas reçu ?
@+
Céline

"ChrisV" a écrit dans le message de
news:
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.


















Avatar
ChrisV
Bonjour Céline,

Tu ne l'as pas reçu ?


Désolé mais je n'ai rien reçu...! ;-(
Tu peux me la retransmettre ?


ChrisV


"Céline Brien" a écrit dans le message de
news: #
Salut Chris,
Il y a trois heures je t'ai fait parvenir un message à cette adresse
Tu ne l'as pas reçu ?
@+
Céline


Avatar
gee-dee-
;-)))
essaie auprés de Gaëtan, il me semble qu'ils aient ensemble des relations
.... de travail !!!

;-)))
"ChrisV" a écrit dans le message de
news:%
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
ChrisV
;-)
Ok GeeDee, Céline m'a contacté directement en bal perso...

ChrisV


"gee-dee-" a écrit dans le message de news:

;-)))
essaie auprés de Gaëtan, il me semble qu'ils aient ensemble des relations
.... de travail !!!

;-)))


1 2