Selectionner une cellule et mettre un fond rouge

[maval]

Bonjour,

J'ai un Userform avec une combobox et j'ai un code qui permet de sélectionner une cellule avec ma combobox

If CBBEquipes.ListIndex <> -1 Then Cells(CBBEquipes.ListIndex + 4, 1).Select

J'aimerai si possible que lors de la sélection la cellule prenne la couleur rouge

D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[Paritec]

Re : Selectionner une cellule et mettre un fond rouge

Bonjour Maval le forum
sans le fichier on ne peut pas t'aider, ta combobox elle contient combien de colonnes? les ref de la cellule sont ou??
donc on peut rien sans fichier
a+
papou😱

If CBBEquipes.ListIndex <> -1 Then 
Cells(CBBEquipes.ListIndex + 4, 1).Select
Cells(CBBEquipes.ListIndex + 4, 1).Interior.colorindex=3
end if

 

[Pierrot93]

Re : Selectionner une cellule et mettre un fond rouge

Bonjour Maval, Papou🙂,

remplace le ".select" par :

.Interior.ColorIndex = 3

A noter que les "select" sont rarement utiles en vba...

bonne journée
@+

 

[maval]

Re : Selectionner une cellule et mettre un fond rouge

Bonjour Papou, Pierrot,

Merci de vos réponses j'ai mis le code de Pierrot qui fonctionne, seul souci est la cellule sélectionner reste toujours rouge mais comme je ne l'avais formulais?

Bonne journée
@+

 

[laetitia90]

Re : Selectionner une cellule et mettre un fond rouge

bonjour maval ,pierrot🙂,papou🙂
si tu nous dit pas comment tu remplis ta combo trop complexe oblige de passer par variable public ou evenementielle

un exemple simple

Private Sub userform_initialize()
  t = Range("a4:a" & Cells(Rows.Count, 1).End(xlUp).Row): ComboBox1.List = t
End Sub
Private Sub ComboBox1_Click()
Range("a4:a" & Cells(Rows.Count, 1).End(xlUp).Row).Interior.ColorIndex = xlNone
 Cells(ComboBox1.ListIndex + 4, 1).Interior.ColorIndex = 3
End Sub

a mediter..... moi plus le temps de rester

 

[maval]

Re : Selectionner une cellule et mettre un fond rouge

Re,

Je recherche le moyen suite au code de pierrot Le problème est que le fond reste rouge alors qu'il faudrait une fois que la combobox soit non active que la cellule redevienne a sa couleur d'origine.
D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[maval]

Re : Selectionner une cellule et mettre un fond rouge

Bonjour Lætitia,

Merci d'avoir intervenue. Ma combobox nommé "CBBEquipes" est rempli comme ceci:

Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer

  Set Ws = Sheets("Données")

  With Me.ComboBox1
    .AddItem "1er Partie"
    .AddItem "2éme Partie"
    .AddItem "3éme Partie"
    .AddItem "4éme Partie"
  End With
  
  For J = 4 To Ws.Range("A" & Rows.Count).End(xlUp).Row
    Me.CBBEquipes.AddItem Ws.Range("A" & J)    ' Les équipes
    Me.CBBJoueurs.AddItem Ws.Range("B" & J)    ' Les joueurs
  Next J
  
  For I = 1 To 4
    Me.Controls("TextBox" & I).Visible = False
  Next I
    
  Me.TextBox2.Locked = True     ' Points Belote
  Me.TextBox4.Locked = True     ' Points Capot
  Me.TextBox5.Locked = True     ' Points Belote + Points Capot
  
   IniLabelID
 

End Sub

Private Sub CBBEquipes_Change()
' Les équipes
  If Me.CBBEquipes.ListIndex = -1 Then Exit Sub
  Me.CBBJoueurs.ListIndex = Me.CBBEquipes.ListIndex

  
  ' selection de la cellule lors du changement de valeur dans le combobox nommé "CBBEquipes":
  
 If CBBEquipes.ListIndex <> -1 Then
Cells(CBBEquipes.ListIndex + 4, 1).Select

End Sub

J’espère que se code pourra aider?

@+

Max

 

[Paritec]

Re : Selectionner une cellule et mettre un fond rouge

Re Maval le forum,
moi je peux t'aider mais comme de toutes façon tu ne lis jamais mes réponses
car dans ma réponse de ce matin 6h54 tu avais bien .interior.colorindex = 3 et pourtant tu as pris la solution de Pierrot , .interior.colorindex = 3
Alors comme à mon avis tu ne sais pas bien interpréter je n'insisterai pas
Maintenant pour le select tout dépend si tu veux aller sur la feuille et écrire dedans ou non mais là encore tes demandes sont toujours d'un flou donc dans le doute j'avais mis les deux possibilités!!!!!
Maintenant pour le remplissage de tes combobox, il y a plus simple et beaucoup plus rapide mais sans fichier
a+
Papou😱

EDIT: Bonjour Laetitia petites Couettes comment vas-tu? Bonne et Heureuse Année 2013, toujours un grand plaisir de te croiser