(VBA) Combobox & Couleur [RÉSOLU]

[mickno]

Bonjour,

J'ai une petite question 🙂
J'ai deux Combobox (ComboPoste et ComboEmploye) dans un Userform (Userform) dans la feuille CETI.
Je voudrais que lorsque je sélectione un Employé et un poste, qu'in inscrive un 1 en jaune a la case approprié et qui colore la cellule en noir

(Voir le fichier Excel en attachement)

Merci d'avance 🙂

 

[Robert]

Re : (VBA) Combobox & Couleur

Bonjour Mickno, bonjour le forum,

En pièce jointe ton fichier modifié avec le code ci-dessous :

Private O As Object

Private Sub Userform_initialize()
Set O = Sheets("CETI")
Me.ComboPoste.Column = O.Range("C3:AF3").Value
Me.ComboEmploye.List = O.Range("B6:B" & O.Cells(Application.Rows.Count, 2).End(xlUp).Row).Value
End Sub

Private Sub CmdValider_Click()
With O.Cells(Me.ComboPoste.ListIndex + 6, Me.ComboEmploye.ListIndex + 3)
    .Interior.ColorIndex = 1
    .Font.ColorIndex = 6
    .Value = 1
End With
uload Me
End Sub

Le fichier :

 

[mickno]

Re : (VBA) Combobox & Couleur

Merci de la réponse rapide! 🙂

Tout fonctionne sauf quand je rajoute un Employée, la case ne se couleur pas en n'inscrit pas de 1..

 

[pierrejean]

Re : (VBA) Combobox & Couleur

Bonjour mickno

A tester:

Private Sub CmdValider_Click()
ligne = Me.ComboEmploye.ListIndex + 6
colonne = Me.ComboPoste.ListIndex + 3
Cells(ligne, colonne).Value = 1
Cells(ligne, colonne).Interior.Color = RGB(0, 0, 0)
Cells(ligne, colonne).Font.Color = RGB(255, 255, 0)
End Sub

Edit: Arf !! a la bourre moi Salut Robert

 

[mickno]

Re : (VBA) Combobox & Couleur

Bonjour pierrejean

J'ai une erreur, Lorsque je r'ajoute un employée, je lui attribut un CETI et au lieu d'inscrire 1 il inscrit la date 1/1/1900 ...

 

[mickno]

Re : (VBA) Combobox & Couleur

J'ai règler le probleme merci beaucoup 🙂

 

[Robert]

Re : (VBA) Combobox & Couleur

Bonjour le fil, bonjour le forum,

Désolé j'avais tout inversé... La version 2 :