Discussion :

[sharox]

Bonjour a tous le forum

Donc je viens vous voir pas forcement pour un problème de code,
Mais pour un problème de réflexion ^^

Donc j'ai une feuille Excel avec des cellules et des ComboBox,
J’ai restreint le choix de l'utilisateur en verrouillant des cellules et en protégeant la feuille.
Donc quand l'utilisateur appuie sur "Tab" cela passe de cellule en cellule tout va bien.

Malheureusement le fichier de base est "moche", c'est bête à dire mais c'est vrai.
Du coup quand on est sur une cellule on ne voit pas bien sur la quel on est, ce n’est pas instinctifs quoi

Et je voudrais une solution pour que par exemple quand je sois sur une cellule ou une combobox, elle soit en surbrillance ou un truc du genre
Et que quand je change de sélection ce reprenne la couleur d'origine, et ça soit la nouvelle sélection qui soit en surbrillance.

Mais je ne vois pas du tout comment faire cela, et bien sur je ne voudrais pas utiliser de WaitTime (pour pas bloquer l'utilisateur)

Merci de m'aider
Et je vous souhaite une très bonne soirée

[Docmarti]

Bonjour.

Voici un exemple simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Private Sub ComboBox1_Click()
 
 ligne = ComboBox1.List(ComboBox1.ListIndex, 1)
 
 Set f = Worksheets("Feuil1")
 f.Columns("A").Interior.Color = xlNone
 f.Cells(ligne, "A").Interior.Color = RGB(0, 255, 255)
 f.Activate
 Application.EnableEvents = False
 f.Cells(ligne, "A").Select
 Application.EnableEvents = True
End Sub
 
Private Sub UserForm_Initialize()
 
Set f = Worksheets("Feuil1")
 
dern = Cells(Rows.Count, "A").End(xlUp).Row
 
For i = 2 To dern
 ComboBox1.AddItem f.Cells(i, "A")
 ComboBox1.List(ComboBox1.ListCount - 1, 1) = i ' Mettre la ligne dans la colonne 2 du Combobox
Next
End Sub

[Theze]

Bonjour,

Pour mettre en évidence la cellule sélectionnée. A mettre dans la module de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim Cel As Range
Dim CoulFond As Integer
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Cel Is Nothing Then Cel.Interior.ColorIndex = CoulFond
 
    Set Cel = Target
 
    CoulFond = Target.Interior.ColorIndex
 
    Target.Interior.ColorIndex = 3 'couleur rouge
 
End Sub

[sharox]

Bonjour à tous !

Merci pour vos codes !

celui de "Theze" est très simple d'utilisation

Par contre celui de "Docmarti"
j'ai tester mais je ne comprend pas très bien ce que tu veux faire avec.
je ne pense pas que ce soit exactement ce que j'attendais

Mais encore merci à vous deux pour vos réponses !