Remplir une ou plusieurs textbox en fonction de deux conditions

[thunder23]

bonsoir le forum,

Je viens vers vous car j'ai un petit soucis. J'ai fais mon planning de travail sous Excel où je renseigne toutes mes heures. Dans l'année je dois faire des jours supplémentaire (appelé remonte) que j'ajoute en début d'année dès que j'ai les dates exacte. J'ai déjà créer un UserForm avec le nombre maximal que je peux avoir sauf que je voudrais, qu'en fonction de la date que je saisie dans une textbox, ça me rajoute les initiales REM dans une colonne prévu à cette effet de plus j'aimerais pouvoir modifier ou supprimer si j'ai fais une erreur.

J'ai mis un fichier en pièce jointe pour l'exemple

Merci d'avance

 

[ChTi160]

Re
Ce que j'ai modifié, puisque tu n'as que "REM" à mettre dans la Colonne "Tableau bdh"
Je n'ai conservé que les Listes "ComboBox" de cette Colonne.
je verrai demain pour le transfert des Données dans la Base de Données.
Jean marie

 

[ChTi160]

Re
une question
Tu as dans le code du bouton "CommandButton_valider" "Mise à jour"

   Set WS1 = ThisWorkbook.Worksheets("Base")
    Set Plage1 = WS1.Range("a4:a369")
    For Each Cell1 In Plage1
        If Cell1.Offset(0, 2) = "REM" Then
           Cell1.Offset(0, 2) = ""
        End If
    Next Cell1

Pourquoi effaces-tu toutes les cellules qui contiennent "REM" ?
Quel est la raison , le But, le Pourquoi ? Lol
Jean marie

 

[thunder23]

Bonjour Chti160,

alors c'est une très bonne question car le code ne vient pas de moi toutefois celui que tu as j'avais essayé de le comprendre pour l'adapter à mon nouveau projet... Voici l'original au complet:

Private Sub CommandButton_valider_Click()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim Plage1 As Range, Cell1 As Range
Dim Plage2 As Range, Cell2 As Range
Dim CTRL As Control
Dim X As Byte
    Set WS1 = ThisWorkbook.Worksheets("BDD")
    Set Plage1 = WS1.Range("A5:A370")
    Set WS2 = ThisWorkbook.Worksheets("BDD")
    Set Plage2 = WS2.Range("A506:A871")
        For Each Cell1 In Plage1
        If Cell1.Offset(0, 1) = "REM" Then
        Cell1.Offset(0, 1) = ""
        End If
    Next Cell1
        For Each Cell2 In Plage2
        If Cell2.Offset(0, 2) = "REM" Then
        Cell2.Offset(0, 2) = ""
        End If
    Next Cell2
        For Each CTRL In Me.Controls
        If Left(CTRL.Name, 7) = "TextBox" Then
        If Right(CTRL.Name, 1) = X Then
        If CTRL <> "" Then
        If IsDate(CTRL) = True Then
            For Each Cell1 In Plage1
            If CDate(Cell1.Value) = CDate(CTRL) Then
            Cell1.Offset(0, 1) = "REM"
        End If
    Next Cell1
        'second passage pour feuille "Poste" (écriture en colonne "C")
        For Each Cell2 In Plage2
        If CDate(Cell2.Value) = CDate(CTRL) Then
        Cell2.Offset(0, 2) = "REM"
        End If
    Next Cell2
    End If
    End If
    X = X + 1
    End If
    End If
    Next CTRL
    MAJ_USF
    'Unload UserForm_remonte
    'Unload UserForm_aperçu
    'UserForm_aperçu.Show
End Sub

 

[ChTi160]

Bonjour
,
Pour résumer ce que j'ai compris ! Lol
A partir du userform , tu veux modifier la Colonne "Tableau bdh"
C'est ca ?
c'est la seule ?
Dis moi ce que tu veux , Explications , Exemples
Ca aide Lol
Jean marie

 

[thunder23]

Bonjour ChTi160,

C'est tout à fait exact et c'est la seule. Je t'ai mis un lien en exemple en vidéo pour te montrer, plus simple à comprendre que de l'expliquer en écrit lol.

Recordit: Record screencasts fast & free! with GIF Support!

recordit.co

Michel

 

[ChTi160]

Bonsoir Michel
Ok
J'ai compris ! Lol
Jean marie

 

[thunder23]

Bonsoir ChTi160,

Désolé de ne pas avoir donnée signe de vie depuis un petit moment car un peu l'agenda chargé. Je venais aux nouvelles pour savoir si tu avais pu trouver une solution par rapport à l'userform?

Michel

 

[ChTi160]

Bonsoir Michel
Moi j'ai un peu oublié le sujet Lol
Voir où j'en étais !
Bonne fin de Soirée
Jean marie

 

[thunder23]

Bonsoir ChTi160,

Alors je te rassure j'ai un peu lâché le fil aussi Lol
Je viens de regarder ton fichier, je le trouve géniale pour un un projet futur

Pour ce sujet, est-il possible que tu puisses faire apparaître toute l'année et pouvoir juste mettre REM avec une combobox ?

Je t'ai mis un exemple que j'ai dans mon planning perso pour te donner un ordre d'idée

Bonne soirée
Michel

 

[ChTi160]

Bonsoir Michel
Tu voudrais un truc du même genre , mais avec des Combobox à la place des TextBox ?
Ça fait beaucoup de Controls ! Lol
Bonne fin de Soirée
Jean marie
Edit : cette image représente un Userform ?

 

[thunder23]

Bonsoir ChTi160,
Oui tout à fait, alors oui ça en fait beaucoup lol
Je te confirme que c'est un Useform, tu voudrais que je te l'envoi ?

Bonne fin de soirée
Michel

 

[ChTi160]

Re
Si possible !
Jean marie

 

[thunder23]

Re,

Le voilà sur ton fichier par contre je n'arrive pas l'adapté à la colonne D
Michel

 

[ChTi160]

Re
Merci !
Peux-tu m'expliquer ce que tu veux dire par :

sur ton fichier par contre je n'arrive pas l'adapté à la colonne D

Jean marie

 

[thunder23]

Re
Merci !
Peux-tu m'expliquer ce que tu veux dire par :

Jean marie

Re,

En principe L'Userform va chercher les information dans le tableau. En principe j'ai juste à modifier l'emplacement de la colonne mais là ça ne fonctionne pas et je ne comprends pas pourquoi car à l'origine la colonne date et la colonne où il y a les valeurs, elles sont l'une à côté de l'autre (Colonnes A et B).