Gestion de congélateurs

Résolu
gisle39 Messages postés 10 Statut Membre -  
gisle39 Messages postés 10 Statut Membre -
Bonjour,
j'ai 3 congélateurs coffre pour lesquels je souhaite mettre un peu d'ordre
avec Excel2007 , j'ai créer 4 feuillets "congélateur 1","congélateur 2","congélateur 3" et "référence"
avec UserForm j'ai créé un formulaire de saisie des aliments et de leur DLC
j'ai 2 problèmes : l'un avec la durée de conservation des aliments frais que je n'arrive pas à saisir automatiquement
l'autre avec la création d'une alerte ,sur chaque feuillet, en colonne A compte tenu de la DLC en H et d'une date en I1 (j'aurais aimé que ce soit la date du jour mais "erreur volatile")
merci de m'aider


https://www.cjoint.com/c/FCgjCFuR8zW


A voir également:

2 réponses

Réponse 1 / 2
ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

Pourquoi créer une nouvelle discussion ?
Je ne peux pas faire grand chose sur ton fichier, mon vieil excel 2003 plante à l'exécution, mais pour ce qui est du code de ta macro gérant les alertes, il devrait ressembler à ceci 
Private Sub CommandButton1_Click()
Dim i As Long, ifin As Long
With ActiveSheet
  ifin = .Range("B" & Rows.Count).End(xlUp).Row
  For i = 2 To ifin
    If DateDiff("D", .Range("H" & i).Value, .Range("I1")) <= 0 Then
      .Range("A" & i).Value = ""
    ElseIf DateDiff("D", .Range("H" & i).Value, .Range("I1")) <= 15 Then
      .Range("A" & i).Value = "!"
    ElseIf DateDiff("D", .Range("H" & i).Value, .Range("I1")) <= 30 Then
      .Range("A" & i).Value = "*"
    ElseIf DateDiff("D", .Range("H" & i).Value, .Range("I1")) > 300 Then
      .Range("A" & i).Value = "X"
    Else
      .Range("A" & i).Value = ""
    End If
  Next i
End With
End Sub

Cdlmnt
0
Réponse 2 / 2
gisle39 Messages postés 10 Statut Membre
 
Désolé que mon fichier fasse planter vote Excel , ce n'était pas mon intention!
merci de votre aide malgré cela
votre solution marche
merci
0