Tri sur une partie de chaîne de carracteres

Bonjour a tous

Je ne connais pas trop le VBA et j'essaye de faire une macro "recherche" sur l'ensemble des données contenues dans une feuille du classeur.

Pour l'instant , cela fonctionne a peu près

J'aimerai maintenant affiner et permettre le tri des données quelque soit la casse et aussi sur une partie de chaine .

J’espère etre clair

Je joint les macros ci dessous

Merci aux âmes charitables qui sauront déchiffrer mes attentes

Sub Recherche()

Dim LaValeur As String, Cell As Range, n As Byte, ligne As Integer

LaValeur = ActiveCell.Value

If LaValeur <> "" Then

For n = 2 To Sheets.Count

For Each Cell In Sheets(n).Range("A2").CurrentRegion

If Cell.Value = LaValeur Then

ligne = Sheets("Recherche").Range("A65536").End(xlUp).Row + 1

Sheets("Recherche").Range("A" & ligne, "Y" & ligne).Value = Cell.EntireRow.Range("A1:Y1").Value

End If

Next Cell

Next n

End If

Application.CutCopyMode = False

Sheets("Recherche").Activate

End Sub

Bonsoir,

Ci-joint une proposition.

Remplacement de

If Cell.Value = LaValeur Then

par

If UCase(Cell.Value) Like "*" & UCase(LaValeur) & "*" Then

A tester ...

Bouben

Bonjour bouben

Super, un grand merci , ça fonctionne

Exactement ce que je souhaitais (recherche sur une partie de chaîne et sans pb de casse )

Par contre , je remarque que la macro ajoute des lignes ( voir le nouveau fichier exemple avec la recherche "com")

A quoi est ce du a votre avis ?

Merci encore pour votre aide

cdt

Bonjour,

SHERWOOD59 a écrit :

Par contre , je remarque que la macro ajoute des lignes ( voir le nouveau fichier exemple avec la recherche "com")

Je ne vois pas bien le souci ?

Toutes les lignes restituées contiennent bien le mot "com" (cf pièce jointe).

Bouben

Bonsoir

Effectivement toutes les lignes contiennent le critère de recherche mais en fait , la requête ajoute la ligne de titre et 3 lignes en dessous qui ne correspondent plus a rien puisque les colonnes ne sont plus en corrélation avec la feuille de données.

Bizarrement , ça ne fait pas la même chose avec un critère de recherche différent .

Le VBA n'est vraiment pas ma tasse de thé.

Merci d'avance pour l'aide éventuelle.

Bonsoir,

Ci-joint une nouvelle version.

J'ai revu ton code VBA initial

Bouben