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

Papou-net

XLDnaute Barbatruc

• 12 Décembre 2011

• #2

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

Bonsoir kakemphaton,

Essaie comme ceci :

Code:

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.

 

Vote positif 0 Vote négatif

K

kakemphaton

Guest

• 12 Décembre 2011

• #3

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.

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 12 Décembre 2011

• #4

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

Bonjour à tous

Code:

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 12 Décembre 2011

• #5

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.

 

Pièces jointes

• kakemphaton.xls

  37.5 KB · Affichages: 123

Vote positif 0 Vote négatif

K

kakemphaton

Guest

• 12 Décembre 2011

• #6

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

Bonjour à tous,

Parfait, un grand merci, cela fonctionne parfaitement. Super

Merci encore

 

Vote positif 0 Vote négatif