Bonjour,
Je voudrais par une macro rechercher toutes les cellules de la plage B2:B100
qui contiennent la chaine de caractères "toto" (quelle que soit la casse et
n'importe ou dans la cellule) et selon que "toto" soit trouvé ou pas,
inscrire "oui" ou"non" dans la plage "D2:D100".
Quelqu'un aurait-il la bonté de me donner la solution, pour ma part je
tourne en rond depuis un bon moment...
Merci
Domi
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Domi,
'---------------------------------------- Sub test()
Dim Rg As Range, C As Range Dim Chaine As String
Chaine = "toto"
With Worksheets("Feuil2") ' Nom de la feuille à adapter Set Rg = .Range("B2:B100") End With Application.EnableEvents = False Application.ScreenUpdating = False For Each C In Rg If InStr(1, C, Chaine, vbTextCompare) <> 0 Then C.Offset(, 2).Value = "Oui" Else C.Offset(, 2).Value = "Non" End If Next Application.EnableEvents = True End Sub '----------------------------------------
Salutations!
"Domi" a écrit dans le message de news: Bonjour, Je voudrais par une macro rechercher toutes les cellules de la plage B2:B100 qui contiennent la chaine de caractères "toto" (quelle que soit la casse et n'importe ou dans la cellule) et selon que "toto" soit trouvé ou pas, inscrire "oui" ou"non" dans la plage "D2:D100". Quelqu'un aurait-il la bonté de me donner la solution, pour ma part je tourne en rond depuis un bon moment... Merci Domi
Bonjour Domi,
'----------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim Chaine As String
Chaine = "toto"
With Worksheets("Feuil2") ' Nom de la feuille à adapter
Set Rg = .Range("B2:B100")
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each C In Rg
If InStr(1, C, Chaine, vbTextCompare) <> 0 Then
C.Offset(, 2).Value = "Oui"
Else
C.Offset(, 2).Value = "Non"
End If
Next
Application.EnableEvents = True
End Sub
'----------------------------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news: uiFVAFWNGHA.1312@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je voudrais par une macro rechercher toutes les cellules de la plage B2:B100
qui contiennent la chaine de caractères "toto" (quelle que soit la casse et
n'importe ou dans la cellule) et selon que "toto" soit trouvé ou pas,
inscrire "oui" ou"non" dans la plage "D2:D100".
Quelqu'un aurait-il la bonté de me donner la solution, pour ma part je
tourne en rond depuis un bon moment...
Merci
Domi
'---------------------------------------- Sub test()
Dim Rg As Range, C As Range Dim Chaine As String
Chaine = "toto"
With Worksheets("Feuil2") ' Nom de la feuille à adapter Set Rg = .Range("B2:B100") End With Application.EnableEvents = False Application.ScreenUpdating = False For Each C In Rg If InStr(1, C, Chaine, vbTextCompare) <> 0 Then C.Offset(, 2).Value = "Oui" Else C.Offset(, 2).Value = "Non" End If Next Application.EnableEvents = True End Sub '----------------------------------------
Salutations!
"Domi" a écrit dans le message de news: Bonjour, Je voudrais par une macro rechercher toutes les cellules de la plage B2:B100 qui contiennent la chaine de caractères "toto" (quelle que soit la casse et n'importe ou dans la cellule) et selon que "toto" soit trouvé ou pas, inscrire "oui" ou"non" dans la plage "D2:D100". Quelqu'un aurait-il la bonté de me donner la solution, pour ma part je tourne en rond depuis un bon moment... Merci Domi
Domi
Impeccable, macro test, testée et approuvée ;o) Merci beaucoup Domi
"michdenis" a écrit dans le message de news:eU%
Bonjour Domi,
'---------------------------------------- Sub test()
Dim Rg As Range, C As Range Dim Chaine As String
Chaine = "toto"
With Worksheets("Feuil2") ' Nom de la feuille à adapter Set Rg = .Range("B2:B100") End With Application.EnableEvents = False Application.ScreenUpdating = False For Each C In Rg If InStr(1, C, Chaine, vbTextCompare) <> 0 Then C.Offset(, 2).Value = "Oui" Else C.Offset(, 2).Value = "Non" End If Next Application.EnableEvents = True End Sub '----------------------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour, Je voudrais par une macro rechercher toutes les cellules de la plage B2:B100
qui contiennent la chaine de caractères "toto" (quelle que soit la casse et
n'importe ou dans la cellule) et selon que "toto" soit trouvé ou pas, inscrire "oui" ou"non" dans la plage "D2:D100". Quelqu'un aurait-il la bonté de me donner la solution, pour ma part je tourne en rond depuis un bon moment... Merci Domi
Impeccable, macro test, testée et approuvée ;o)
Merci beaucoup
Domi
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eU%23n2VWNGHA.2472@TK2MSFTNGP11.phx.gbl...
Bonjour Domi,
'----------------------------------------
Sub test()
Dim Rg As Range, C As Range
Dim Chaine As String
Chaine = "toto"
With Worksheets("Feuil2") ' Nom de la feuille à adapter
Set Rg = .Range("B2:B100")
End With
Application.EnableEvents = False
Application.ScreenUpdating = False
For Each C In Rg
If InStr(1, C, Chaine, vbTextCompare) <> 0 Then
C.Offset(, 2).Value = "Oui"
Else
C.Offset(, 2).Value = "Non"
End If
Next
Application.EnableEvents = True
End Sub
'----------------------------------------
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:
uiFVAFWNGHA.1312@TK2MSFTNGP09.phx.gbl...
Bonjour,
Je voudrais par une macro rechercher toutes les cellules de la plage
B2:B100
qui contiennent la chaine de caractères "toto" (quelle que soit la casse
et
n'importe ou dans la cellule) et selon que "toto" soit trouvé ou pas,
inscrire "oui" ou"non" dans la plage "D2:D100".
Quelqu'un aurait-il la bonté de me donner la solution, pour ma part je
tourne en rond depuis un bon moment...
Merci
Domi
Impeccable, macro test, testée et approuvée ;o) Merci beaucoup Domi
"michdenis" a écrit dans le message de news:eU%
Bonjour Domi,
'---------------------------------------- Sub test()
Dim Rg As Range, C As Range Dim Chaine As String
Chaine = "toto"
With Worksheets("Feuil2") ' Nom de la feuille à adapter Set Rg = .Range("B2:B100") End With Application.EnableEvents = False Application.ScreenUpdating = False For Each C In Rg If InStr(1, C, Chaine, vbTextCompare) <> 0 Then C.Offset(, 2).Value = "Oui" Else C.Offset(, 2).Value = "Non" End If Next Application.EnableEvents = True End Sub '----------------------------------------
Salutations!
"Domi" a écrit dans le message de news:
Bonjour, Je voudrais par une macro rechercher toutes les cellules de la plage B2:B100
qui contiennent la chaine de caractères "toto" (quelle que soit la casse et
n'importe ou dans la cellule) et selon que "toto" soit trouvé ou pas, inscrire "oui" ou"non" dans la plage "D2:D100". Quelqu'un aurait-il la bonté de me donner la solution, pour ma part je tourne en rond depuis un bon moment... Merci Domi
AV
Une alternative intéressante surtout en cas de longue plage à examiner
Sub zzz() [D2:C100] = "non" [B1:B100].AutoFilter Field:=1, Criteria1:="=*toto*" [B2:B100].SpecialCells(xlCellTypeVisible).Offset(0, 2) = "oui" [B1].AutoFilter End Sub
AV
Une alternative intéressante surtout en cas de longue plage à examiner
Sub zzz()
[D2:C100] = "non"
[B1:B100].AutoFilter Field:=1, Criteria1:="=*toto*"
[B2:B100].SpecialCells(xlCellTypeVisible).Offset(0, 2) = "oui"
[B1].AutoFilter
End Sub
Une alternative intéressante surtout en cas de longue plage à examiner
Sub zzz() [D2:C100] = "non" [B1:B100].AutoFilter Field:=1, Criteria1:="=*toto*" [B2:B100].SpecialCells(xlCellTypeVisible).Offset(0, 2) = "oui" [B1].AutoFilter End Sub