Offset d'une plage de cellule discontinuées

Bonjour

J'aimerais écrire automatiquement une valeur dans les cellules situées à gauche de celles sélectionnées afin de leur attribuer un "status de production"

J'utiliserai ce status de production afin de déterminer les priorités à traiter en fonction de l'étape où le PO de production est rendu. Il y aura 7 status, allant de 0 à 6

EX:

J'ai sélectionné C9, E9, E10

Je veux que les cellules BJ9, BL9, BL10 aient le "status" 0. 59 colonnes plus loin.

Je sais que pour une seule cellule, on ferait un simple "ActiveCell.Offset(, 59).Value = 0"

Je ne sais pas comment faire un offset sur une plage de cellules ni même si c'est possible.

J'ai essayé avec "Selection.Address" mais sais succès.

Avez vous une solution?

Merci!

Bonjour,

Selection.Offset(, 59) = "0"

Bonjour

Bonjour à tous

Une variante en traitant d'un coup toutes les cellules sélectionnées.

Sub Essai()

    For Each c In Selection
        c.Offset(0, 59).Value = c.Value
    Next c
End Sub

Bye

J'étais si proche!

Merci Thev et gmb pour vos solutions