Discussion :

[MobyKDIK]

Bonjour à tous !
Aujourd'hui je suis prolixe, je dégaine des questions plus vite que mon code !
Ma question cette fois-ci porte sur la méthode find utilisée pour trouver une cellule qui m'intéresse.
Je cherche une cellule portant le nom "Type de Ticket".
Or pour l'instant, celui qui a écrit ce fichier et l'envoie automatiquement toutes les semaines a écrit "type de tixket" .....
J'essaie donc d'écrire un code plus souple, qui marcherait dès que l'erreur d'écriture est corrigée.
Comment faire ? J'ai naïvement essayé de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cnexttype = wsnextbrut.Cells.Find(What:="Type de Ti" + ? + "ket", SearchOrder:=xlByRows).Column

Mais forcément cela ne marche pas
J'attend donc votre expertise et votre expérience !
Merci !

[mayekeul]

Bonjour,

pour éviter tout type de problèmes de ce type qui pourraient facilement démultiplier ta méthode de recherche, ne serait-il pas plus sage de construire un template et ainsi ne pas devoir effectuer de recherche du tout et pointer directement vers la bonne cellule?

parce que là, il se trompe sur le "c" demain sur un espace, après il écrit en yougoslave, etc....

[MobyKDIK]

J'ajoute que j'ai "réglé" mon problème en passant par un For each ... if like, mais je recherche toujours une solution quand à la méthode find

EDIT : en fait le format de départ traité par ma macro n'est pas de mon ressort il est envoyé par un autre groupe et donc peut justement changer à tout moment

[Thautheme]

Bonjour le fil, bonjour le forum,

Ce code fonctionne chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Macro1()
Dim wsnextbrut As Worksheet
 
Set wsnextbrut = Sheets("Feuil1") 'à adapter
cnexttype = wsnextbrut.Cells.Find(What:="Type de Ti?ket", SearchOrder:=xlByRows).Column
MsgBox cnexttype
End Sub

[MobyKDIK]

Mais marche-t-il comme on l'attend, c'est à dire en considérant que le "?" représente n'importe quelle lettre ? Ou cherche-t-il uniquement le mot "Type de Ti?ket" ?

[Thautheme]

Re,

Je ne sais pas ? Pourquoi tu ne testes pas avant de poser la question ?...

[MobyKDIK]

Simple question, tu avais l'air de l'avoir testé avant moi
En tout cas merci, je viens d'essayer et ça marche au poil !