Bonjour à tous,
Je cherche à résoudre une petite coquille qui me gène dans un code
With BD
'Boucle sur la colonne N°Test du début du tableau en BD jusqu'a la fin
For Each CEL In .Range("K3:K" & .UsedRange.Rows.Count)
'Si la cellule contient TF
If CEL.Value Like "*TF_*" Then
'Recherche la dernière ligne en colonne B de la feuille TF
dlg = TF.Range("B" & Rows.Count).End(xlUp).Row
If dlg = 7 Then dlg = 8
'Test si la valeur existe déjà en colonne B
On Error Resume Next
lig = TF.Range("B9:B" & dlg).Find(CEL.Value, LookIn:=xlValues, lookat:=xlWhole).Row
Select Case lig
'Si pas de résultat trouvé
Case Is = 0
TF.Range("A" & dlg + 1) = BD.Range("C" & CEL.Row)
TF.Range("B" & dlg + 1) = BD.Range("K" & CEL.Row)
TF.Range("C" & dlg + 1) = BD.Range("L" & CEL.Row)
'Si résultat déjà présent
Case Is > 0
TF.Range("A" & lig) = "'" & TF.Range("A" & lig) & " - " & BD.Range("C" & CEL.Row)
End Select
'Remise lig à 0
lig = 0
End If
Next CEL
End With
Avec ce code je transmet des valeurs d'une base vers un onglet
le soucis est que je peux me retrouver suivant ce qu'il y a dans ma base de données avec des doublons
c'est à dire
dans la cellule A de l'onglet TF il peux y avoir comme valeur "1 - 1 - 2 - 2" or j'aimerai avoir juste "1 - 2"
J'ai essayé avec un bout de code sans succès
If Not BD.Range("C" & CEL.Row).Value Like TF.Range("A" & lig) Then
Pouvez vous m'aider ?
Merci
Bien cordialement,