Bouton de commande et claaseur partagé

[Luigi]

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]

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]

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]

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]

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]

Re : Bouton de commande et claaseur partagé

Re,

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

Peut-être ajouter la commande

DoEvents

avant le End Sub

 

[Luigi]

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]

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...]

Re : Bouton de commande et claaseur partagé

Salut

et en essayant de simplifier ton code comme suit ?

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]

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]

Re : Bouton de commande et claaseur partagé

Re,

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

 

[tototiti2008]

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