Discussion :

[mapotam]

Bonjour,

Je souhaiterais trouver dans une colone toutes les cellules qui contiennent le mot suivant:

Bxxf, avec xx etant un nombre (26,40,...)

Voici quelques examples de cellules:

Cor. CTA 1.0 B36f 60%

Cor. CTA 1.0 B30f 300ms

Il faut certainement utiliser la commande find(.,.,.), mais je ne sais pas comment formuler la condition.

Toute suggestion est la bienvenue!

Merci

[ucfoutu]

Bonjour,

Compte tenu de tes explications :
Abandonne l'idée d'utiliser la fonction Find et prépare-toi à celle d'une boucle (pour parcourir toutes les cellules de ta plage) et de l'utilisation de l'opérateur Like.
C'est d'ailleurs ce que préconise Microsoft et que tu vois dans ton aide en ligne (ouverte sur le mot Find) :

Pour effectuer des recherches plus complexes, utilisez une instruction For Each...Next avec l'opérateur Like. Par exemple, le code suivant effectue une recherche dans toutes les cellules de la plage A1:C5 qui utilise une police dont le nom commence par les lettres Cour. Lorsque Microsoft Excel trouve une cellule correspondante, il lui affecte la police Times New Roman.

For Each c In [A1:C5]
If c.Font.Name Like "Cour*" Then
c.Font.Name = "Times New Roman"
End If
Next

Travaille donc dans ce sens et reviens vers nous, en cas de difficulté, en l'isolant et en l'exprimant.

[Didier Gonard]

Bonjour,

Tu peux essayer de voir du côté des filtres automatiques aussi (avec un titre à ta colonne), c'est très très rapide par rapport à des boucles du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub Atester()
    Columns("C:C").Select
    Selection.AutoFilter ' nu déselectionne les filtres
    Selection.AutoFilter Field:=1, Criteria1:="=*b**f*", Operator:=xlAnd
End Sub

et tu exploites le résultat .. cf aide vba et tutos sur le forum,

cordialement,

Didier

[Gorfael]

Salut mapotam et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Cel As Range, Plage As Range
Set Plage = Range([A1], [A65536].End(xlUp))
For Each Cel In Plage
    If Cel Like "*B##f*" Then
        'traitement
        MsgBox Cel.Address(0, 0)
    End If
Next Cel
End Sub

A+

[mapotam]

Ok, ca marche!
Je suis un peu novice en Excel, je ne connaissais que les commandes basics.
Merci a tous pour votre aide!