reactiver une archive en controlant les encours ?

Re : reactiver une archive en controlant les encours ?

j'ai trouver et adpater ce code la mais sa marche pas ...

Dim val As String
Dim val2 As String
Dim val3 As String

val = currentrow.Cells(1, enColligne)
val2 = currentrow.Cells(1, enColreffiltre)
val3 = val + val2

For i = 1 To Sheets("En Cours").Range("bp65536").End(xlUp).Row
If val3 = Sheets("En Cours").Cells(i, 1).Value Then
MsgBox "La reference " & val & " sur " & val2 & " existe deja dans la colonne"
Exit Sub
End If
Next i
Else
MsgBox "La reference existe pas"
End If



La colonne Range("bp65536") ou je fait la recherche est une concatenation de 4 valeur par exemple comme ceci : toto / tata / 5 / huhu

on prend pour exemple si :

val = toto
val2 = tata

je voudrai que si il trouve toto et tata ensemble dans la ligne de la colonne colonne Bp il me met un message d'erreur ...


merci