VBA - Condition d'application dans la macro
K
Bonjour,
Je souhaite savoir s'il est possible d'incorporer dans une macro une condition d'application.
Par exemple, dans cette macro, j'aimerai que la fonction (STOCK N-1) ne soit pas appliquée si la valeur de la cellule H48 = S01
Je n'ai pas le droit de supprimer la partie stock sur cette feuille, je dois la laisser telle quelle car elle sert à une duplication massive de fiches statistiques.
Je vous remercie par avance pour votre aide!
Sub auto_open()
'Macro pour actualiser les liens du calendrier des jours travaillés par semaine (ANNEE EN COURS)
Cells.Replace What:="\2015\", Replacement:=Sheets("calendrier").Range("G8").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Macro pour (PRODUCTION) de la semaine en cours via semaine actuelle
Cells.Replace What:="2015\S02", Replacement:=Sheets("calendrier").Range("G17").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Macro pour (STOCK N-1) via semaine precedente
Cells.Replace What:="2015\S01", Replacement:=Sheets("calendrier").Range("G14").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
bonjour,
à tester
Sub auto_open()
'Macro pour actualiser les liens du calendrier des jours travaillés par semaine (ANNEE EN COURS)
Cells.Replace What:="\2015\", Replacement:=Sheets("calendrier").Range("G8").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Macro pour (PRODUCTION) de la semaine en cours via semaine actuelle
Cells.Replace What:="2015\S02", Replacement:=Sheets("calendrier").Range("G17").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'Macro pour (STOCK N-1) via semaine precedente
if range("H48")<>"S01" then
Cells.Replace What:="2015\S01", Replacement:=Sheets("calendrier").Range("G14").Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
end if
End Sub
K
IMPECCABLE !
Merci beaucoup !