Bouton de commande et claaseur partagé

tototiti2008

XLDnaute Barbatruc

• 18 Août 2011

• #2

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 ?

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 18 Août 2011

• #3

Re : Bouton de commande et claaseur partagé

bonjour tototiti2008,

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Août 2011

• #4

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

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 18 Août 2011

• #5

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Août 2011

• #6

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

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 18 Août 2011

• #7

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Août 2011

• #8

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
@+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Août 2011

• #9

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

 

Vote positif 0 Vote négatif

L

Luigi

XLDnaute Occasionnel

• 18 Août 2011

• #10

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

 

Pièces jointes

• TestLuigi.xlsm

  23.6 KB · Affichages: 39

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Août 2011

• #11

Re : Bouton de commande et claaseur partagé

Re,

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 18 Août 2011

• #12

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

 

Vote positif 0 Vote négatif