XL 2013 Seclectionner toute la ligne

alexis19981998 · 30 Octobre 2015

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 · 30 Octobre 2015

Re : Seclectionner toute la ligne

Bonjour Alexis,

Essaie en modifiant tes lignes comme suit:

Code:

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

...

Cordialement.

alexis19981998 · 30 Octobre 2015

Re : Seclectionner toute la ligne

Papou-net à dit:
Bonjour Alexis,

Essaie en modifiant tes lignes comme suit:

Code:

... 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 · 30 Octobre 2015

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 · 30 Octobre 2015

Re : Seclectionner toute la ligne

Papou-net à dit:
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 · 30 Octobre 2015

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é:

Code:

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.

XL 2013 Seclectionner toute la ligne

alexis19981998

XLDnaute Nouveau

Pièces jointes

Papou-net

XLDnaute Barbatruc

alexis19981998

XLDnaute Nouveau

Pièces jointes

Papou-net

XLDnaute Barbatruc

alexis19981998

XLDnaute Nouveau

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

Discussions similaires