problème report des valeurs selon date

Version imprimable

05/12/2009, 10h40
Bricoltou

1 pièce(s) jointe(s)

problème report des valeurs selon date

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):mrgreen:
et je dois aller ecrire les valeur des combos sous la date corespondante .c'est la ou je bloque (fichier joint ):oops:
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 :ccool:

@+

Bricoltou
05/12/2009, 14h55
jp014

1 pièce(s) jointe(s)

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
05/12/2009, 15h42
Bricoltou

1 pièce(s) jointe(s)

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

Citation:

Envoyé par 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

Bonsoir

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

Code:

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

06/12/2009, 12h52
Bricoltou

1 pièce(s) jointe(s)

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

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:

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

06/12/2009, 13h52
Bricoltou

Bonjour le Fil , jp014

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

@+
Bricoltou