Discussion :

[Collosse]

Tout d'abord bonjour à tous,

Je suis sur la conception d'un tableau de gestion des congés qui a bien avancé.
Je débute en VBA et je rencontre un soucis.

Mon fichier : http://dl.free.fr/q96EIQAYK

Dans l'onglet "saisie" j'ai mis un bouton "Ajouter un congé" qui appel un UserForm.
Quand on clique dessus une fenêtre Userform s'ouvre avec 5 champs



Premier champ : une liste déroulante qui permet de sélectionner une des personnes nommer dans la colonne A de la feuille "Saisie" ici j'ai pu le faire.
Second champ : Une liste déroulante pour sélectionner le mois qui sont des feuilles.
Troisième champ : on entre la date de début de congé, exemple "2/01"
Quatrième champ : on entre la date de fin de congé, exemple "4/01"
Cinquième champ : on entre le code congés qui s'affichera dans les dates choisies dans les champs 3 et 4 soit du 02/01 au 04/01 exemple "RE"

Je ne sais pas si c'est évident car cela veut dire une fonction recherche (je ne sais pas si c'est possible) qui recherche la feuille via le mois puis le nom sélectionner qui défini donc la ligne puis il recherche les dates saisies pour définir les colonnes.
Une fois les les cases défini par la recherche trouver cela inscrit le code congés tapé dans le champ 5.

Merci pour votre aide.

[bboy-eazy]

voici un bout de code qui permet de rechercher des valeurs et récupérer les valeurs trouvées sur la ligne:

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
37
38
39
40
41
42
43
44
45
Public C As Range
Public n As Integer
 
Private Sub CommandButton1_Click()
 
Set C = Worksheets("nomdelafeuille").Range("A2:A20000").Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) ' Remplacer Range("A2:A20000") par là ou ca doit chercher et Find(TextBox1.Value) par le textbox ou combobox qui aura la valeur à chercher
 
    ' Si le nom est déjà dans le classeur:
 
    If Not C Is Nothing And Not IsEmpty(C) Then
        n = C.Row
    UserForm1.TextBox1.Value = Sheets("nomdetafeuille").Cells(n, "A").Value
    UserForm1.TextBox2.Value = Sheets("nomdetafeuille").Cells(n, "B").Value
    UserForm1.Combobox3.Value = Sheets("nomdetafeuille").Cells(n, "C").Value
 
            Else
        X = MsgBox("Pas de valeurs trouvées. Voulez vous entrer ces données dans la base de données? ", vbYesNo)
 
 If X = 6 Then ' si oui est cliqué, alors X=6 
Dim LigFin As Long
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("nomdetafeuille")
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode = True Then
    ActiveSheet.AutoFilterMode = False
    End If
 
LigFin = Sheets("nomdetafeuille").Cells(Rows.Count, 1).End(xlUp).Row
 
IntLigne = ActiveSheet.Cells(2, 1).End(xlUp).Row + 1
Dim Lg As String
 
Lg = Sheets("nomdetafeuille").Cells(65500, 1).End(xlUp).Row + 1
 
Sheets("nomdetafeuille").Cells(Lg, "A").Value = UserForm1.TextBox1.Value
Sheets("nomdetafeuille").Cells(Lg, "B").Value = UserForm1.TextBox2.Value
Sheets("nomdetafeuille").Cells(Lg, "C").Value = UserForm1.TextBox3.Value
        Else
        GoTo fin
        End If
 
End If
fin:
End Sub

[defluc]

Pour éviter les erreurs d'entrée de données, j'utiliserais des contrôles calendrier pour les dates de début et de fin de congé et un ComboBox pour les codes de congés rempli comme suit

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
Private Sub UserForm_Initialize()
  ComboBox1.RowSource = ("Noms")
  ComboBox2.AddItem "Janvier"
  ComboBox2.AddItem "Février"
  ComboBox2.AddItem "Mars"
  ComboBox2.AddItem "Avril"
  ComboBox2.AddItem "Mai"
  ComboBox2.AddItem "Juin"
  ComboBox2.AddItem "Juillet"
  ComboBox2.AddItem "Août"
  ComboBox2.AddItem "Septembre"
  ComboBox2.AddItem "Octobre"
  ComboBox2.AddItem "Novembre"
  ComboBox2.AddItem "Décembre"
  ComboBox3.AddItem "CP"
  ComboBox3.AddItem "PA"
  ComboBox3.AddItem "ED"
  ComboBox3.AddItem "SO"
  ComboBox3.AddItem "RE"
End Sub

[Collosse]

Merci pour les réponses mais cela ne fonctionne pas ainsi

[defluc]

Expliques-toi, ça doit fonctionner.

[Collosse]

Salut Defluc,

Pour le code de contrôle je l'ai mis et cela me donne une erreur d'exécution '424' objet requis, quand j'enclenche le bouton.

Et pour le code de bboy, la je ne comprend pas tout le code.

Set C = Worksheets("nomdelafeuille").Range("A2:A20000")

La recherche doit se faire sur toutes les feuilles et la c'est sur 1 seule feuille ? (il y a 12 feuilles)