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

Fond textbox si date du jour

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dgeo27
  • 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
D

dgeo27

XLDnaute Junior
Bonjour,

J'ai un code vba qui m'affiche les date du jours du mois en cours
Partant de la Textbox 1 à la Textbox 31

Mais j'aimerais que la date du jours réel soit elle avec le fond de la Textbox en rouge.

J'ai essayer plusieurs choses mais rien ne fonctionne :/

Merci à vous


Voici le code actuel :
VB: 
'Boucle de textbox1 à 31 pour afficher les dates du mois
     madate = WorksheetFunction.EoMonth(Date, -1)     'dernier jour du mois précédent
     For i = 1 To 31
          d = madate + i
          If Month(d) = Month(madate + 1) Then
               With Controls("TextBox" & i)
               .Value = Format(d, "dddd dd-mm-yy")
              
               End With
          Else
               Controls("TextBox" & i).BackColor = RGB(0, 0, 0)
          End If
          
     Next i

     Exit Sub 'fin de cette macro
 
Trier par date Trier par votes
Bonsoir
Comme ceci cela devrait être plus conforme :
VB: 
'Boucle de textbox1 à 31 pour afficher les dates du mois
     madate = WorksheetFunction.EoMonth(Date, -1)     'dernier jour du mois précédent
     For i = 1 To 31
          d = madate + i
          If Day(Date) <> i Then
               With Controls("TextBox" & i)
               .Value = Format(d, "dddd dd-mm-yy")
             
               End With
          Else
               Controls("TextBox" & i).BackColor = RGB(0, 0, 0)
          End If
         
     Next i
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir, merci à toi
J'ai toutes mes textbox de 1 à 31 qui reste vide aucune date s'affiche
Par contre une des textbox est bien noir (du coup il détecte bien la "date du jours"
Mais aucune date aucun texte dans les textbox
 
Vote positif 0 Vote négatif
Bonjour,

Je comprend pourquoi Forecolor ne fonctionne pas c'est parceque dans la Textbox de la date du jour il y as aucun texte...
Il colorise la textbox du jours sa ok mais aucune date n'est marqué dedans


VB: 
'Boucle de textbox1 à 31 pour afficher les dates du mois
     madate = WorksheetFunction.EoMonth(Date, -1)     'dernier jour du mois précédent
     For I = 1 To 31
          d = madate + I
          
          If Day(Date) <> I Then
          'If Month(d) = Month(madate + 1) Then
          
               With Controls("TextBox" & I)
               .Value = Format(d, "dddd dd-mm-yy")
              
               End With
          Else
               Controls("TextBox" & I).BackColor = RGB(255, 128, 128)
               'Controls("TextBox" & I).ForeColor = RGB(255, 128, 128)
          End If
          
     Next I

     Exit Sub 'fin de cette macro
 
Vote positif 0 Vote négatif
Derniére question svp concernant cette mise en page 🙂
Il y à moyen d'avoir les textbox juste à côté également colorisé de la même façon ?
Il détecte le jour "j" = rouge
Et donc il met en rouge les Textbox de la même ligne ?
 

Pièces jointes

  • gggg.png
    28.8 KB · Affichages: 12
Vote positif 0 Vote négatif
dgeo27 à dit:
y à moyen d'avoir les textbox juste à côté également colorisé de la même façon ?
Il détecte le jour "j" = rouge Et donc il met en rouge les Textbox de la même ligne ?
Cliquez pour agrandir...
Si tes textbox ont un nom similaire tu peux les rajouter dans ta boucle comme par exemple :
VB: 
               Controls("TextBox" & I).BackColor = RGB(255, 128, 128)

               Controls("TextBox1" & I).BackColor = RGB(255, 128, 128)
               Controls("TextBox2" & I).BackColor = RGB(255, 128, 128)
               Controls("TextBox3" & I).BackColor = RGB(255, 128, 128)
 
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

K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
99
KRUG WOO
K
C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
168
candido57
C
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
403
NONO14
N
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
250
CortoXls
C
E
  • Résolu(e)
Microsoft 365 Ajout et Suppression Date automatique
Réponses
9
Affichages
456
eric72
E
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
74
Ang3lina
A
  • Question Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
382
BLACKHAYES
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
67 K
NONO14
N
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
783
bérylion
B
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
288
NONO14
N
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
375
Phil69970
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
334
Gestionnaire_rh
G
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
79
CDALE
C
  • Résolu(e)
Microsoft 365 Jour restant de l'année
Réponses
5
Affichages
373
jcf6464
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
269
Etoto
Conversion entre Date Universelle GMT et Date Localisée, puis correction de date extraite du DOS
Réponses
0
Affichages
65
Lu76Fer
G
  • Résolu(e)
XL 2021 VBA dates au mauvais format
Réponses
5
Affichages
318
vgendron
M
  • Question Question
XL 2010 Demande de quantité d'un produit dans un magasin spécifique selon la date la plus ancienne
2
Réponses
21
Affichages
1 K
Mody200
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…