Discussion :

[Bricoltou]

Bonsoir le Fil

J'ai encore besoin de vos connaissances car je voudrai automatiser une saisie.
Ce que je cherche à Faire :
Affichage de l'userform
En fonction du mois choisi , je selectionne l'onglet (ok je sais faire)
et je dois aller ecrire les valeur des combos sous la date corespondante .c'est la ou je bloque (fichier joint )
Les titulaires présent ont une valeur à 1 ou un motif, lorsque un motif est choisi j'aimerai que la cellules prenne une couleur
Pour les intérimaires , idem mais on saisi manuellement le temps de travail dans les texbox , pas d'évenement pour eux .

Merci d'avance pour votre aide

@+

Bricoltou

[jp014]

Bonjour

Ci joint le fichier avec les procédures demandées.

J'ai modifié le remplissage des combo 1 et 2 pour tenir compte du nombre de jour dans un mois ( sauf pour les années bisextiles).
J'ai modifié la numérotation des textbox pour simplifier le code.

A tester

Bon week end

JP014

[Bricoltou]

Bonjour JP014 , Le Forum

Merci JP014 pour ton trvail et ton aide , je suis débutant en VBA et a la vu du code je ne pense pas que j'aurai réussi a le faire seul .
Est il possible que les cellules qui recoivent un code motif au lieu de 1 prenne une couleur .

Merci encore pour ton aide
@+

Bricoltou

Bonjour

Ci joint le fichier avec les procédures demandées.

J'ai modifié le remplissage des combo 1 et 2 pour tenir compte du nombre de jour dans un mois ( sauf pour les années bisextiles).
J'ai modifié la numérotation des textbox pour simplifier le code.

A tester

Bon week end

JP014

[jp014]

Bonsoir

Ci dessous le codeà rajouter pour des couleurs, à compléter.

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
Private Sub CommandButton1_Click()
Dim couleur As Long

......................................

For i = 3 To 12
With Me.Controls("ComboBox" & i)
    If .ListIndex > -1 And Me.Controls("ComboBox" & 10 + i).ListIndex > -1 Then
        lig = recherchemot("b9:b21", .Value, Me.ComboBox1.Value, 1)
        If lig > 0 Then
               Sheets(Me.ComboBox1.Value).Range(col & lig) = Me.Controls("ComboBox" & 10 + i).Value
            couleur = 2
            Select Case Me.Controls("ComboBox" & 10 + i).Value
                Case "RTT" '43
                    couleur = 43
                Case "CP" '35
                    couleur = 35
                Case "HAB"
                    couleur = 44
            End Select
            Sheets(Me.ComboBox1.Value).Range(col & lig).Interior.ColorIndex = couleur
        Else
 ....................

JP014

[Bricoltou]

Bonjour le Fil ,jp014

jp014 , meric pour ton aide et ta patience .

J'ai adopté ton code a mon projet , il bloque et ne reporte pas la totalité des Texbox intérimaires .

J'ai cherché ou j'avais put faire une erreur sur l'adaptation mais je ne trouve pas .

Si quelqu'un a une idée .

Bricoltou

[jp014]

Bonjour

Il faut renommer les textbox.
Le numéro du textbox doit être identique au numéro du combobox associé.
Ci dessous un exemple de code pour afficher un message lorsque on sélectionne une journée déjà remplie.

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
27
28
29
30
31
32
33
34
35
36
 
'affectation des valeurs pour titulaires
For i = 3 To 14
With Me.Controls("ComboBox" & i)
    If .ListIndex > -1 And Me.Controls("ComboBox" & 12 + i).ListIndex > -1 Then
        lig = recherchemot("b9:b19", .Value, Me.ComboBox1.Value, 1)
        If lig > 0 Then
            If Sheets(Me.ComboBox1.Value).Range(col & lig) <> "" Then
                Select Case MsgBox("Mois    : " & Me.ComboBox1.Value _
                                   & vbCrLf & "Jour   : " & Me.ComboBox2.Value _
                                   & vbCrLf & "Nom    : " & .Value _
                                   & vbCrLf & "valeur : " & Sheets(Me.ComboBox1.Value).Range(col & lig) _
                                   & vbCrLf & "Vous avez déja inscrit une valeur, voulez vous la modifier" _
                                   & vbCrLf & "" _
                                   , vbYesNo Or vbExclamation Or vbDefaultButton1, Application.Name)
 
                    Case vbYes
                        Sheets(Me.ComboBox1.Value).Range(col & lig) = Me.Controls("ComboBox" & 12 + i).Value
                    Case vbNo
 
                End Select
            Else
                Sheets(Me.ComboBox1.Value).Range(col & lig) = Me.Controls("ComboBox" & 12 + i).Value
            End If
 
 
        Else
            Call MsgBox("Nom :" & .Value _
                        & vbCrLf & "" _
                        & vbCrLf & "n'existe pas dans la feuille " & Me.ComboBox1.Value _
                        , vbInformation Or vbDefaultButton1, Application.Name)
 
        End If
    End If
End With
Next i

JP014

[Bricoltou]

Bonjour le Fil , jp014

jp014 , merci pour ton aide ,mon code fonctionne parfaitement grace à toi et j'ai rajouté la modification que tu m'a proposé .

@+
Bricoltou