Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

EXCEL/VBA : find

ketamask

XLDnaute Nouveau
bonjour,

est-il possible de mettre plusieurs variables en utilisant la méthode find

Du genre find(what = variable1 & variable2..)

En gros je souhaite raccourcir le code ci dessous :

Code:
x1 = "~?"
x2 = "~*"

x1 = plage.Find(What:=c1, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
x2 = plage.Find(What:=c2, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address

If Not x1 = "" Then
MsgBox "caractère c1 trouvé"
Elseif Not x2 = "" Then
MsgBox "caractère c2 trouvé"
Else
MsgBox "aucun caractere trouvé"
End If

par quelque chose du style :

Code:
x1 = plage.Find(What:=c1 & c2, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address

If Not x1 = "" Then
MsgBox "caractère c1 ou c2 trouvé"
Else
MsgBox "aucun caractere trouvé"
End If

merci pour votre aide, parce que je n'y arrive plus je suis bloqué
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…