Discussion :

[Aladin_23]

Bonjour le forum
Suite à une recherche sur le forum j' ai trouvé ce code vba pour tagger des doublons sur plusieurs feuilles.
Serait il possible que sois ajouté en colonne B de la feuille 2 le mot doublon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Sub CDouble(RngA As Range, RngB As Range)
Dim c As Range, v As Rang
 
For Each c In RngA
    Set v = RngB.Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not v Is Nothing Then
        If c.Parent.Name & c.Address <> v.Parent.Name & v.Address Then
            c.Interior.ColorIndex = 3
            v.Interior.ColorIndex = 3
            Set v = Nothing
        End If
    End If
Next c
End Sub
 
Sub Appliquer()
Dim i As Byte, j As Byte
Dim LastLigA As Long, LastLigB As Long
 
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
    LastLigA = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
    For j = i To Worksheets.Count
        LastLigB = Worksheets(j).Cells(Rows.Count, 1).End(xlUp).Row
        CDouble Worksheets(i).Range("a2:a" & LastLigA), Worksheets(j).Range("A2:A" & LastLigB)
        CDouble Worksheets(i).Range("A2:A" & LastLigA), Worksheets(j).Range("A2:A" & LastLigB)
    Next j
Next i
End Sub

Merci d' avance

Aladin

[Kimy_Ire]

Salut Aladin_23,

Sans tester, je ferais ça :
1) je ne comprends pas trop l'objectif de cette ligne If c.Parent.Name & c.Address <> v.Parent.Name & v.Address Then, mais soit...
2) ça CDouble Worksheets(i).Range("a2:a" & LastLigA), Worksheets(j).Range("A2:A" & LastLigB) à supprimer.
3) et puis le reste comme suis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Public Sub CDouble(RngA As Range, RngB As Range)
Dim c As Range, v As Rang
 
For Each c In RngA
    Set v = RngB.Find(c.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not v Is Nothing Then
        If c.Parent.Name & c.Address <> v.Parent.Name & v.Address Then
            c.Interior.ColorIndex = 3
            v.Interior.ColorIndex = 3
 
            c.Offset(0, 1) = "Doublon"
            v.Offset(0, 1) = "Doublon"
            Set v = Nothing
        End If
    End If
Next c
End Sub
 
Sub Appliquer()
Dim i As Byte, j As Byte
Dim LastLigA As Long, LastLigB As Long
 
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
    LastLigA = Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row
    For j = i To Worksheets.Count
        LastLigB = Worksheets(j).Cells(Rows.Count, 1).End(xlUp).Row
        CDouble Worksheets(i).Range("A2:A" & LastLigA), Worksheets(j).Range("A2:A" & LastLigB)
    Next j
Next i
End Sub

N'hésite pas à ma faire un retour !

Cordialement,
Kimy

[Aladin_23]

Bonjour Kimy_Ire et le forum
Merci pour ta solution elle est bonne, mais j' ai un souci, je m' explique

1) Sur la feuille 1 je n' ai pas de doublons
2) Je recherche les doublosnentre la feuille 1 et la feuille 2 colonne A
3) Il arrive que sur la feuille 2, en colonne A il y ait plusieurs doublons de nom, et la il fait aussi une crcherche de doublons sur elle meme
Peux ton ameliorer cela ?
J' ai une dexuiemen quextion
j' ai fait ceci pour extrairer des caracters - donctionne tres bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

= GAUCHE(A6;3)

Je voudrais par contre faire une extratction de caracteres vers la droite mais à partir d' un tiret.
Est ce possible
Aladin

[Kimy_Ire]

En fait c.Offset(0, 1) = "Doublon" écrit dans la feuille "Feuil1" et v.Offset(0, 1) = "Doublon" dans la "Feuil2".
Donc si tu ne veux pas de mot doublon dans la Feuil1, tu sais ce qu'il te reste à faire !

Par contre, je ne comprends pas ton histoire d'extraction de caractères...
Tu veux garder seulement les trois caractères de gauche ou chercher au sein des chaines de caractères le "-" et extraire la partie de droite ou de gauche ?

J'attends ton retour !

Cordialement,
Kimy

[Aladin_23]

Rebonjour

1) Je veux bien extraire tous les X caracteres apres le Tiret (A la droite du tirert)

Aladin

[Kimy_Ire]

Alors ceci te conviendra :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Right(val, Len(val) - InStr(val, "-"))

"val" est la chaine de caractères dans laquelle tu recherches ton "-".

Cordialement,
Kimy

[Marc-L]

Eviter d'utiliser des mots réservés du VBA, Val étant une fonction !

En cas de doute, sélectionner un mot puis appuyer sur la touche …

[Kimy_Ire]

Merci Marc-L.

En effet, je ne savais pas et fais en sorte d'éviter ce genre d'association.

Cordialement,
Kimy

[Marc-L]

Y a pas de mal, VBA s'en sortant généralement bien mais de rares fois … Et j'en connais qui y ont perdu des heures !

[Aladin_23]

Bonsoir le forum

Desolé, mais je ne peux mas applique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Right(val, Len(val) - InStr(val, "-"))

car je viens dem' apercevoir que j' ai parfois des doubles tiret et que je n' ai pas de longueur de chaine fixe.
Je suppose qu' il faudra faire un truc du style recuperer moi tous les caracters apres le premier tiret et mettre sur la colonne de droire
Merci d' avance
aladin

[casefayere]

Bonsoir,

autre proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...split(tavariable,"-")(1)'de préférence,comme le dit Marc, ne pas choisir "val" qui est un mot réservé

[Marc-L]

La position du dernier tiret se trouve facilement via la fonction InStrRev puis fonction Mid de la position + 1 …

Autre possibilté : utilisation de la fonction Split et récupération du dernier élément via la fonction UBound …

[casefayere]

Je l'ai suggéré Marc,

a adapter suivant la demande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim tavariable As String, V2 As String
Dim x As Integer
tavariable = "je-suis-ici"
For x = 1 To UBound(Split(tavariable, "-"))
  V2 = V2 & Split(tavariable, "-")(x)
Next x
MsgBox V2

[Aladin_23]

Bonsoir le forum
Merci a vous tous d' avoir pu m'aider a trouver une solution, j' ai crée une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Separator(r As Range, Sep$, n&)
Separator = Split(r.Text, Sep)(n)
End Function

Appelé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Separator(C2;"-";1)

Cela me permet de recuperer les données situés apres le premier tiret
Aladin