Selectionner une cellule

[maval]

Bonjour,

Suite au code qui a était réaliser par JCGL que je remercie au passage, j'aimerai lui apporter une modification;
Lorsque je click sur le nom dans la listbox je me rendre directement sur la cellule concerner, j'aimerai que la cellule soit colorer de rouge.

Je joint mon fichier exemple

Je vous remercie d'avance

Cordialement

Max

 

[Amilo]

Re : Selectionner une cellule

Bonjour Naval, le forum,

Peut-être en remplaçant le chiffre 2 en rouge par 8 dans la ligne de code ci-dessous :

Sheets("Feuil1").Cells(List_Race.ListIndex + 8, 2).Interior.ColorIndex = 3

Cordialement

 

[JCGL]

Re : Selectionner une cellule

Bonjour à tous,

Peux-tu essayer ceci :

Private Sub List_Race_Click()
Dim Cel As Range, Choix
Choix = List_Race.Value
[Plage].Interior.ColorIndex = 0
For Each Cel In [Plage]
        If Cel = Choix Then
        Cel.Select
        Cel.Interior.ColorIndex = 3
        End If
    Next Cel
    Unload UserForm1
End Sub

A+ à tous

 

[Robert]

Re : Selectionner une cellule

Bonjour le fil, bonjour le forum,

Si tu dois juste remplir de rouge, supprime le cel.Select du code de JCGL...

 

[maval]

Re : Selectionner une cellule

Re JC, Robert

Nickel JC

Merci beaucoup

@+Max

 

[Amilo]

Re : Selectionner une cellule

Compte tenu de mon faible niveau en VBA,

je ne sais pas si la solution que j'ai proposée (et j'avoue un peu trouvée à tâtons) déjà toute faite par JCGL, est à déconseiller ou non.

mais je salue au passage JCGL et Robert, qui m'ont à maintes reprises dépanné sur des sujets complexes

cordialement