Comment décaler de 2 au lieu de 1 colonne

[klorane]

Bonjour à tous,

j'utilise la macro suivante:

Dim c As Range

For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
Select Case c
Case 5, 10, 15, 20, 25, 30, 35, 40, 45, 50
c.Offset(0, 1) = 'E'
Case 4, 9, 14, 19, 24, 29, 34, 39, 44, 49
c.Offset(0, 1) = 'F'
End Select
Next c
End Sub


celle si affiche dans la colonne B la valeur E ou F si dans la colonne A j'ai une valeur 5, 10 ou 4, etc....

que faut il modifier dans cette macro pour que la valeur E ou F ne soit pas mise dans la colonne B mais dans la colonne C.

Merci

 

[JC de Lorient]

bonsoir

remplace ça c.Offset(0, 1)
par c.Offset(0, 2)


JC

 

[Charly2]

Bonsoir Sylvain et JC, bonsoir à toutes et à tous,

Si tu n'as que ces 20 valeurs (49 ou 50, max) dans ta colonne A, tu peux écrire une formule dans la colonne C :

=SI(MOD(A1;5)=0;'E';SI(MOD(A1-4;5)=0;'F';''))

ou par macro :

Sub RemplitColC()
'
Dim Cellule As Range
'
  For Each Cellule In Range('A1:A' & Range('A65536').End(xlUp).Row)
    If Cellule Mod 5 = 0 Then
      Cellule.Offset(0, 2) = 'E'
    ElseIf (Cellule - 4) Mod 5 = 0 Then
      Cellule.Offset(0, 2) = 'F'
    End If
  Next Cellule
End Sub

Amicalement
Charly