execution vb

phlaurent55

Nous a quittés en 2020

Repose en paix

• 16 Janvier 2017

• #2

Bonjour Michael,

tout simplement parce que le code se trouve dans Workbook_Open

à+
Philippe

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 16 Janvier 2017

• #3

merci de ta réponse.
si j'ai bien compris le code devrait etre dans la feuil "estimation"?

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Janvier 2017

• #4

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

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 16 Janvier 2017

• #5

le but est de faire clignoter o4 et q4 a l'ouverture du fichier pendant x secondes

 

Dernière édition: 16 Janvier 2017

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 16 Janvier 2017

• #6

Re

J'ai corrigé le code, en ajoutant 1 seconde d'attente avant le lancement de la macro.

 

Pièces jointes

• Nouveau Feuille de calcul Microsoft Excel.xlsm

  21.6 KB · Affichages: 19

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 16 Janvier 2017

• #7

Désolé de cette réponse tardive.
cela me convient tout à fait.
je te remercie et te souhaite une agréable soirée.
cordialement
Michael

 

Vote positif 0 Vote négatif