Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Seclectionner toute la ligne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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:
Re : Seclectionner toute la ligne


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

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.
 
Re : Seclectionner toute la ligne

 

Pièces jointes

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
19
Affichages
618
Réponses
2
Affichages
112
Réponses
5
Affichages
265
Réponses
12
Affichages
281
  • Question Question
Microsoft 365 Excel graphique
Réponses
3
Affichages
292
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…