Tester multiples caractères dans une cellule

thebenoit59 à dit:

Bonjour Phillip, bonjour eddy, le forum.
Il est normal que ça ne passe pas à la valeur suivante.

Code:

For Each cell In Plage

If Not cell.Value Like "*/*" Or Not cell.Value Like "*(*" Or Not cell.Value Like "*)*" Or Not cell.Value Like "*@*" Then Exit For

Next cell
ValeurArecuperer = Split(Split(cell, "(")(1), "/")(0)

La partie

Code:

 Then Exit For

quitte la boucle.

Pourquoi ne pas partir sur :

Code:

For Each cell In Plage
If cell.Value Like "*/*" Or cell.Value Like "*(*" Or cell.Value Like "*)*" Or cell.Value Like "*@*" Then 
ValeurArecuperer = Split(Split(cell, "(")(1), "/")(0)
End If
Next cell

Cliquez pour agrandir...