Excel ou Calc
 
 
Article rédigé par Patrice le 10/09/2009 - Modifié le 17/03/2010


Bogues code VBA


Il y a des trucs que je ne m’explique pas et pourtant après modif çà marche...


Mes images (feu tricolore) ne s’affichent pas dans l’odre voulu (premier plan) :

L’exemple suivant est :
- mettre en premier plan le feu rouge si les cellules "F6" et "K6" sont inférieures à 100%
- mettre en premier plan le feu orange si les cellules "F6" ou "K6" sont inférieures à 100%
- mettre en premier plan le feu vert si les cellules "F6" et "K6" sont supérieures à 100%

Le code qui ne fonctionne pas alors que tout semble correct :


Private Sub Workbook_Open()
If Range("F6") < 1 And Range("K6") < 1 Then
 ActiveSheet.Shapes("Picture 9").ZOrder msoBringToFront 'Rouge
ElseIf Range("F6") < 1 And Range("K6") >= 1 Then
 ActiveSheet.Shapes("Picture 10").ZOrder msoBringToFront 'Orange
ElseIf Range("F6") >= 1 And Range("K6") < 1 Then
 ActiveSheet.Shapes("Picture 10").ZOrder msoBringToFront 'Orange
ElseIf Range("F6") >= 1 And Range("K6") >= 1 Then
 ActiveSheet.Shapes("Picture 6").ZOrder msoBringToFront 'Vert
End If
End Sub

Il faut simplement sauter une ligne en début de code et une en fin de code :


Private Sub Workbook_Open()

If Range("F6") < 1 And Range("K6") < 1 Then
 ActiveSheet.Shapes("Picture 9").ZOrder msoBringToFront 'Rouge
ElseIf Range("F6") < 1 And Range("K6") >= 1 Then
 ActiveSheet.Shapes("Picture 10").ZOrder msoBringToFront 'Orange
ElseIf Range("F6") >= 1 And Range("K6") < 1 Then
 ActiveSheet.Shapes("Picture 10").ZOrder msoBringToFront 'Orange
ElseIf Range("F6") >= 1 And Range("K6") >= 1 Then
 ActiveSheet.Shapes("Picture 6").ZOrder msoBringToFront 'Vert
End If

End Sub

Pour moi cela restera un bogue tant que je n’aurais pas d’explication logique !...



______________________________
Voir aussi sur ce site les articles :
______________________________
Article suivant : Fête de l’Huma 2009 du vendredi 11 septembre 2009
Article écrit précédemment : Pêche à pied du dimanche 23 août 2009

 
Site mis à jour
le lundi 9 avril 2018
 
Ajouts ou modifs :
  • Sensibilisation aux archives
    Divers - lundi 9 avril 2018
    Divers supports que je vous propose suite à mes interventions de "Sensibilisation aux (...)
  • Thunderbird
    Autres logiciels - mercredi 4 avril 2018
  • Supprimer la pub de PDF Architecte
    Divers - mercredi 28 mars 2018
    Une pub pour PDF Architecte apparait en bas et à droite de votre écran sous forme de (...)
  • Illustrator CS3
    Autres logiciels - mardi 6 mars 2018
  • Incrémentation de lignes avec un classeur lié.
    Excel ou Calc - jeudi 4 janvier 2018
     

  • Dates à retenir :

    Il n'y a pas d'événements au calendrier.
    Haut de page