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
MichDenis
Ta première ligne doit avoir une ligne d'étiquette
En supposant que l'étiquette de la colonne où se trouve des doublons se nomme "denis" tu baptises une nouvelle colonne au nom "denis", cette nouvelle colonne recevra les données de la première colonne "denis" sans doublons.
Tu sélectionnes ta colonne tu appelles la commande données / filtre / filtre élaborée et dans cette fenêtre : A ) tu coches dans le bas de celle-ci "Sans doublons" B ) tu coches l'options "copier vers un autre emplacement" C ) Tu laisses vide la zone de critère D ) copier vers : tu indiques la cellule d'étiquette nommé "denis"
et tu lances le filtre.
"Michel Ménard" a écrit dans le message de news:
Bonjour
J'utilise la formule suivante pour extraire les données d'une plage sans les doublons .
La formule fonctionne très bien pour 100 , 200 , 500 lignes .Après c'est pénible . Programme ne réponds pas
J'ai des fichiers de 4000 , 5000 lignes . Quelqu'un peux-t-il m'éclairer. Ou vais -je devoir aller avec une macro ?!
Ta première ligne doit avoir une ligne d'étiquette
En supposant que l'étiquette de la colonne où se trouve des doublons se nomme "denis"
tu baptises une nouvelle colonne au nom "denis", cette nouvelle colonne recevra les
données de la première colonne "denis" sans doublons.
Tu sélectionnes ta colonne
tu appelles la commande données / filtre / filtre élaborée
et dans cette fenêtre :
A ) tu coches dans le bas de celle-ci "Sans doublons"
B ) tu coches l'options "copier vers un autre emplacement"
C ) Tu laisses vide la zone de critère
D ) copier vers : tu indiques la cellule d'étiquette nommé "denis"
et tu lances le filtre.
"Michel Ménard" <m2m190@msn.com> a écrit dans le message de news:
ubHR67rXIHA.4272@TK2MSFTNGP05.phx.gbl...
Bonjour
J'utilise la formule suivante pour extraire les données d'une plage sans les
doublons .
La formule fonctionne très bien pour 100 , 200 , 500 lignes .Après c'est
pénible . Programme ne réponds pas
J'ai des fichiers de 4000 , 5000 lignes .
Quelqu'un peux-t-il m'éclairer.
Ou vais -je devoir aller avec une macro ?!
Ta première ligne doit avoir une ligne d'étiquette
En supposant que l'étiquette de la colonne où se trouve des doublons se nomme "denis" tu baptises une nouvelle colonne au nom "denis", cette nouvelle colonne recevra les données de la première colonne "denis" sans doublons.
Tu sélectionnes ta colonne tu appelles la commande données / filtre / filtre élaborée et dans cette fenêtre : A ) tu coches dans le bas de celle-ci "Sans doublons" B ) tu coches l'options "copier vers un autre emplacement" C ) Tu laisses vide la zone de critère D ) copier vers : tu indiques la cellule d'étiquette nommé "denis"
et tu lances le filtre.
"Michel Ménard" a écrit dans le message de news:
Bonjour
J'utilise la formule suivante pour extraire les données d'une plage sans les doublons .
La formule fonctionne très bien pour 100 , 200 , 500 lignes .Après c'est pénible . Programme ne réponds pas
J'ai des fichiers de 4000 , 5000 lignes . Quelqu'un peux-t-il m'éclairer. Ou vais -je devoir aller avec une macro ?!
Function SansDoublons(champ As Range) Set mondico = CreateObject("Scripting.Dictionary") For Each c In champ If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add c.Value, c.Value Next c SansDoublons = Application.Transpose(mondico.items) End Function
Function SansDoublons2(champ As Range) Set mondico = CreateObject("Scripting.Dictionary") For Each c In champ If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add c.Value, c.Value Next c Dim temp() ReDim temp(1 To champ.Count) i = 1 For Each c In mondico.items temp(i) = c i = i + 1 Next SansDoublons2 = Application.Transpose(temp) End Function
Function SansDoublons(champ As Range)
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In champ
If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add
c.Value, c.Value
Next c
SansDoublons = Application.Transpose(mondico.items)
End Function
Function SansDoublons2(champ As Range)
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In champ
If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add
c.Value, c.Value
Next c
Dim temp()
ReDim temp(1 To champ.Count)
i = 1
For Each c In mondico.items
temp(i) = c
i = i + 1
Next
SansDoublons2 = Application.Transpose(temp)
End Function
Function SansDoublons(champ As Range) Set mondico = CreateObject("Scripting.Dictionary") For Each c In champ If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add c.Value, c.Value Next c SansDoublons = Application.Transpose(mondico.items) End Function
Function SansDoublons2(champ As Range) Set mondico = CreateObject("Scripting.Dictionary") For Each c In champ If Not mondico.Exists(c.Value) And c.Value <> "" Then mondico.Add c.Value, c.Value Next c Dim temp() ReDim temp(1 To champ.Count) i = 1 For Each c In mondico.items temp(i) = c i = i + 1 Next SansDoublons2 = Application.Transpose(temp) End Function
