[Toutes versions] cellule ciblé par userform

cellule ciblé par userform

Bonjour à tous !

Je viens solliciter votre aide car je vous avoue je tourne un peu en rond :roll:....

Voici mon problème :

J'ai créé un userform avec 2 listes modifiables, une zone de texte et un bouton

je souhaiterais avec cet userform pouvoir cibler une cellule par le biais de 2 listes (liste 1 = lignes 11 à 33 - Liste 2 colonne F à AJ) et y insérer un champs (donné dans la zone de texte) et la valider (remplir) avec le bouton.

Pour être plus clair dans mon tableur je fais référence à une liste de personnes et souhaite faire un pointage par jour en y indiquant le nombre d'heure travaillé...

Merci d'avance à ceux qui pourront me mettre sur la bonne voie.

Bonjour, voilà ce que j'ai compris et comment je fais.
J'ai créé une feuille test avec des noms de A11 jusque A33.
J'ai mis les dates du mois de F1 à AJ1.
J'affecte ces 2 listes de valeurs aux 2 combobox via l'évènement initialize du userform.
Quand je fais un choix dans les 2 combobox et que j'encode une valeur dans le textbox, le bouton de validation écrit ce contenu à la ligne et colonne correspondantes.

Code:

1
2
3
4
5
Private Sub UserForm_Initialize()
    ' Code d'initialisation, à adapter selon tes besoins
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(Sheets("Feuil1").Range("A11:A33").Value)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(Sheets("Feuil1").Range("F1:AJ1").Value)
End Sub

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
37
38
Private Sub CommandButton1_Click()
    ' Code exécuté lorsqu'on clique sur le bouton Valider
 
    ' Vérifier si une personne et une date sont sélectionnées
    If ComboBox1.ListIndex = -1 Or ComboBox2.ListIndex = -1 Then
        MsgBox "Sélectionnez une personne et une date avant de valider.", vbExclamation
        Exit Sub
    End If
 
    ' Récupérer les indices sélectionnés dans les listes
    Dim rowIndex As Long
    Dim columnIndex As Long
 
    rowIndex = ComboBox1.ListIndex + 11 ' Ajouter l'offset de la première ligne
    columnIndex = ComboBox2.ListIndex + 6 ' Ajouter l'offset de la première colonne (F)
 
    ' Récupérer le nombre d'heures depuis la zone de texte
    Dim heuresTravaillees As Double
    On Error Resume Next ' Gestion des erreurs si la conversion échoue
    heuresTravaillees = CDbl(TextBox1.Value)
    On Error GoTo 0 ' Rétablir la gestion des erreurs par défaut
 
    If heuresTravaillees = 0 Then
        MsgBox "Entrez un nombre valide d'heures travaillées.", vbExclamation
        Exit Sub
    End If
 
    ' Insérer le nombre d'heures dans la cellule correspondante
    With Sheets("Feuil1") ' Remplace par le nom de ta feuille
        .Cells(rowIndex, columnIndex).Value = heuresTravaillees
    End With
 
    ' Effacer les sélections et le contenu de la zone de texte
    ComboBox1.ListIndex = -1
    ComboBox2.ListIndex = -1
    TextBox1.Value = ""
 
End Sub

Bonjour Franc et un grand merci à toi !! :applo:

J'ai intégré le code sur mon fichier mais j'ai un code erreur 70, j'ai fait le test sur un fichier vierge et cela fonctionne à merveille et tu as tout a fait compris ma demande !
Je vais rebalayer mon fichier pour trouver l'erreur (débogage)