XL 2013 Seclectionner toute la ligne

alexis19981998

XLDnaute Nouveau
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 )
 

Pièces jointes

  • 111 (3).xlsm
    147.8 KB · Affichages: 29
  • 111 (3).xlsm
    147.8 KB · Affichages: 33

Papou-net

XLDnaute Barbatruc
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.
 
Dernière édition:

alexis19981998

XLDnaute Nouveau
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.

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

Pièces jointes

  • 111 (3).xlsm
    149.7 KB · Affichages: 34
  • 111 (3).xlsm
    149.7 KB · Affichages: 30

Papou-net

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Pièces jointes

  • 111 (3).xlsm
    150.6 KB · Affichages: 23
  • 111 (3).xlsm
    150.6 KB · Affichages: 28

Papou-net

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Copie de 111 (3)-2.xlsm
    148.2 KB · Affichages: 36
Haut Bas