execution vb

MICHAEL

XLDnaute Occasionnel
Bonjour,
quelqu'un pourrait il m'expliquer pour quelle raison mon fichier s'affiche uniquement apres l'execution de on code vb.
merci.
cordialement
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel.xlsm
    15 KB · Affichages: 20
  • Nouveau Feuille de calcul Microsoft Excel.xlsm
    15 KB · Affichages: 19

Lone-wolf

XLDnaute Barbatruc
Bonjour Philippe :), MICHAEL :)

Si les modifications doivent s'éffectuer quand au changement de la valeur d'une cellule(mais laquelle???), place la macro dans de module de la feuille.

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("cellule inconnue")) Is Nothing Then
if  Valeur cellule inconnue > Valeur cellule inconnue then
Range("o4").Interior.ColorIndex = 2
Range("q4").Interior.ColorIndex = 2
Range("o4").Font.ColorIndex = 2
Range("q4").Font.ColorIndex = 2
Else
Range("o4").Interior.ColorIndex = 4
Range("q4").Interior.ColorIndex = 4
Range("o4").Font.ColorIndex = 1
Range("q4").Font.ColorIndex = 1
End If
End If
Application.EnableEvents = False
End Sub
 

Discussions similaires

Réponses
16
Affichages
477
Réponses
12
Affichages
293

Statistiques des forums

Discussions
312 088
Messages
2 085 199
Membres
102 816
dernier inscrit
bolivier