Re : Recherche mot dans une colonne (phrases dans cellules)
Bonjour.
La même que Philippe collée par macro
VB:
Sub RRREEECCC()
Dim derlig, i
derlig = Range("A65000").End(xlUp).Row
Worksheets("Feuil1").Select
For i = 2 To derlig
Cells(i, 2).FormulaR1C1 = "=IF(ISERROR(FIND(""lui"",RC[-1])),"""",""X"")"
Next i
End Sub
Edit : la première... Trop lent, le Victor, et pas très performant sur ce coup !
Re : Recherche mot dans une colonne (phrases dans cellules)
Re,
Bonjour Victor
au cas ou il y aurait une ou plusieurs lettres en majuscules, il faut prendre ceci:
Code:
Sub Macro1()
Dim cel As Range
For Each cel In Range("A1:A" & Range("A65535").End(xlUp).Row)
If UCase(cel.Value) Like "*LUI*" Then
cel.Offset(0, 2).Value = "X"
End If
Next cel
End Sub
Re : Recherche mot dans une colonne (phrases dans cellules)
Bonjour le fil,
On plaisante il me semble
Code:
Sub RRREEECCC()
'FIND respecte la casse, SEARCH non
With [B1].Resize(Range("A65000").End(xlUp).Row)
.FormulaR1C1 = "=If(ISERROR(SEARCH(""lui"",RC1)),"""",""X"")"
.Value = .Value 'facultatif, supprime les formules
End With
End Sub
Edit : si la 1ère ligne est pour les titres, il suffit de remplacer [B1] par [B2].
Re : Recherche mot dans une colonne (phrases dans cellules)
Bonjour,
Merci pour vos réponses qui m'ont super bien aidée.
Voici le code que j'ai adapté et qui fonctionne super bien :
Je défini avant derlig (dernière ligne remplie) et ReC 1, 2 3 4 (mot saisi dans un des texbox)
If UserCalcStat.TextBox252 <> "" Or UserCalcStat.TextBox253 <> "" Or _
UserCalcStat.TextBox254 <> "" Or UserCalcStat.TextBox252 <> "" Then
For Each Cel In Worksheets("Feuil1").Range("bn3:bn" & Derlig)
If Cel.Value Like ReC Or Cel.Value Like Rec2 Or Cel.Value Like Rec3 Or Cel.Value Like Rec4 Then
Cel.Offset(0, 60).Value = "A"
Else: Cel.Offset(0, 60).Value = ""
End If
If Cel.Value Like "*%*" Then Cel.Offset(0, 60).Value = ""
Next Cel