• Initiateur de la discussion Initiateur de la discussion nanor
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

nanor

Guest
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
 
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
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
13
Affichages
2 K
N
Réponses
3
Affichages
881
N
Retour