Majoration données semaines précédentes

Bonjour,

Le tableau ci-joint récapitule le temps supplémentaire effectué par mon équipe.

Ma problèmatique ?

J'aimerais que chaque lundi, les valeurs de la semaine précédente non barrées soit "majorées" par 1.25.

Je ne pense pas que cela soit possible sans passer par VB.

Est-ce que quelqu'un pourrait voir ce qui est faisable sous VB ?

Merci

Bonjour,

Pourquoi ne pas effacer... ?

Effacer quoi ?

Au lieu de barrer ! (ce qui n'est d'ailleurs pas un barrement mais la mise de bordures diagonales dans la cellule...)

oui effectivement je peux effacer

Mais comment faire pour majorer par 1.25 le reste ?

Bonjour,

comme ceci ?

P.

Hello à MFerrand !

Option Explicit

Sub Macro1()
Dim Last, Tot, I, Col
Last = [A65000].End(xlUp).Row
For I = 2 To Last
  For Col = 2 To 16
   If Not Cells(I, Col).Borders(xlDiagonalDown).LineStyle = xlContinuous Then
      If Weekday(Cells(1, Col)) <> 7 And Weekday(Cells(1, Col)) <> 1 Then
         Cells(I, Col) = Cells(I, Col) * 1.25
      End If
   End If
  Next
Next
End Sub

Bonjour,

Dans la macro, tu majores toutes les valeurs que tu trouves sur la feuille ou tu majores que sur une certaine plage ?

Merci

jeanmichel0404 a écrit :

Bonjour,

Dans la macro, tu majores toutes les valeurs que tu trouves sur la feuille ou tu majores que sur une certaine plage ?

Merci

De la colonne 2 ligne 2 à la dernière ligne colonne 16

Mais comment faire pour majorer par 1.25 le reste ?

Multiplier par 1.25 !

Patrick1957, et si je ne souhaite majorer que les valeurs de la semaine précédente et pas celle de la semaine en cours ?

Merci

• écrire 1.25 dans une cellule
• CTRL C pour copier
• sélectionner les cellules concernées avec la souris
• clic droit / collage spécial/multiplication