Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Remplir une ou plusieurs textbox en fonction de deux conditions

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion thunder23
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

thunder23

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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
 

Pièces jointes

  • thunder23-2.gif
    785.5 KB · Affichages: 24
Vote positif 0 Vote négatif
Re
une question
Tu as dans le code du bouton "CommandButton_valider" "Mise à jour"
VB: 
   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
 
Vote positif 0 Vote négatif
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:
VB: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

  • planning.PNG
    104.3 KB · Affichages: 17
Vote positif 0 Vote négatif
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 ?
 
Vote positif 0 Vote négatif
ChTi160 à dit:
Re
Merci !
Peux-tu m'expliquer ce que tu veux dire par :

Jean marie
Cliquez pour agrandir...
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).
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2021 Calculer le prorata d'un objectif en fonction de l'arrivée ou du départ du salarié
Réponses
4
Affichages
276
job75
  • Résolu(e)
XL 2021 Colorer le mois en cours et le TextBox correspondant
Réponses
7
Affichages
450
AIXELS
N
  • Question Question
Microsoft 365 excel sommes si ens en ligne ou somme prod.
Réponses
4
Affichages
524
nicolulu
N
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
349
Sylvia57
S
P
  • Question Question
Microsoft 365 Aide pour création fiche de paie en fonction de mon planning
Réponses
2
Affichages
392
Po-p0/59
P
V
  • Question Question
XL 2021 avoir des données dans plusieurs onglets en fonction de plusieurs conditions
Réponses
5
Affichages
657
mapomme
Z
  • Résolu(e)
Microsoft 365 Scinder une ligne en fonction de plusieurs critères
Réponses
10
Affichages
449
Zaadox
Z
E
  • Question Question
Moyenne flottante en fonction de conditions
Réponses
1
Affichages
362
gbinforme
G
  • Résolu(e)
XL 2010 Propriété MaxLength d'une TextBox pour saisie n° de téléphone
2
Réponses
23
Affichages
2 K
Eric C
A
  • Question Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
738
Dranreb
B
  • Question Question
Microsoft 365 remplir automatiquement une quantité de case en fonction d'un chiffre
Réponses
4
Affichages
754
binouse
B
  • Question Question
XL 2016 Mise en forme de graphiques
Réponses
11
Affichages
528
Phillip
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
841
Nel'
N
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
609
djidji59430
S
  • Question Question
XL 2010 Saisir un nom en fonction du choix de deux menu déroulant.
Réponses
4
Affichages
485
Sirberthoult
S
K
  • Résolu(e)
XL 2019 tableau de bord
2 3 4
Réponses
50
Affichages
4 K
kayumanis
K
B
  • Question Question
XL 2016 Formule avec plusieurs conditions pour planning heures annuelles
Réponses
5
Affichages
661
fanfan38
C
  • Question Question
XL 2019 Attribuer un % en fonction de la place d'un ingrédient dans la compo de la formule
Réponses
7
Affichages
545
TooFatBoy
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
564
Phil69970
A
  • Question Question
XL pour MAC Peut on mettre plusieurs données de différentes lignes sur une seule ?
Réponses
5
Affichages
1 K
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…