Macro - Extraire d'une feuille dans sa totalité

[Nougatine95]

Bonsoir,
Je reviens vers vous...

Sur fichier joint, je cherche une chaine de texte en colonne C par TextBox avec le code suivant (code communiqué par le Forum):

Private Sub TextBox1_Change()
If Me.TextBox1 <> "" Then
    Range("C4").AutoFilter Field:=3, Criteria1:="=*" & Me.TextBox1 & "*"
Else
    ActiveSheet.ShowAllData
End If
End Sub

Que dois-je modifier pour extraire chaine parmi toute la page?, je suppose qu'il faut modifier uniquement cette ligne:

Range("A4:E48").AutoFilter Field:=

= ?????

Merci pour votre aide.

 

[ledzepfred]

Re : Macro - Extraire d'une feuille dans sa totalité

bonsoir nougatine,

je ne comprends pas ta question, ton code permet de filtrer ton feuillet sur la séquence inscrite dans le textbox et fonctionne bien

qu'entends-tu par extraire?

sinon j'ai ajouté un petit bouton défiltrer, ça ne mange pas de pain (comme on dit chez moi), voir fichier joint

Dans l'attente de te lire

A+

 

[ledzepfred]

Re : Macro - Extraire d'une feuille dans sa totalité

re...

je crois avoir compris : tu veux garder en visu uniquement les lignes contenant ta séquence quelle que soit la colonne dans laquelle elle se trouve

Si c'est bien ça, voir fichier joint, ce n'est pas du tout la même méthode

Private Sub TextBox1_Change()

Dim cherchecell As Range
Rows.EntireRow.Hidden = False
For i = 5 To Range("A65536").End(xlUp).Row
Set cherchecell = Rows(i).Find(TextBox1)
If cherchecell Is Nothing Then Rows(i).EntireRow.Hidden = True
Next
End Sub

A+

 

[Nougatine95]

Re : Macro - Extraire d'une feuille dans sa totalité

Bonsoir Ledzepfred,
Bonsoir le Forum,

Oui c'était cela en effet, le 1er code s'intéressait à la colonne C uniquement.
Je souhaitais en effet que le filtre glane toutes les colonnes, et je pensais qu'une toute petite modif suffisait

Ton code donne exactement ce que je recherchais.
Merci infiniment cher Ledzepfred.

Et vive les pros de ce Forum

 

[ledzepfred]

Re : Macro - Extraire d'une feuille dans sa totalité

Re...

ravi d'avoir pu aider


A+