Je fais appel à vous dans l'espoir que vous puissiez me donner un petit coup de pouce !
Ce que je souhaite faire est indiqué dans le fichier joint (un exemple concret vaut mieux qu'un long discours )
J'ai essayé d'adapter une macro en utilisant la fonction Instr(), mais quelque chose doit m'échapper ...
Code:
Sub RechercheMot()
Dim i As Integer
For i = 1 To Range("A65536").End(xlUp).Row
If InStr(1, Cells(i, 1).Value, Cells(i, 1), vbTextCompare) = 0 Then
MsgBox ("Ok")
Exit Sub
End If
Next i
End Sub
Je vais continuer de rechercher voir si je peux pas faire autrement en attendant vos propositions.
Merci beaucoup !
C'est vraiment pile poil ce que je voulais ! Merci beaucoup à vous 2 pour ces propositions de code.
Et si admettons, la liste issue de l'extraction ne se trouve plus en colonne B, mais dans une colonne d'une autre feuille du fichier, pensez-vous que l'on puisse conserver cette fonction ?
Ou faut-il prévoir quelque chose de différent ?
Merci beaucoup pour vos réponses ! Je vais essayer de comprendre un peu mieux les solutions proposées
Je pensais pas qu'une formule puisse faire l'affaire, mais en effet c'est aussi simple !
Cela fait un petit moment que j'utilise la fonction DECALER sans vraiment la comprendre ..
C'est le moment de m'y mettre pour la réutiliser moi même par la suite !
En ce qui concerne votre proposition avec code vba, si en feuille 2, les colonnes F et G ne sont pas cote à cote, faut-il créer un "tablo3" dans le code ? Je suis un peu bloqué par rapport à ça ...
J'ai mis le fichier en pièce jointe pour que ce soit plus clair.
De plus, je ne comprends pas tout et ça me chagrine un peu (création de "dico" et de "scripting.dictionary" ainsi que le UBound et LBound). Je suis preneur d'explications !