Les formules d'une colonne ne s'exécutent pus

[JSl]

Bonjour à tous,

Je connais un peu Excel. J'ai réalisé un fichier assez lourd avec beaucoup de formules et calcul itératif. Tout fonctionnait correctement. Depuis plusieurs jours, je rempli mes cellules comme d'habitude. Pour activer les formules, je suis obligée de me positionner sur cette formule en I22 par exemple et de faire enter, j'obtiens alors le résultat.

Les calculs itératifs sont en ordre, le calcul automatique est aussi activé et en ordre. Je me suis alors orienté vers le VBA dont je n'y connais rien. Cela fonctionne sauf que je ne parviens pas à répéter cette démarche pour toute la plage I5:I1001. Voici le VBA que j'ai "pondu":

Sub Macro9()
'
' Macro9 Macro
'
Dim MaCellue As Range
For Each MaCellule In ActiveSheet.Range("i23:i50")
Range("i28").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC5=""Pas d'offre"",RC[-2]=""""),""ok"",IF(AND(RC5=""A commander"",RC[-2]>0),""A recevoir"",IF(AND(RC5=""Attente acompte"",RC[-2]>0),""A recevoir"",""ok"")))"
Range("i28").Select
Next

End Sub

Au secours....
Merci à tous.
JSl

 

[Robert]

Re : Les formules d'une colonne ne s'exécutent pus

Bonsoir JSl et bienvenu, bonsoir le forum,

Cela fonctionne sauf que je ne parviens pas à répéter cette démarche pour toute la plage I5:I1001. Voici le VBA que j'ai "pondu":

Sub Macro9()
For Each MaCellule In ActiveSheet.Range("i23:i50")

Pas très clair ton histoire... C'est quoi ta plage au juste, I23:I50 ou I5:I1001 ?
Je verrais plutôt un code comme ça :

Sub Macro9()
Dim I As Integer

For I = 23 To 50 'ou For I = 5 To 1001
    Cells(I, 9).FormulaR1C1 = _
       "=IF(AND(RC5=""Pas d'offre"",RC[-2]=""""),""ok"",IF(AND(RC5=""A commander"",RC[-2]>0),""A recevoir"",IF(AND(RC5=""Attente acompte"",RC[-2]>0),""A recevoir"",""ok"")))"
Next I
End Sub

 

[JSl]

Re : Les formules d'une colonne ne s'exécutent pus

Bonsoir Robert,

Je vous remercie grandement pour votre aide. Ca fonctionne. Mille mercis.

Il faut vraiment que j'approfondisse ma connaissance en VBA.

Je vous souhaite une bonne soirée.