Affichage Alerte d'une Cellule dans Usf

[MuscatMimi]

Bonjour a tout le Forum
J'ai un Classeur avec un Usf (Interface principale)
et des feuilles, dont une me sert de Gestion de Stock
Dans Feuille Gestion de Stock j'ai une Alerte seuil de Stock Mini , pour chaque produits,, via une MFC la
OK ça Fonctionne

Mais est-il possible de retranscrire cette ,ou ces Alertes dans mon Usf "Interface" ???

Merci a tous a l'avance

 

[bignou77]

Re : Affichage Alerte d'une Cellule dans Usf

Salut vaucluse immo, et a tous le forum.

je ne suis pas un pro, loin de la (même tres loin) mais la je peu peut etre t'aider.
il te faut un if du genre :
'---------------------------
If Worksheets("ton onglet").Range("A1, ou une autre").Value < Then
UserFormAppli.TextBoxResultat.BackColor = RGB(255, 87, 71) 'couleur rouge, ou a toi de voir

Else
UserFormAppli.TextBoxResultat.BackColor = RGB(212, 255, 212) 'couleur vert, ou supp la ligne si tu ne veut rien
End If
'---------------------------

Voila en espérant t'avoir aider. et si c'est le cas tu seras la première personne que j'aide.

@+
Bignou77

 

[MuscatMimi]

Re : Affichage Alerte d'une Cellule dans Usf

Bonjour a tous
Merci de ta réponse mais ça ne fonctionne pas désolé
Cordialement

 

[Dull]

Re : Affichage Alerte d'une Cellule dans Usf

Salut vaucluse immo, bignou77, le Forum

un essai en fichier joint

Fait aussi une recherche sur MsgBox, Alerte

Bonne Journée

 

[Bebere]

Re : Affichage Alerte d'une Cellule dans Usf

bonjour Dull,Vaucluse,Bignou
backstyle doit être 1-fmbackstyleopaque
Private Sub TextBox1_Change()
If CDbl(TextBox1) <= Feuil1.Range("A1") Then
TextBox1.BackColor = RGB(255, 0, 0) 'rouge
Else
TextBox1.BackColor = RGB(255, 255, 255) 'blanc
End If
End Sub

à bientôt

 

[MuscatMimi]

Re : Affichage Alerte d'une Cellule dans Usf

Bonjour a tous
merci de vous pencher sur mon soucis
Je met un fichier en piéces jointe
ce n'est pas la liste produits mais ça ressemble a cela
Merci a l'avance

 

[Bebere]

Re : Affichage Alerte d'une Cellule dans Usf

Vaucluse
tu changes N5 pour alerte
à bientôt

 

[MuscatMimi]

Re : Affichage Alerte d'une Cellule dans Usf

Merci Bébere

ça corresponds a ce que je désirais
pour mes Produits

Mai je vois que ça va pas etre pratique
pour l'exemple ue j'ai joint avec les Dates échances
serait-il possible de faire apparaitre l'ensemble de la feuille dans une ListBox???,
comme cela je verrai mieux ce qui ce passe dans mes réglements
Merci encore

 

[Bebere]

Re : Affichage Alerte d'une Cellule dans Usf

Vaucluse
avec affichage dans listbox de la base,et changement dans textbox1
à bientôt

 

[MuscatMimi]

Re : Affichage Alerte d'une Cellule dans Usf

Ouah,super ce que tu a fait
Bravo, plus que ce qu'il mefallait
tu est vraiment gentil de t'avoir penché sur ma demande
A bientôt

 

[MuscatMimi]

Re : Affichage Alerte d'une Cellule dans Usf

Bonjour Bébére et au Forum

L'exemple que tu a fais ,est bien, mais il y a un soucis......
Dans la colonne V
dans cette colonne,,,
Dés que j'ai plusieurs cellules ,
avec MFC et donc notées a payer ,si elle sont arrivées a la date
Plus aucune couleur ne s'affiche dans la textBox dans mon Usf

Cordialement

 

[Bebere]

Re : Affichage Alerte d'une Cellule dans Usf

bonsoir Vaucluse

dans Private Sub ListBox1_Click tu changes < par >

à bientôt

 

[MuscatMimi]

Re : Affichage Alerte d'une Cellule dans Usf

Bonsoir Bebere et le forum
Merci, de ta réponse
Si tu me le permet
quel serait le code pour que dés que la TextBox est en vert un Label et un Bouton s'affiche??,,
Bonne soirée et merci a l'avance

 

[Bebere]

Re : Affichage Alerte d'une Cellule dans Usf

bonjour Vaucluse,le Forum
j'ai mis du code dans le bouton,avec explication
à bientôt

 

[MuscatMimi]

Re : Affichage Alerte d'une Cellule dans Usf

Bojour Bebere et au forum
Merci ,tu a mis ds TextBox c'est ce que j'avais déja commencé a faire
tu a deviné
Bon j'aurai encore qq questions ,mais je ne veux plus t'embêter avec mes soucis,
je ferais un autre post sur ce forum
Merci beaucoup pour tout ce que tu a réalisé pour mon fichier
Cordialement