Selectionner une cellule

A

Amilo

XLDnaute Accro

• 11 Août 2013

• #2

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

Cliquez pour agrandir...

Cordialement

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Août 2013

• #3

Re : Selectionner une cellule

Bonjour à tous,

Peux-tu essayer ceci :

VB:

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

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Août 2013

• #4

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 11 Août 2013

• #5

Re : Selectionner une cellule

Re JC, Robert

Nickel JC

Merci beaucoup

@+Max

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 11 Août 2013

• #6

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

 

Dernière édition: 11 Août 2013

Vote positif 0 Vote négatif