XL 2013 Seclectionner toute la ligne

[alexis19981998]

Bonjours
Quand je fait une recherche et quand je clique sur un mot il a que le mot de la colonne "B" qui et en vert je voudrais toute la ligne qui se mes en vert comment je peut faire

Merci

( Voir fichier )

 

[Papou-net]

Re : Seclectionner toute la ligne

Bonjour Alexis,

Essaie en modifiant tes lignes comme suit:

...
Cells(i, 2).EntireRow.Interior.Color = RGB(255, 255, 255)
...
Range("B" & i).EntireRow.Interior.Color = RGB(0, 255, 0)

...

Cordialement.

 

[alexis19981998]

Re : Seclectionner toute la ligne

Bonjour Alexis,

Essaie en modifiant tes lignes comme suit:

...
Cells(i, 2).EntireRow.Interior.Color = RGB(255, 255, 255)
...
Range("B" & i).EntireRow.Interior.Color = RGB(0, 255, 0)

...

Cordialement.

Merci mes sa ne va pas quand je fait une recherche plus bas sa sélectionne tout au lieu de la ligne ( voir fichier )

 

[Papou-net]

Re : Seclectionner toute la ligne

RE:

Si ça marche.

Tu as simplement du texte en B50. Si tu l'effaces, tu n'auras que la ligne 3 en vert. Par contre, tu ne dois pas avoir de ligne vide entre la 1ère et la dernière sinin même punition.

Cordialement.

 

[alexis19981998]

Re : Seclectionner toute la ligne

RE:

Si ça marche.

Tu as simplement du texte en B50. Si tu l'effaces, tu n'auras que la ligne 3 en vert. Par contre, tu ne dois pas avoir de ligne vide entre la 1ère et la dernière sinin même punition.

non ça ne marche pas regarde le fichier

 

[Papou-net]

Re : Seclectionner toute la ligne

RE:

J'ai revu la logique du code,ce qui m'a conduit à le refondre entièrement.

Il s'en trouve simplifié:

Private Sub ListBox1_Click()
TextBox1 = ListBox1
Range("B3:B" & Rows.Count).EntireRow.Interior.Color = RGB(255, 255, 255)
Set cel = Range("B3:B" & Rows.Count).Find(TextBox1)
cel.Select
cel.EntireRow.Interior.Color = RGB(0, 255, 0)
End Sub

Ca fonctionne chez moi alors je te laisse tester.

Cordialement.