Nom : cel.PNG Affichages : 232 Taille : 14,2 Ko
Bonjour,

je me permets de vous écrire pour solliciter votre aide.

je m'explique:
Je voudrais récupérer pour chaque ligne de la cellule de ma colonne "C" les identifiants des utilisateurs et les copier dans la cellule de la colonne "D" juste a cote sachant que pour certains les identifiants leur ID commencent par ALxxxxx et autres par XLxxxxx. Je voudrais éventuellement éliminer mes doublons pour les id que se repentent.

Voila comment je voudrais que les données se présentent dans les colonnes

Colonne C Colonne D
Bernard RAVIER | AL0468115 AL0468115
FAURE Gabriell (A) | AL0466693 AL0466693
Mendes Francois | XL0466693 XL0466693
DG-RM-ITOPFctRolesManagers
RUELLE Fabien (A) | AL046613 AL046613
Testud Fabrice | XL0466451 XL0466451
DG-RM-ITOPFctRolesManagers

Voila mon code d'essaie mais que récupère juste un seul occurrence de l'ID pour chaque cellule

exemple : L0468115 sans le A

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
Sub test() 
 
Dim c As Range 
Dim lg As Long 
Dim pos1 As Long 
Dim pos2 As Long 
Dim temp As String 
Dim fin As String 
 
 Set Range = Worksheets("Group Infos").Range("C4").Row 
For Each c In Range("C4", Range("C65536").End(xlUp)) 
If [c] Like "*L0*" Then 
 lg = Len(c.Value) 
 pos1 = InStr(c.Value, "L0") 
 temp = Mid((c.Value), pos1, lg - pos + 1) 
 pos2 = InStr(temp, Chr(10)) 
 fin = Mid(temp, 1, pos2) 
 c.Offset(0, 2).Value = fin 
End If: Next
Merci d'avance