Recherche mot dans une colonne (phrases dans cellules)

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Janvier 2012

• #2

Re : Recherche mot dans une colonne (phrases dans cellules)

Bonjour Hidozo,

voir exemple en pièce jointe sans macro

à+
Philippe

 

Pièces jointes

• 111.xls

  27.5 KB · Affichages: 111
• 111.xls

  27.5 KB · Affichages: 110
• 111.xls

  27.5 KB · Affichages: 110

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 26 Janvier 2012

• #3

Re : Recherche mot dans une colonne (phrases dans cellules)

merci pour le doc.

Avec les formules, c'est super, mais je veux le mettre en VBA car pluieurs milliers de lignes à traiter

Hidozo

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Janvier 2012

• #4

Re : Recherche mot dans une colonne (phrases dans cellules)

Re,

avec ceci:

Code:

Sub Macro1()
Dim cel As Range
For Each cel In Range("A1:A65535")
If cel.Value Like "*lui*" Then
cel.Offset(0, 1).Value = "X"
End If
Next cel
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 26 Janvier 2012

• #5

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 !

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Janvier 2012

• #6

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

à+
Philippe

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 26 Janvier 2012

• #7

Re : Recherche mot dans une colonne (phrases dans cellules)

re,

Merci,

le cel.offset(0,1) cela veut dire une colonne plus loin si je me trompe pas.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Janvier 2012

• #8

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].

A+

 

Dernière édition: 26 Janvier 2012

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 26 Janvier 2012

• #9

Re : Recherche mot dans une colonne (phrases dans cellules)

Re,

hidozo à dit:

re,

Merci,

le cel.offset(0,1) cela veut dire une colonne plus loin si je me trompe pas.

Cliquez pour agrandir...

pour être plus précis:
sur la même ligne ---------> 0
une colonne vers la droite -> 1

si les valeurs son négatives on remonte d'une ligne ou on déplace vers la gauche

à+
Philippe

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Janvier 2012

• #10

Re : Recherche mot dans une colonne (phrases dans cellules)

Re,

Testé la macro du post #8 sur 63000 lignes => 0,54 seconde sur Excel 2003.

A+

 

Vote positif 0 Vote négatif

H

hidozo

XLDnaute Occasionnel

• 1 Février 2012

• #11

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

A plus

 

Vote positif 0 Vote négatif