Discussion :

[feda12]

Bonjour,
jé débute avec les Macros et pour m'entraîner je veux que la formule s'adapte selon le numéro de ligne qui dépend de la cellule sélectionné, j'ai donc réalisé cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro2()
i = 7
r = ActiveCell.Row
 
While i < 186
  Cells(ActiveCell.Row, i).Select
    formule = "=IF(AND(($F$" & CStr(r) & "*1440-$G$1*1440)/5<=COLONNE()-7;($F$" & CStr(r) & "1440+$E$" & CStr(r) & "1440-$G$1*1440+5)/5>=COLONNE()-7);1;"")"
    ActiveCell.Formula = _
    formule
  i = i + 1
 Wend
'
End Sub

Cependant je reçois une erreur 1004 au niveau du Active.Cell.Formula = _formule.

Comment résoudre ce problème ?
Merci d'avance.

[tedo01]

Bonjour,
Il suffit de mettre un point d'arrêt sur

Code :

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

ActiveCell.Formula =...

et de faire un ?formule dans la fenêtre exécution. Le résultat donne

Code :

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

=IF(AND(($F$1*1440-$G$1*1440)/5<=COLONNE()-7;($F$11440+$E$11440-$G$1*1440+5)/5>=COLONNE()-7);1;")

On voit tout de suite que la fin de la formule est fausse, il faut doubler les doubles guillemets pour en avoir le nombre suffisant dans la formule finale.

[gFZT82]

Bonjour,

J'ai noté également :
COLONNE se traduit COLUMN;
le point virgule doit être remplacé par la virgule ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
Dim formule As String
i = 7
r = ActiveCell.Row
While i < 186
    Cells(ActiveCell.Row, i).Select
    formule = "=IF(AND(($F$" & CStr(r) & "*1440-$G$1*1440)/5<=COLUMN()-7,($F$" & CStr(r) & "*1440+$E$" & CStr(r) & "*1440-$G$1*1440+5)/5>=COLUMN()-7),1,"""")"
    ActiveCell.Formula = formule
  i = i + 1
 Wend
End Sub

Cordialement.

[feda12]

Merci beaucoup à vous deux ! Je passe en résolu.