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

[thunder23]

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

 

[fanfan38]

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

 

[thunder23]

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

 

[fanfan38]

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

 

[thunder23]

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

Ben je pensais aux case à cocher mais je me suis dit que ça ne serait pas top ben en fait si. En tout cas merci pour ce coup de main

 

[thunder23]

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+

 

[fanfan38]

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...

 

[thunder23]

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...

Bonjour,

Elle sert pour un autre UserForm en tout cas merci pour ton retour

A+

 

[thunder23]

Bonjour fanfan38, Bonjour le forum,

Est-ce tu serais comment colorier les textbox avec ton code si celle-ci n'est pas vide et en fonction des tâches(par contre il y aurait une couleur différente pour chaque tâches)?

Merci d'avance

 

[fanfan38]

Bonjour
Il suffit que tu me donnes les taches et leur couleur respective
A+ François

 

[thunder23]

Bonjour,

Voici les tâches et les codes couleurs.

a+
Michel

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[thunder23]

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

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

 

[fanfan38]

Bonjour
En espérant ne plus avoir fait d'erreur, ni d'oubli... lol

A+ François

 

[thunder23]

Bonjour fanfan38,

C'est bon rien n'a été oublié lol

Encore merci
A+