bonjour à tous, et merci de l'aide que vous pourrez m'apporter.
Je dois créer un fichier de gestion d'une croix verte d'accident de travail sur 4 atelier.
Mon soucis est de simplifier une macro, en fait je repète toujours la même chose en fonction d'une date, ce qui fait que je repete ma formule 31 fois dans ma macro.
Je viens lire la date du jour, et fonction de cette date je copie des valeurs dans 2 cellules, mais comme je ne sais pas comment indexer ma macro en fonction de la date, j'ai repete la formule autant de fois qu'il y a de jour.
Le fichier est actualisé une fois par jour, pour les accidents de la veille et si c'est le lundi, il faut qu'il actualise sur les trois jours précédent, vendredi, samedi et dimanche, et là je suis bloqué également.
voici un extrait de la macro, le fichier est trop gros je ne peux pas le joindre.
Application.ScreenUpdating = False
For i = 2 To ActiveWorkbook.Worksheets.Count
Worksheets(i).Select
With ActiveWindow
If Range("AR3") - 1 = Range("AY3") Then
Range("AQ3").Select
Selection.Copy
Range("AU3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AR5").Select
Selection.Copy
Range("AV3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AR6").Select
Selection.Copy
Range("AZ3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
merci de votre aide
Je dois créer un fichier de gestion d'une croix verte d'accident de travail sur 4 atelier.
Mon soucis est de simplifier une macro, en fait je repète toujours la même chose en fonction d'une date, ce qui fait que je repete ma formule 31 fois dans ma macro.
Je viens lire la date du jour, et fonction de cette date je copie des valeurs dans 2 cellules, mais comme je ne sais pas comment indexer ma macro en fonction de la date, j'ai repete la formule autant de fois qu'il y a de jour.
Le fichier est actualisé une fois par jour, pour les accidents de la veille et si c'est le lundi, il faut qu'il actualise sur les trois jours précédent, vendredi, samedi et dimanche, et là je suis bloqué également.
voici un extrait de la macro, le fichier est trop gros je ne peux pas le joindre.
Application.ScreenUpdating = False
For i = 2 To ActiveWorkbook.Worksheets.Count
Worksheets(i).Select
With ActiveWindow
If Range("AR3") - 1 = Range("AY3") Then
Range("AQ3").Select
Selection.Copy
Range("AU3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AR5").Select
Selection.Copy
Range("AV3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("AR6").Select
Selection.Copy
Range("AZ3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
merci de votre aide