Tester multiples caractères dans une cellule

[Phillip]

Bonjour,

Sur une plage de cellules, je veux récupérer une partie de la cellule, mais pour cela il faut qu'elle contiennent @ / ( ou ).

Si elle ne les contient pas mon code plante. j'ai donc fait un test avec le code ci-dessous, mais, ça ne passe pas à la cellule suivante si ma cellule ne contient aucun des caractères testés Qu'est-ce qui ne va pas ?

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)

merci de vos lumières

Phillip

 

[eddy1975]

Re : Tester multiples caractères dans une cellule

Bonjour,

Peux-tu joindre un exemple dans un fichier stp car une fonction si serait peut-être applicable.
@+

 

[thebenoit59]

Re : Tester multiples caractères dans une cellule

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

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

 Then Exit For

quitte la boucle.

Pourquoi ne pas partir sur :

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

 

[Phillip]

Re : Tester multiples caractères dans une cellule

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

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

 Then Exit For

quitte la boucle.

Pourquoi ne pas partir sur :

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

Bonjour,

Eh oui, mais justement ! quand ma cellule contient l'un de ces caractères je veux faire 'valeurArecuperer, mais quand elle n'en contient aucun, mon code plante et ne va pas à la cellule suivante !

ou alors je fais un else ?

merci

Cordialement

 

[thebenoit59]

Re : Tester multiples caractères dans une cellule

Et avec la proposition que je t'ai donné ?

 

[Phillip]

Re : Tester multiples caractères dans une cellule

ca marche ! merci !