XL 2019 Remplir et modifier un tableau à partir d'un userform

thunder23

XLDnaute Occasionnel
Bonjour le forum,
J'ai créer un fichier de pointage pour divers tâches à faire dans la semaine avec une saisie en hh:mm. J'ai fais une base de données à remplir et une feuille pour visualiser mes heures hebdomadaire sauf que je souhaiterais ajouter, modifier ou supprimer ses valeurs dans la base données par un userform et je n'ai jamais utiliser ce système.
J'ai mis un fichier en pièce jointe afin de mieux comprendre mon soucis.

Merci d'avance pour vos retours :)
 

Pièces jointes

  • testusf.xlsm
    74.9 KB · Affichages: 16

thunder23

XLDnaute Occasionnel
Bonjour
ci joint ma solution (un début)
Pourquoi as-tu mis des combobox pour les congés ?
Attention! j'ai changé l'ordre des combobox

A+ François
Bonjour fanfan38, Bonjour le forum,

Effectivement pour un "début" c'est déjà très bien. Pour les combobox sur les congés je ne voulais pas avoir à noter CP dans une textbox, je voulais faire une pseudo liste où j'aurais mis juste CP ou rien. Je pensais au bouton bascule mais je ne l'ai jamais utilisé.

A+
Michel
 

thunder23

XLDnaute Occasionnel
Question pratique j'ai déplacé les heures à récupérer.
Ce ne sont pas les combobox mais les textbox que j'ai modifié (en hauteur au lieu d'en ligne)

A+ François
Re,

J'ai un petit bug, où modifies-tu pour informer les colonnes dans le combobox change car j'ai ajouté avant ta réponse une colonne avant les semaines et ça me décale le contenu de celle-ci ?

Merci
A+
 

Pièces jointes

  • Cbx.PNG
    Cbx.PNG
    6.9 KB · Affichages: 19

fanfan38

XLDnaute Barbatruc
Bonjour
Je ne vois pas à quoi elle sert la colonne que tu as rajouté : c'est la même que 2 colonnes plus loin?
Ci joint le fichier modifié

A+ François
Ps par contre je n'ai pas apprécié que tu mettes ta réponse en solution...
 

Pièces jointes

  • testusf.xlsm
    78.9 KB · Affichages: 10

thunder23

XLDnaute Occasionnel
Bonsoir fanfan38,

Merci pour ton retour sauf que le soucis est que je ne peux plus saisir d'heures. J'ai fais pour les CheckBox le système que je souhaite qui fonctionne et j'ai essayé pour une ligne de TextBox mais sans l'effet escompté.

A+
Michel

VB:
Dim Ch As Integer 'Boucle pour les Checkbox
    For Ch = 1 To 7
        If Me("CheckBox" & Ch).Value = True Then
          Me("CheckBox" & Ch).BackColor = RGB(255, 230, 153) 'Colore la CheckBox si celle-ci est sélectionnée
        Else
          Me("CheckBox" & Ch).BackColor = &HC0C000
     End If
    Next Ch
    Dim Tx1 As Integer 'Test de Boucle pour la première ligne de TextBox
    For Tx1 = 1 To 1
        If Me("TextBox" & Tx1 + 20).Value > 0 Then
          Me.Controls("TextBox" & Tx1 + 20).BackColor = RGB(255, 180, 100)
        Else
          Me("TextBox" & Tx1).BackColor = &HC0C000
     End If
    Next Tx1
 

Discussions similaires

Statistiques des forums

Discussions
311 707
Messages
2 081 734
Membres
101 809
dernier inscrit
HADER2024