Discussion :

[tomAH74]

Bonjour j'aimerais généré une macro qui puisse me mettre en couleur plusieurs cellules avec un "décalage" calculé selon une formule (prélèvement toutes les X pièces). C'est à dire dans le fichier "test" ci-joint toutes les 15 pièces, la macro colorie les celulles en bleu. Comment peux-t-on créer cette macro ?

[gFZT82]

Bonjour,

Code à placer dans le module de la feuille concernée.
La procédure est lancée automatiquement à chaque modification du nombre de prélèvements ou du pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long, i As Long
    If Target.Count = 1 And Not Application.Intersect(Target, Range("F2:F3")) Is Nothing Then
        DerLig = Range("A" & Rows.Count).End(xlUp).Row
        Range("A1:B" & DerLig).Interior.ColorIndex = xlColorIndexNone
        For i = Range("F3") + 1 To DerLig Step Range("F3").Value
            Range("A" & i).Offset(1, 0).Resize(Range("F2"), 2).Interior.ColorIndex = 23
        Next i
    End If
End Sub

Cordialement.