Gestion de congélateurs Résolu/Fermé

Question

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


Configuration: Windows 7 / Chrome 48.0.2564.82

ccm81 · Answer

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 LongWith 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 iEnd WithEnd Sub
Cdlmnt

gisle39 · Answer

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

Gestion de congélateurs

2 réponses

Discussions similaires

Newsletters