Discussion :

[Chicard]

Bonjour.

J'ai créé une fonction de recherche grace à de nombreuses aides du forum (Je penses là mettre dans les contributions). Seulement voilà, je l'ai passé dans un tableau qui possèdes des lignes vides et malheureuselent je suis obligé d'en avoir des vides.

Je voudrais savoir comment faire pour lorsque je parcours mon tableau avec ma fonction de recherche il ignore le fait qu'il n'y ai pas de valeur dans la case.
Le but de ma fonction étant de masquer les valeurs différentes au(x) paramètre(s) rentré(s), je voudrais que mes lignes vides restent visibles.

Voilà le code de recherche:

Code :

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

1
2
3
4
5
6
7
Dim thecell As Range
Feuil1.Activate
For Each thecell In Range("B1", Cells(Rows.Count, "B").End(xlUp))
    With thecell.Offset(0, 1)
        .EntireRow.Hidden = Year(CDate(.Value)) <> CInt(TextBox1.Value)
    End With
Next

Merci

[Gorfael]

Salut Chicard et le forum

Code :

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

1
2
3
4
5
6
7
8
9
Dim thecell As Range
Feuil1.Activate
For Each thecell In Range("C1", Cells(Rows.Count, "C").End(xlUp))
    if not isempty(thecell) then    
         With thecell
             .EntireRow.Hidden = Year(CDate(.Value)) <> CInt(TextBox1.Value)
         End With
    end if
Next

Code fait sur le site, donc à vérifier
Comme tu testes la colonne C, pourquoi s'occuper de la B alors que si C est vide, de toute façon, tu ne veux rien faire ?
A+

[Chicard]

En fait le bout de ode que j'ai mis est juste la fonction de recherche mais 'était des valeurs pour un autre fichier. Là le fichier que je traite à des colonnes de A à L est la colonne C que je traite à parfois des données manquantes.

Mais merci car ça marche.