formule dans vba

[nanor]

Salut le forum,

Bonne semaine à tous!

J'ai une question concernant une formule.

J'essaie de mettre une formule dans une macro vba mais dès que je la fait fonctionner, elle s'emballe et ne s'arrète plus (elle s'exécute à l'infini...). La ligne qui pose problème semble être celle que j'ai mis entre <b></b>.

J'espère que vous saurez m'aider.
Merci d'avance,

nanor


Select Case (UCase(Range("A3").Value))
Case "JANVIER"
Cells.EntireColumn.Hidden = False
Cells.Font.ColorIndex = 1
Columns("T:BK").EntireColumn.Hidden = True
Columns("BP😀G").EntireColumn.Hidden = True
Columns("DJ😀T").EntireColumn.Hidden = True
Range("R8, BM8, BN8").Font.ColorIndex = 5
<b> Range("J9").Formula = "=+S9"</b>

Case "FEVRIER"
Cells.EntireColumn.Hidden = False
Cells.Font.ColorIndex = 1
Columns("X:BK").EntireColumn.Hidden = True
Columns("BM:BP").EntireColumn.Hidden = True
Columns("BT😀G").EntireColumn.Hidden = True
Columns("DI😀I").EntireColumn.Hidden = True
Columns("DK😀T").EntireColumn.Hidden = True
Range("V8, BQ8, BR8").Font.ColorIndex = 5

Case "MARS"
Cells.EntireColumn.Hidden = False
Cells.Font.ColorIndex = 1
Columns("AB:BK").EntireColumn.Hidden = True
Columns("BM:BT").EntireColumn.Hidden = True
Columns("BX😀G").EntireColumn.Hidden = True
Columns("DI😀J").EntireColumn.Hidden = True
Columns("DL😀T").EntireColumn.Hidden = True
Range("Z8, BU8, BV8").Font.ColorIndex = 5
Case Else
End Select

 

[@+Thierry]

Salut Nanor

J'ai juste copié collé ce code, çà tourne... J'ai bien "=+S9 " en "J9"...
et je n'ai pas de boucle sans fin comme tu sembles décrire...

D'ailleur il n'y a pas de boucle dans ce code... As-tu bien reporté toutes les lignes de ta macro ?

@+Thierry

PS pour faire du Bold ici c'est => [ b ] ------ [ / b ] (sans les espaces)

Bye

 

[nanor]

re-,

En effet, il n'y avait pas tout.
Dans ThisWorkbook, il y a les lignes suivantes.
Sinon je joins la macro complète en .bas (zippé)

Merci,
nanor



Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Address = "$A$3" Then
Module1.ChangeCellule

End If
End Sub