Discussion :

[Daniela_]

Bonjour je voudrais connaître la syntaxe pour remplacer B13 par ("B" & i) mais je ne connais pas la syntaxe quand il s'agit de l'inclure dans ActiveCell.Formula...
Je voudrais aussi pouvoir garder le fait de bloquer la cellule ($B$123)

Code :

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

1
2
3
4
5
6
 For i = 13 To 1055
  b = i + 110
      Range("F" & i).Select 
        ActiveCell.Formula = _
        "=IF(B13="""","""",IF(B13=0,0,B13/$B$123))"
        Selection.AutoFill Destination:=Range("F" & i & ":F" & b), Type:=xlFillSeries

Une aide serait la bienvenue,

Merci !

[EngueEngue]

Code :

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

"=IF(B" & i & "="""","""",IF(B" & i & "=0,0,B" & i & "/$B$123))"

[Daniela_]

ok Merci !