Mot en double sur la même cellule exel
Fermé
piecesautoservices
Messages postés
4
Date d'inscription
lundi 3 octobre 2011
Statut
Membre
Dernière intervention
3 octobre 2011
-
3 oct. 2011 à 13:30
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 3 oct. 2011 à 16:52
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 3 oct. 2011 à 16:52
A voir également:
- Mot en double sur la même cellule exel
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Double ecran - Guide
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
- Whatsapp double sim - Guide
- Mot de passe administrateur freebox ✓ - Forum Freebox
3 réponses
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 041
3 oct. 2011 à 13:42
3 oct. 2011 à 13:42
Salut,
Si ta liste commence en A2 par exemple et si le dernier mot est toujour séparé par une virgule, sur la même ligne par exemple en C2 colle cette formule et incrémente la vers le bas
=GAUCHE(A2;CHERCHE(",";A2&".")-1)
Ensuite il suffira de faire un copier de ces données et collage Spécial cocher Valeur et OK
Si ta liste commence en A2 par exemple et si le dernier mot est toujour séparé par une virgule, sur la même ligne par exemple en C2 colle cette formule et incrémente la vers le bas
=GAUCHE(A2;CHERCHE(",";A2&".")-1)
Ensuite il suffira de faire un copier de ces données et collage Spécial cocher Valeur et OK
piecesautoservices
Messages postés
4
Date d'inscription
lundi 3 octobre 2011
Statut
Membre
Dernière intervention
3 octobre 2011
3 oct. 2011 à 13:55
3 oct. 2011 à 13:55
Salut Mike,
Merci de t'être penché sur le sujet aussi rapidement.
J'avoue ne pas trop être doué avec exel et pour être honnête je n'ai pas trop compris ta solution et la virgule n'est pas toujours présente.
Voici un exemple plus précis d'une cellule :
Garde boue - Pare boue avant coté passager KANGOO, KANGOO, - Pour véhicule immatriculé de 1998 à 2007 partie
N'existe t'il pas de formule pour supprimer tout les mots identique au sein d'une même cellule ?
Merci
Steve
Merci de t'être penché sur le sujet aussi rapidement.
J'avoue ne pas trop être doué avec exel et pour être honnête je n'ai pas trop compris ta solution et la virgule n'est pas toujours présente.
Voici un exemple plus précis d'une cellule :
Garde boue - Pare boue avant coté passager KANGOO, KANGOO, - Pour véhicule immatriculé de 1998 à 2007 partie
N'existe t'il pas de formule pour supprimer tout les mots identique au sein d'une même cellule ?
Merci
Steve
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
Modifié par michel_m le 3/10/2011 à 15:33
Modifié par michel_m le 3/10/2011 à 15:33
Bonjour
Tu as bien écrit
"supprimer tout les mots identique au sein d'une même cellule ? "
alors essaies ce code , kangoo et boue seront supprimés
Michel
Tu as bien écrit
"supprimer tout les mots identique au sein d'une même cellule ? "
alors essaies ce code , kangoo et boue seront supprimés
Const col As Byte = 1 'colonne à traiter 1=A, 2=B.....
Const dep As Byte = 2 'ligne de départ
Sub supprimer_double()
Dim fin As Integer, cptr As interger
Dim T_in
fin = Columns(col).Find("*", , , , , xlPrevious).Row
T_in = Range(Cells(dep, col), Cells(fin, col)).Value
For cptr = 1 To UBound(T_in)
T_in(cptr, 1) = sansdoublon(T_in(cptr, 1))
Next
Application.ScreenUpdating = False
Range(Cells(dep, col), Cells(fin, col)) = (T_in)
End Sub
Function sansdoublon(valeur)
Dim T_doubl, D_doubl As Object
Dim cptr As Integer
T_doubl = Split(valeur)
Set D_doubl = CreateObject("scripting.dictionary")
For cptr = 0 To UBound(T_doubl) - 1
If Not D_doubl.exists(T_doubl(cptr)) Then D_doubl.Add T_doubl(cptr), "x"
Next
sansdoublon = Join(D_doubl.keys)
End Function
Michel
piecesautoservices
Messages postés
4
Date d'inscription
lundi 3 octobre 2011
Statut
Membre
Dernière intervention
3 octobre 2011
3 oct. 2011 à 15:34
3 oct. 2011 à 15:34
Bonjour Michel,
Ma question va peut etre vous paraître ridicule, mais ma connaissance en exel est vraiment très faible et je ne vois pas comment tester ce code et ou l'insérer ?
Merci
Steve
Ma question va peut etre vous paraître ridicule, mais ma connaissance en exel est vraiment très faible et je ne vois pas comment tester ce code et ou l'insérer ?
Merci
Steve
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
Modifié par michel_m le 3/10/2011 à 15:35
Modifié par michel_m le 3/10/2011 à 15:35
Avant, relis mon message modifié! sur ta demande: supprimer tous les mots
piecesautoservices
Messages postés
4
Date d'inscription
lundi 3 octobre 2011
Statut
Membre
Dernière intervention
3 octobre 2011
3 oct. 2011 à 15:41
3 oct. 2011 à 15:41
Non en fait, je ne veux que en conserver un seul sur les deux qui se repete à chaque fois.
Comme je l'ai indiqué sur mon post, j'ai plusieurs centaine de mot différents sur environs 36 000 lignes.
Comme je l'ai indiqué sur mon post, j'ai plusieurs centaine de mot différents sur environs 36 000 lignes.
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 293
3 oct. 2011 à 16:52
3 oct. 2011 à 16:52
Alors fais une liste des mots à ne lire qu'une fois parce que quand tu dis "Comme je l'ai indiqué sur mon post" tu ne les a pas indiqué, par contre tu te répàtes sur les 36000 lignes...
mais, en aucun cas, je ne voudrais te déranger en te demandant d'être précis
mais, en aucun cas, je ne voudrais te déranger en te demandant d'être précis