Modifier un code

[maval]

Bonjour

J'ai code pour recherche un mot d'ans une liste qui fonctionne très bien sauf qu'il ne faut pas qu'il agisse sur les 3 première lignes. Alors qu'il les écrase toujours.

Mon code:

Private Sub CommandButton1_Click()
Dim rng As Range, c As Range, T() As Variant, L As Long
If TextBox1 = "" Then Exit Sub
x = 1
With ActiveSheet
    .Cells.EntireRow.Hidden = False
    Set rng = .Range("A4").CurrentRegion
    With rng
        Set c = .Find(What:=TextBox1, LookAt:=xlPart, MatchCase:=False)
        If Not c Is Nothing Then
            Adresse = c.Address
            Do
            ReDim Preserve T(1 To x)
            T(x) = c.Row
            x = x + 1
            Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adresse
        End If
    End With
    On Error Resume Next
    L = UBound(T)
    If L = 0 Then
        MsgBox "aucun item trouvé"
    Else
        Application.ScreenUpdating = False
        On Error GoTo 0
        rng.EntireRow.Hidden = True
        For i = 1 To UBound(T)
            .Rows(T(i)).EntireRow.Hidden = False
        Next
        Application.ScreenUpdating = True
    End If
End With
End Sub

Je vous remercie de votre aide

 

[Paf]

Re : Modifier un code

Bonjour,

a priori remplacer

        For i = 1 To UBound(T)

par
For i = 4 To UBound(T)

(pas testé faute de jeu d'essai)

Bonne suite

 

[maval]

Re : Modifier un code

Bonjour Paf

Merci de ton intervention mais sa conserve la 3éme ligne mais il efface les 2 premieres?

@+

Max

 

[Paf]

Re : Modifier un code

J'ai pris le Pb à l'envers, la boucle décache les ligne dans l'ensemble caché! Donc

au lieu de

For i = 1 To UBound(T)

écrire

For i = 1 To 3

 

[maval]

Re : Modifier un code

Re,

Toujours pareil.....!

@+

 

[Paf]

Re : Modifier un code

est-il possible d'avoir le classeur pour faire des tests ?
A+

 

[maval]

Re : Modifier un code

Re

Excuse moi de na pas avoir répondu avant

Voila le fichier

 

[maval]

Re : Modifier un code

Re

Personne peut m'aider......?

 

[phlaurent55]

Re : Modifier un code

Bonjour à tous,


remplace:
Set rng = .Range("A4").CurrentRegion

par ceci :
Set rng = .Range("A4:CZ" & Range("A65535").End(xlUp).Row)

à+
Philippe

 

[maval]

Re : Modifier un code

Re Philippe

Nickel je te remercie beaucoup

Bonne journée