J'ai testé et ca marche très bien. Effectivement, cela me donne exactement le résultat désiré.
Maintenant, si la liste de noms est mis à jour, il faut apparement refaire la manipulation pour resortir une liste sans doublons. Est-il possible de l'automatiser ? (Bouton, ...)
Merci d'avance.
Bye
"Zelias" wrote:
Bonjour,
Merci mais un tableau croisé dynamique ne m'arrange pas. Je veux pouvoir créer cette liste sans doublons et ensuite la retravailler. Un tableau croisé dynamique est très bien dans la façon de ressortir les infos mais pas assez complet pour ce que je veux faire par la suite.
Bye
"Vincnet." wrote:
Bonjour, Est-ce qu'un tableau croisé dynamique tout bête ne ferait pas l'affaire par hasard ? -- A+
V.
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille "Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour. Au plus simple : Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller sur Feuil2. Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" : toto tata titi tata tata toto toto titi tutu titi toto toto tata titi tata titi titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans doublons. Comment faire ?
Merci d'avance.
Bye
Bonjour,
J'ai testé et ca marche très bien. Effectivement, cela me donne exactement
le résultat désiré.
Maintenant, si la liste de noms est mis à jour, il faut apparement refaire
la manipulation pour resortir une liste sans doublons. Est-il possible de
l'automatiser ? (Bouton, ...)
Merci d'avance.
Bye
"Zelias" wrote:
Bonjour,
Merci mais un tableau croisé dynamique ne m'arrange pas.
Je veux pouvoir créer cette liste sans doublons et ensuite la retravailler.
Un tableau croisé dynamique est très bien dans la façon de ressortir les
infos mais pas assez complet pour ce que je veux faire par la suite.
Bye
"Vincnet." wrote:
Bonjour,
Est-ce qu'un tableau croisé dynamique tout bête ne ferait pas l'affaire par
hasard ?
--
A+
V.
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille
"Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose
d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour.
Au plus simple :
Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller sur
Feuil2.
Cordialement.
Daniel
"Zelias" <Zelias@discussions.microsoft.com> a écrit dans le message de news:
D9F5B968-46B5-480C-B52F-A6347102BA9A@microsoft.com...
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" :
toto
tata
titi
tata
tata
toto
toto
titi
tutu
titi
toto
toto
tata
titi
tata
titi
titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans doublons.
Comment faire ?
J'ai testé et ca marche très bien. Effectivement, cela me donne exactement le résultat désiré.
Maintenant, si la liste de noms est mis à jour, il faut apparement refaire la manipulation pour resortir une liste sans doublons. Est-il possible de l'automatiser ? (Bouton, ...)
Merci d'avance.
Bye
"Zelias" wrote:
Bonjour,
Merci mais un tableau croisé dynamique ne m'arrange pas. Je veux pouvoir créer cette liste sans doublons et ensuite la retravailler. Un tableau croisé dynamique est très bien dans la façon de ressortir les infos mais pas assez complet pour ce que je veux faire par la suite.
Bye
"Vincnet." wrote:
Bonjour, Est-ce qu'un tableau croisé dynamique tout bête ne ferait pas l'affaire par hasard ? -- A+
V.
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille "Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour. Au plus simple : Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller sur Feuil2. Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" : toto tata titi tata tata toto toto titi tutu titi toto toto tata titi tata titi titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans doublons. Comment faire ?
Merci d'avance.
Bye
AV
| Le filtre s'obstine à me dire que le résultat doit être sur la | feuille active ?
La commande doit être lancée à partir de la feuille destination et non depuis la feuille source
AV
| Le filtre s'obstine à me dire que le résultat doit être sur la
| feuille active ?
La commande doit être lancée à partir de la feuille destination et non depuis la
feuille source
| Le filtre s'obstine à me dire que le résultat doit être sur la | feuille active ?
La commande doit être lancée à partir de la feuille destination et non depuis la feuille source
AV
Daniel
Bonsoir et merci. Je n'y aurais jamais pensé tout seul ! Daniel "AV" a écrit dans le message de news:
| Le filtre s'obstine à me dire que le résultat doit être sur la | feuille active ?
La commande doit être lancée à partir de la feuille destination et non depuis la feuille source
AV
Bonsoir et merci.
Je n'y aurais jamais pensé tout seul !
Daniel
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
OpPlTpLAGHA.1312@TK2MSFTNGP09.phx.gbl...
| Le filtre s'obstine à me dire que le résultat doit être sur la
| feuille active ?
La commande doit être lancée à partir de la feuille destination et non
depuis la
feuille source
Bonsoir et merci. Je n'y aurais jamais pensé tout seul ! Daniel "AV" a écrit dans le message de news:
| Le filtre s'obstine à me dire que le résultat doit être sur la | feuille active ?
La commande doit être lancée à partir de la feuille destination et non depuis la feuille source
AV
LSteph
Bonsoir Daniel et Zelias, (comme a dit AV, depuis feuil2) idem par macro:
Sub Filtrsd() Feuil2.Activate Feuil2.Names.Add "maplage", Feuil1.[a1:a50] Range("maplage").AdvancedFilter xlFilterCopy, , [b2], 1 End Sub
'lSteph "Daniel" a écrit dans le message de news: %
A moins que tu ne veuilles pas non plus de macro, essaie :
Sub test() Dim Ligne As Long, Plage As Range, c As Range Ligne = 1 Sheets("Feuil1").Select Set Plage = Sheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) Sheets("Feuil2").Select For Each c In Plage If Ligne = 1 Then [A1] = c.Value Ligne = 2 ElseIf WorksheetFunction.CountIf(Range("A1:A" & Ligne), c.Value) = 0 Then Range("A" & Ligne) = c.Value Ligne = Ligne + 1 End If Next c End Sub
Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille "Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour. Au plus simple : Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller sur Feuil2. Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" : toto tata titi tata tata toto toto titi tutu titi toto toto tata titi tata titi titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans doublons. Comment faire ?
Merci d'avance.
Bye
Bonsoir Daniel et Zelias,
(comme a dit AV, depuis feuil2) idem par macro:
Sub Filtrsd()
Feuil2.Activate
Feuil2.Names.Add "maplage", Feuil1.[a1:a50]
Range("maplage").AdvancedFilter xlFilterCopy, , [b2], 1
End Sub
'lSteph
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23wWl7NKAGHA.3568@TK2MSFTNGP09.phx.gbl...
A moins que tu ne veuilles pas non plus de macro, essaie :
Sub test()
Dim Ligne As Long, Plage As Range, c As Range
Ligne = 1
Sheets("Feuil1").Select
Set Plage = Sheets("Feuil1").Range("A1", Range("A65536").End(xlUp))
Sheets("Feuil2").Select
For Each c In Plage
If Ligne = 1 Then
[A1] = c.Value
Ligne = 2
ElseIf WorksheetFunction.CountIf(Range("A1:A" & Ligne), c.Value) =
0 Then
Range("A" & Ligne) = c.Value
Ligne = Ligne + 1
End If
Next c
End Sub
Cordialement.
Daniel
"Zelias" <Zelias@discussions.microsoft.com> a écrit dans le message de
news: C91EE4F5-EF8A-4652-9E87-93BDC5AEF733@microsoft.com...
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille
"Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose
d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour.
Au plus simple :
Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller
sur
Feuil2.
Cordialement.
Daniel
"Zelias" <Zelias@discussions.microsoft.com> a écrit dans le message de
news:
D9F5B968-46B5-480C-B52F-A6347102BA9A@microsoft.com...
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" :
toto
tata
titi
tata
tata
toto
toto
titi
tutu
titi
toto
toto
tata
titi
tata
titi
titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans
doublons.
Comment faire ?
Bonsoir Daniel et Zelias, (comme a dit AV, depuis feuil2) idem par macro:
Sub Filtrsd() Feuil2.Activate Feuil2.Names.Add "maplage", Feuil1.[a1:a50] Range("maplage").AdvancedFilter xlFilterCopy, , [b2], 1 End Sub
'lSteph "Daniel" a écrit dans le message de news: %
A moins que tu ne veuilles pas non plus de macro, essaie :
Sub test() Dim Ligne As Long, Plage As Range, c As Range Ligne = 1 Sheets("Feuil1").Select Set Plage = Sheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) Sheets("Feuil2").Select For Each c In Plage If Ligne = 1 Then [A1] = c.Value Ligne = 2 ElseIf WorksheetFunction.CountIf(Range("A1:A" & Ligne), c.Value) = 0 Then Range("A" & Ligne) = c.Value Ligne = Ligne + 1 End If Next c End Sub
Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille "Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour. Au plus simple : Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller sur Feuil2. Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" : toto tata titi tata tata toto toto titi tutu titi toto toto tata titi tata titi titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans doublons. Comment faire ?
Merci d'avance.
Bye
Daniel
Bonsoir et merci à toi aussi. Daniel "LSteph" a écrit dans le message de news: O$SK$
Bonsoir Daniel et Zelias, (comme a dit AV, depuis feuil2) idem par macro:
Sub Filtrsd() Feuil2.Activate Feuil2.Names.Add "maplage", Feuil1.[a1:a50] Range("maplage").AdvancedFilter xlFilterCopy, , [b2], 1 End Sub
'lSteph "Daniel" a écrit dans le message de news: %
A moins que tu ne veuilles pas non plus de macro, essaie :
Sub test() Dim Ligne As Long, Plage As Range, c As Range Ligne = 1 Sheets("Feuil1").Select Set Plage = Sheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) Sheets("Feuil2").Select For Each c In Plage If Ligne = 1 Then [A1] = c.Value Ligne = 2 ElseIf WorksheetFunction.CountIf(Range("A1:A" & Ligne), c.Value) = 0 Then Range("A" & Ligne) = c.Value Ligne = Ligne + 1 End If Next c End Sub
Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille "Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour. Au plus simple : Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller sur Feuil2. Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" : toto tata titi tata tata toto toto titi tutu titi toto toto tata titi tata titi titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans doublons. Comment faire ?
Merci d'avance.
Bye
Bonsoir et merci à toi aussi.
Daniel
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
O$SK$9OAGHA.2036@TK2MSFTNGP14.phx.gbl...
Bonsoir Daniel et Zelias,
(comme a dit AV, depuis feuil2) idem par macro:
Sub Filtrsd()
Feuil2.Activate
Feuil2.Names.Add "maplage", Feuil1.[a1:a50]
Range("maplage").AdvancedFilter xlFilterCopy, , [b2], 1
End Sub
'lSteph
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23wWl7NKAGHA.3568@TK2MSFTNGP09.phx.gbl...
A moins que tu ne veuilles pas non plus de macro, essaie :
Sub test()
Dim Ligne As Long, Plage As Range, c As Range
Ligne = 1
Sheets("Feuil1").Select
Set Plage = Sheets("Feuil1").Range("A1", Range("A65536").End(xlUp))
Sheets("Feuil2").Select
For Each c In Plage
If Ligne = 1 Then
[A1] = c.Value
Ligne = 2
ElseIf WorksheetFunction.CountIf(Range("A1:A" & Ligne), c.Value) =
0 Then
Range("A" & Ligne) = c.Value
Ligne = Ligne + 1
End If
Next c
End Sub
Cordialement.
Daniel
"Zelias" <Zelias@discussions.microsoft.com> a écrit dans le message de
news: C91EE4F5-EF8A-4652-9E87-93BDC5AEF733@microsoft.com...
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille
"Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose
d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour.
Au plus simple :
Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller
sur
Feuil2.
Cordialement.
Daniel
"Zelias" <Zelias@discussions.microsoft.com> a écrit dans le message de
news:
D9F5B968-46B5-480C-B52F-A6347102BA9A@microsoft.com...
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" :
toto
tata
titi
tata
tata
toto
toto
titi
tutu
titi
toto
toto
tata
titi
tata
titi
titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans
doublons.
Comment faire ?
Bonsoir et merci à toi aussi. Daniel "LSteph" a écrit dans le message de news: O$SK$
Bonsoir Daniel et Zelias, (comme a dit AV, depuis feuil2) idem par macro:
Sub Filtrsd() Feuil2.Activate Feuil2.Names.Add "maplage", Feuil1.[a1:a50] Range("maplage").AdvancedFilter xlFilterCopy, , [b2], 1 End Sub
'lSteph "Daniel" a écrit dans le message de news: %
A moins que tu ne veuilles pas non plus de macro, essaie :
Sub test() Dim Ligne As Long, Plage As Range, c As Range Ligne = 1 Sheets("Feuil1").Select Set Plage = Sheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) Sheets("Feuil2").Select For Each c In Plage If Ligne = 1 Then [A1] = c.Value Ligne = 2 ElseIf WorksheetFunction.CountIf(Range("A1:A" & Ligne), c.Value) = 0 Then Range("A" & Ligne) = c.Value Ligne = Ligne + 1 End If Next c End Sub
Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
J'ai oublié de préciser que je ne veux en aucun cas toucher à la Feuille "Feuil1" ou se trouve la liste initiale. Je veux faire quelque chose d'automatique et non manipuler des données manuellement.
Merci
Bye
"Daniel" wrote:
Bonjour. Au plus simple : Filtre élaboré, extraction sans doublon sur Feuil1 puis couper coller sur Feuil2. Cordialement. Daniel "Zelias" a écrit dans le message de news:
Bonjour,
Imaginons la liste suivante das l'onglet "Feuil1" : toto tata titi tata tata toto toto titi tutu titi toto toto tata titi tata titi titi
Je voudrais ressortir cette liste dans l'onglet "Feuil2" et sans doublons. Comment faire ?
Merci d'avance.
Bye
JB
Bonjour,
http://cjoint.com/?mpfilEeeKV
A B C 1 ListeDépart Liste sans doublons 2 toto toto 3 tata tata 4 titi titi 5 tata misange 6 tata tutu 7 toto 8 toto 9 misange
-Nommer la liste de départ -Sélectionner C2:C8: =SansDoublons(ListeDépart) Valider vec Maj+ctrl+entrée (La formule peut être écrite dans un autre onglet)
Dans un module:
Function SansDoublons(champ As Range) Dim temp(1000, 1) j = 0 For i = 1 To champ.Count témoin = False For k = 0 To j If temp(k, 0) = champ(i) Then témoin = True Next k If Not témoin Then temp(j, 0) = champ(i): j = j + 1 Next i SansDoublons = temp End Function
Cordialement JB
Bonjour,
http://cjoint.com/?mpfilEeeKV
A B C
1 ListeDépart Liste sans doublons
2 toto toto
3 tata tata
4 titi titi
5 tata misange
6 tata tutu
7 toto
8 toto
9 misange
-Nommer la liste de départ
-Sélectionner C2:C8: =SansDoublons(ListeDépart)
Valider vec Maj+ctrl+entrée
(La formule peut être écrite dans un autre onglet)
Dans un module:
Function SansDoublons(champ As Range)
Dim temp(1000, 1)
j = 0
For i = 1 To champ.Count
témoin = False
For k = 0 To j
If temp(k, 0) = champ(i) Then témoin = True
Next k
If Not témoin Then temp(j, 0) = champ(i): j = j + 1
Next i
SansDoublons = temp
End Function
A B C 1 ListeDépart Liste sans doublons 2 toto toto 3 tata tata 4 titi titi 5 tata misange 6 tata tutu 7 toto 8 toto 9 misange
-Nommer la liste de départ -Sélectionner C2:C8: =SansDoublons(ListeDépart) Valider vec Maj+ctrl+entrée (La formule peut être écrite dans un autre onglet)
Dans un module:
Function SansDoublons(champ As Range) Dim temp(1000, 1) j = 0 For i = 1 To champ.Count témoin = False For k = 0 To j If temp(k, 0) = champ(i) Then témoin = True Next k If Not témoin Then temp(j, 0) = champ(i): j = j + 1 Next i SansDoublons = temp End Function
