Modifier macro Like "*mot recherché" en Like "*Liste!A2"

[kakemphaton]

Bonjour,

J'utilise actuellement cette macro et je souhaite juste lui apporter une modification, mais, mes essais ont echoué.

Sub Test2()
Dim i As Long
For i = 2 To 90000
If CStr(Range("d" & i).Value) Like "*AUTOMOBILE*" Then
Range("e" & i).Value = 1
End If
Next i
End Sub

Je voudrais qu'à la place du mot automobile, j'obtienne une référence de cellule sur un autre onglet, par exemple, l'onglet Liste et sur la cellule A2.

Merci !!!

 

[Papou-net]

Re : Modifier macro Like "*mot recherché" en Like "*Liste!A2"

Bonsoir kakemphaton,

Essaie comme ceci :

Sub Test2()
Dim i As Long
For i = 2 To 90000
If CStr(Range("d" & i).Value) Like Sheets("Liste").Range("A2").Value Then
Range("e" & i).Value = 1
End If
Next i
End Sub

Cordialement.

 

[kakemphaton]

Re : Modifier macro Like "*mot recherché" en Like "*Liste!A2"

Bonsoir Papou-net,

Zut, cela ne marche pas. Je pense qu'il faudrait rajouter un * avant et après la référence (comme pour automobile), mais le hic, je ne sais pas où

Merci.

 

[jpb388]

Re : Modifier macro Like "*mot recherché" en Like "*Liste!A2"

Bonjour à tous

Sub Test2()
 Dim i As Long
 For i = 2 To Range("d" & Rows.Count).End(xlUp).Row
 If StrConv(Range("d" & i).Text, vbUpperCase) Like StrConv(Sheets("liste").Range("a2").Text, vbUpperCase) Then
 Range("e" & i) = 1
 End If
 Next i
 End Sub

 

[Papou-net]

Re : Modifier macro Like "*mot recherché" en Like "*Liste!A2"

Bonjour kakemphaton, jpb388, le Forum,

Voici une autre solution, qui fonctionne sur toutes les cellules contenant le mot situé en cellule A2 de la Feuille Liste (Click sur le bouton Test).

Espérant avoir répondu.

Cordialement.

 

[kakemphaton]

Re : Modifier macro Like "*mot recherché" en Like "*Liste!A2"

Bonjour à tous,

Parfait, un grand merci, cela fonctionne parfaitement. Super

Merci encore