test sur une chaine de caractere

[toinish]

Bonjour le forum,
j ai une importante liste de données contenant notament des num de dossiers(caracteres + chiffres), et je recherche la commande sous vb pour d une part tester si la chaine de caracteres contient les caracteres FF,FD,FI,FE OU FU, et qui masque les autres dossier
merci d avance...

ci joint un exemple [file name=toinish.zip size=2277]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/toinish.zip[/file]

 

[mutzik]

Bonjour Toinish,

Pourquoi ne pas utiliser le mode filtre d'excel
- click surA1
- données / filtrer /filtre automatique
- click sur la flèche / personnalisé
- case gauche 'égal'
- case droite : taper FF* et valider

cela va te rechercher toutes les lignes commençant par FF

 

[toinish]

oui j aurais du preciser que le critere FF... est saisi par l utilisateur par l intermediaire d une combobox, du coup pas de tri excel possible

 

[mutzik]

Ben voie un peu le code dans ce fichier [file name=toinish01.zip size=8200]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/toinish01.zip[/file]

 

[vekmort]

Bonjour,

En mettant la sub ci-dessous dans un module, en sélectionnant la colonne contenant les FF,FE... puis l'exécuter, toutes les lignes ne contenant pas vos références seront masquées :

Sub Où_sont_Les_F()
For i = 1 To Cells(Selection.Row, Selection.Column).End(xlDown).Row Step 1
If InStr(1, Cells(i, Selection.Column).Text, 'ff', vbTextCompare) _
Or InStr(1, Cells(i, Selection.Column).Text, 'fd', vbTextCompare) _
Or InStr(1, Cells(i, Selection.Column).Text, 'fi', vbTextCompare) _
Or InStr(1, Cells(i, Selection.Column).Text, 'fe', vbTextCompare) _
Or InStr(1, Cells(i, Selection.Column).Text, 'fu', vbTextCompare) Then
Cells(i, Selection.Column).EntireRow.Hidden = False
Else: Cells(i, Selection.Column).EntireRow.Hidden = True
End If
Next i
End Sub

Bon courage, c'est vendredi

 

[Charly2]

Bonsoir Toinish, Mutzik et Vekmort, bonsoir à toutes et à tous

Allez, une autre solution en tenant compte de la ComboBox et de la proposition de Mutzik : tu auras le choix

[file name=toinish_CB_Tri.zip size=11611]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/toinish_CB_Tri.zip[/file]

A+