Afficher ligne si valeur cellule = ....

[vlalbonvent]

Yop op op,

Petite question.

J'ai un fichier avec des lignes masquées. mais il se peut que je doivent afficher une de ces lignes à un moment donné. Dans la colonne A, il y a des valeurs, toutes différentes pour chaque ligne.

Je voudrai créer un bouton qui regarde la valeur dans une cellule donnée (par exemple B1) et qui , lorsque je clique dessus, affiche la ligne qui contient dans la colonne A la meme valeur.

J'espère que vous m'avez compris.

MErci et à plus

Fred

 

[slimsamfr]

salut dis moi si cela te convient:

Sub affiche_ligne()
Dim Valeur_Chercher
Dim Ligne

Valeur_Chercher = Range('b1').Value

Range('a1').Activate

Do
If ActiveCell.Value = Valeur_Chercher Then
Ligne = ActiveCell.Row
Rows(Ligne & ':' & Ligne).EntireRow.AutoFit
Exit Do
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop While ActiveCell.Row <= 65536

End Sub

 

[vlalbonvent]

yop, gd merci pr ta réponse rapide.

ça marche mais je n'arrive pas à l'adapter à mon cas...

les valeurs à chercher se trouvent dans la colonne B à partir de la ligne 6 et je rentre la vazlur dans la cellule D1...

J ai donc modifier comme ceci :

Sub affiche_ligne()
Dim Valeur_Chercher
Dim Ligne

Valeur_Chercher = Range('d1').Value

Range('b6').Activate

Do
If ActiveCell.Value = Valeur_Chercher Then
Ligne = ActiveCell.Row
Rows(Ligne & ':' & Ligne).EntireRow.AutoFit
Exit Do
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop While ActiveCell.Row <= 65536

End Sub


Mais ça mute...

Merci pour la piste, si tu voit quel est mon prob, n'hésites pas ;o)

Fred

 

[vlalbonvent]

je vais qd meme te joindre mon fichier
[file name=Suivicommande.zip size=31365]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Suivicommande.zip[/file]