Gestion de congélateurs
Résolu
gisle39
Messages postés
10
Statut
Membre
-
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
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
2 réponses
-
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 à ceciPrivate 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 -
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
