couleur sous condition dans un TextBox de UF

[paul87]

Bonjour
comment faire pour avoir un BackColor de TextBox1 (dans un UserForm) qui devient rouge si dans une zone de B4 à J25 de ma feuille 1 on trouve la date du jour...
Clignotant....serait royal
Est-ce possible...?
Merci par avance

 

[Mouchty85]

Re : couleur sous condition dans un TextBox de UF

Dans une cellule tu demande de mettre la date

For i = 1 to compter le nombre de ligne de ton tableau ( la ou tu veu aue la recherche soit faite)
SI Range("Nom de ton tableau").Cells(i,1)§.Value = Range'"Nom de la cellule ou il y a la date".Cells(1,1) then
TextBox1.BackColor = 25 ( Le 255 correspond au code de la couleur rouge)
Exit For
Enf If
Voila en quelque sorte le code pour faire ce que tu dis.
Pour le clignotant je sais si c'est possible

 

[PascalXLD]

Re : couleur sous condition dans un TextBox de UF

Bonjour

un truc du genre

Set c = Sheets("Feuil1").Range("B4:J25").Find(Date)
If c Is Nothing Then
    TextBox1.BackColor = &H80000005
Else
    TextBox1.BackColor = &HFF&
End If

Bon courage

OUps excuse Moutchy pas raffraichi
Paul aura 2 solutions comme cela avec et sans boucle

 

[Mouchty85]

Re : couleur sous condition dans un TextBox de UF

pas de problème ta méthode est plus rapide que la mienne notamment sur un fichier lours en macro

 

[paul87]

Re : couleur sous condition dans un TextBox de UF

Bonsoir et merci a vous 2..
j'ai vien utilisé ce code...affecté au TextBox1 de mon UF mais rien....memepas un message d'erreur..!!??

Private Sub TextBox1_Change()
Set c = Sheets("Feuil1").Range("B4:J25").Find(Date)
If c Is Nothing Then
    TextBox1.BackColor = &H80000005
Else
    TextBox1.BackColor = &HFF&
End If
End Sub

je ne comprends pas

 

[lacorse33]

Re : couleur sous condition dans un TextBox de UF

Bonsoir Paul87, le fil et le forum,

Peux-tu essayer en mettant le nom de la USF devant le nom de l'objet ?

ex : UserForm1.TextBox1.BackColor = &H80000005

Merci
@+
Béa

 

[paul87]

Re : couleur sous condition dans un TextBox de UF

Bonsoir et merci....mais rien toujours aucun résultat...le code à l'air simple pourtant...?

 

[paul87]

Re : couleur sous condition dans un TextBox de UF

re..
j'ai fait une modif...avec un label1...et là ça marche...mais seulement sur click sur le label..
ce que je voudrais c'est une mise à jour à l'ouverture du userform

Private Sub Label1_Click()
Set c = Sheets("Feuil1").Range("B4:J25").Find(Date)
If c Is Nothing Then
    UserForm1.Label1.BackColor = &HFFFFFF
Else
    UserForm1.Label1.BackColor = &HFF&
End If
End Sub

 

[lacorse33]

Re : couleur sous condition dans un TextBox de UF

Re,

Tu peux nous envoyer une partie de ton fichier pour que l'on fasse des essais ?

Merci
@+
Béa

 

[paul87]

Re : couleur sous condition dans un TextBox de UF

Bonjour...à tous et toutes
Voici un fichier de mon travail en cours,
la présentation du UF est un brouillon de travail...je transposerai le code sur mon appli finale
Merci par avance pour vos aides et conseils

 

[PascalXLD]

Re : couleur sous condition dans un TextBox de UF

Re

une petite modif en bouclant

 

[paul87]

Re : couleur sous condition dans un TextBox de UF

Bonjour et merci à Pascal76
ça fonctionne..c'est genial!!
Si j'ai bien compris....

For x = 2 To 10
    For y = 4 To 25

x=colonnes et y=lignes
Mais pourquoi "range" n'etait-il pas approprié..?
Une derniere demande..: est-il possible de rajouter une mise à jour automatique à 00h00..?
Merci par avance

 

[PascalXLD]

Re : couleur sous condition dans un TextBox de UF

Re

En effet c'est cela pour les colonnes et lignes

pour le range et bien quend tu as les colonnes en nombre avec cells ça passe tout de suite

pour la mise à jour que veux tu mettre mettre à jour ??

 

[paul87]

Re : couleur sous condition dans un TextBox de UF

ok et merci pour l'expli....à retenir..
Pour la mise à jour..
à Minuit la date change ..donc les BackColors ne sont plus les memes.
si le UF reste ouvert 24H/24H est-il possible d'avoir un "rafraichissement" automatique à 00:00...?

 

[PascalXLD]

Re : couleur sous condition dans un TextBox de UF

Re

Voici le fichier modifié