Bouton de commande et claaseur partagé

Luigi · 18 Août 2011

Bonjour à vous tous,
J’ai un classeur sous Excel 2007 qui utilise des macros. Dans ce fichier il y a des boutons de commande qui change de couleur en cliquant dessus ( ok vert ; amélioré jaune).
Le bouton en lui-même fonctionne très bien, mais j’ai mis le classeur en partage sur 2 postes (poste A et poste B) et là j’ai des problèmes. Je m’explique :
Sur le poste A en cliquant sur bouton la couleur change normalement.
Sur le poste B la couleur du bouton de change pas et inversement même si le classeur a été enregistré au préalable. Pour que la couleur change, il faut d’abord fermer le classeur, puis l’ouvrir à nouveau, c’est assez contraignant.
Quelqu’un aurait-il une solution remédié à mon problème.
D’avance je vous remercie.

tototiti2008 · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Bonjour Luigi,

C'est un comportement bizarre, en effet
Il est malheureusement connu que partage et macro font très mauvais ménage, de nombreuses commande VBA ne fonctionnent pas sur un classeur partagé
Sur ce problème particulier, pas d'idée comme ça... peut-être un bout de code associé à tes boutons ?

Luigi · 18 Août 2011

Re : Bouton de commande et claaseur partagé

bonjour tototiti2008,

un bout de code associé au bouton serait la solution, mais quel type de code?

tototiti2008 · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Re,

Non, j'aimerais que tu nous fournisse le code qui est actuellement associé à tes boutons, pour tester

Luigi · 18 Août 2011

Re : Bouton de commande et claaseur partagé

ci-dessous le code associé au bouton

Private Sub Button_Op2012_CU2_Click()

With Button_Op2012_CU2

If ActiveSheet.Button_Op2012_CU2.Caption = "OK" Then

.Object.Caption = "Amélioration"
.Object.BackColor = &H80FFFF

ElseIf ActiveSheet.Button_Op2012_CU2.Caption = "Amélioration" Then

.Object.Caption = "OK"
.Object.BackColor = &HFF00&

End If
End With
End Sub

tototiti2008 · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Re,

Chez moi la couleur change, même en mode partagé

Peut-être ajouter la commande

Code:

DoEvents

avant le End Sub

Luigi · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Merci pour test,

Mais même en mettant "DoEvents" cela ne fonctionne pas. Sur mon poste le bouton change de couleur, mais sur le poste de mon collègue qui à le classeur ouvert en partage le bouton ne change pas de couleur.

Pierrot93 · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Bonjour,

peut être vérifier en mettant un point d'arrêt (dans l'éditeur vba, touche de fonction F9) si le code se déclenche...

bon après midi
@+

Si... · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Salut

et en essayant de simplifier ton code comme suit ?

Code:

Private Sub Button_Op2012_CU2_Click()
  With Me.Button_Op2012_CU2
    If .Caption = "OK" Then
      .Caption = "Amélioration"
      .BackColor = &H80FFFF
    ElseIf .Caption = "Amélioration" Then
      .Caption = "OK"
      .BackColor = &HFF00&
    End If
  End With
End Sub

Luigi · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Bonjour Pierrot93,

Avec un point d'arret le code de se déclenche pas.
En pièce jointe mon classeur test

Pierrot93 · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Re,

perso pas 2007 sous le coude pour tester....

tototiti2008 · 18 Août 2011

Re : Bouton de commande et claaseur partagé

Re, Pierrot , Bonjour Si...

Moi il me manque le collègue qui ouvre le classeur partagé en même temps pour voir si ça plante chez lui...

Bouton de commande et claaseur partagé

Luigi

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Luigi

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Luigi

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Luigi

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Luigi

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

Discussions similaires