Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel N'écrire un nom qu'une seule fois

N'écrire un nom qu'une seule fois

8 réponses
Avatar
Denys
Bonjour =E0 tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (r=E9sultat)

Fran=E7ois Fran=E7ois
Fran=E7ois Eve
Fran=E7ois Pierre
Fran=E7ois
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys
Signaler un problème avec ce contenu

8 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
Avatar
michdenis
Tu sélectionnes ta colonne (elle doit avoir une étiquette)
Tu appelles filtre élaboré ( pas de critères) , coche l'option (sans doublons)
par la commande
Tu sélectionnes la plage de résultat de la colonne sur laquelle tu as fait ton filtre
Utilises le raccourci clavier Alt + ; pour sélectionner seulement les lignes visibles
et tu utilises le copier-coller pour transférer tes données.



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

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys
Avatar
Denys
Bonjour Denis,

C'est exactement ce que je faisais à la main. J'ai donc utilisé
l'enregistreur de macro, et tout a bien fonctionné.

Merci beaucoup et bonne fin de semaine.

Denys


Tu sélectionnes ta colonne (elle doit avoir une étiquette)
Tu appelles filtre élaboré ( pas de critères) , coche l'option (san s doublons)
par la commande
Tu sélectionnes la plage de résultat de la colonne sur laquelle tu as fait ton filtre
Utilises le raccourci clavier Alt + ; pour sélectionner seulement les l ignes visibles
et tu utilises le copier-coller pour transférer tes données.



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

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys


Avatar
Jacky
Bonsoir,
Est-il possible par VBA ...
Ceci peut-être:
'--------
Sub jj()
Sheets("feuil1").Activate
Range("A1:A" & Range("A65536").End(xlUp).Row).AdvancedFilter
Action:=xlFilterCopy, CopyToRange:=Sheets("feuil2").Range("a1"),
Unique:=True
Sheets("feuil2").Select
End Sub
'----------
Salutations
JJ

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

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys
Avatar
Denys
Bonsoir Jacky,

Merci infiniment.... C'est parfait..

Bonne fin de semaine

Denys



Bonsoir,
Est-il possible par VBA ...
Ceci peut-être:
'--------
Sub jj()
Sheets("feuil1").Activate
Range("A1:A" & Range("A65536").End(xlUp).Row).AdvancedFilter
Action:=xlFilterCopy, CopyToRange:=Sheets("feuil2").Range("a1"),
Unique:=True
Sheets("feuil2").Select
End Sub
'----------
Salutations
JJ

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

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys


Avatar
JB
Bonjour,

Sans VBA (en matriciel):

http://cjoint.com/?jEmcWLRagT

Sélectionner A2:A18

=SI(ESTTEXTE(INDEX(Noms;PETITE.VALEUR(SI(EQUIV(Noms;Noms;0)=LIGNE(INDIR ECT("1:"&LIGNES(Noms)));EQUIV(Noms;Noms;0);"");LIGNE(INDIRECT("1:"&LIGNES(N oms))))));
INDEX(Noms;PETITE.VALEUR(SI(EQUIV(Noms;Noms;0)=LIGNE(INDIRECT("1:"&LIGNES (Noms)));EQUIV(Noms;Noms;0);"");LIGNE(INDIRECT("1:"&LIGNES(Noms)))));"")

Valider avec Maj+Ctrl+Entrée

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys


Avatar
JB
Extraction dynamique des noms sans doublons en feuil3:

http://cjoint.com/?jEmnq5db7q

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
[A1:A1000].AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheets("Feuil3").[A1], unique:=True
End If
End Sub


JB

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys


Avatar
Denys
Bonjour JB,

Merci beaucoup... dis-donc.. sans VBA c'est assez impressionnant merci
comme formule !!

Bonne journée

Denys


Extraction dynamique des noms sans doublons en feuil3:

http://cjoint.com/?jEmnq5db7q

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
[A1:A1000].AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheets("Feuil3").[A1], unique:=True
End If
End Sub


JB

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys




Avatar
JB
Avec tri dynamique:

http://cjoint.com/?jEqvq3dvJQ

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
[A1:A1000].AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("RésultatExtraction").[A1], unique:=True
[A2:A1000].Sort key1:=[A2] ' Tri
End If
End Sub

JB


Bonjour JB,

Merci beaucoup... dis-donc.. sans VBA c'est assez impressionnant merci
comme formule !!

Bonne journée

Denys


Extraction dynamique des noms sans doublons en feuil3:

http://cjoint.com/?jEmnq5db7q

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
[A1:A1000].AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Sheets("Feuil3").[A1], unique:=True
End If
End Sub


JB

Bonjour à tous,

Est-il possible par VBA de lire des noms sur une colonne A dans une
feuille1 et de les rapporter sur une feuille2 dans la colonne A mais
une seule fois?

Par exemple:

Feuille1 Feuille2 (résultat)

François François
François Eve
François Pierre
François
Eve
Eve
Eve
Pierre
Pierre
Pierre
Pierre
Pierre

Merci pour votre aide...

Denys