(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 :