Sujet Précédent Sujet Suivant

Gestion de mes congélateurs

Fermé
gisle39 Messages postés 8 Date d'inscription lundi 18 mars 2013 Statut Membre Dernière intervention 7 mars 2016 - Modifié par Chris 94 le 5/03/2016 à 19:54
gisle39 Messages postés 8 Date d'inscription lundi 18 mars 2013 Statut Membre Dernière intervention 7 mars 2016 - 7 mars 2016 à 20:42
Bonjour,
j'ai voulu créer une alerte en fonction de la Date Limite de Conservation (DLC)
(15 jours avant , 30 jours avant, 300 jours avant , et après la date inscrite en I1)
sur la colonne A à partir de la ligne 2 et jusqu'à 100 ; j'ai donc utiliser Ai , for i =2 to 100 et j'ai comparé avec la date inscrite en I1 pour cela j'ai créer un bouton click
affecté de (à chaque feuillet "congélateur 1", "congélateur 2" ,"congélateur 3") : 


"  ' Alerte
Private Sub CommandButton1_Click()
For i = 2 To 100
Dim Ai As Range
If DateDiff("d", Hi, I1) <= 0 Then Select Case (Ai) = ""
 ElseIf DateDiff("d", Hi, I1) <= 15 Then Select Case (Ai) = "!"
 ElseIf DateDiff("d", Hi, I1) <= 30 Then Select Case (Ai) = "*"
 ElseIf DateDiff("d", Hi, I1) > 300 Then Select Case (Ai) = "X"
  Else: Select Case (Ai) = ""
End If
Next i
End Sub   "



et bien sûr ça ne marche pas !!
et en plus je souhaiterais que les symboles "!" , "*", "X" soient affectés d'une couleur différente
pouvez-vous m'aider ?
merci






A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
5 mars 2016 à 20:48
Bonjour

Peux tu envoyer un bout de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller".

Cdlmnt
0
Réponse 2 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 mars 2016 à 16:33
Bonjour Gisle39
bonjour CCM81, Ca va?

en attendant ton classeuer, regarde déjà si ce code à compléter n'irait pas mieux 

Option Explicit
'------------------
Private Sub CommandButton1_Click()
Dim Limite As Date, Duree As Integer, Lig As Byte

    Application.ScreenUpdating = False
    Limite = Range("I1")
    For Lig = 2 To 100
        Durée = DateDiff("d", Cells(Lig, "H"), Limite)
        Select Case Duree
            Case Is <= 0
                Cells(Lig, "A") = ""
            Case Is <= 15
                Cells(Lig, "A") = "!"
                Cells(Lig, "A").Interior.ColorIndex = 40
            Case Is <= 30
        '... a toi de jouer
        End Select
    Next
End Sub


ci joint palette de couleur
http://www.cjoint.com/c/FChpFhkT4zN

0
Réponse 3 / 3
gisle39 Messages postés 8 Date d'inscription lundi 18 mars 2013 Statut Membre Dernière intervention 7 mars 2016
7 mars 2016 à 20:42
Bonjour Michel_m
je regrette ta solution ne marche pas
mais je te remercie pour la palette de couleur
CCM81 m'a aussi envoyé une solution qui marche
le lien de mon fichier se trouve sur "gestion de congélateurs"
merci de votre aide
-1

Discussions similaires

Je cherche un bon Sujet de l'informatique de gestion g3
Arnold -
Whismeril -

9 réponses
tfc pour systeme informatique de gestion
Drieo -
romeo godson peter -

3 réponses
le tfc en g3 informatique de gestion
petitdieu -
cocobello27 -

1 réponse
Problème "HDMI Gestion Alim" avec écran LG
Dadkill -
Simondu92 -

6 réponses