XL 2013 survol de la souris

[gena]

bonjour le forum
je tente un nouveaux essaie mais cela fonctionne a un quart
je recherche comment changer la couleur des boutons en feuille 1 aux survol de la souris de gris passé aux vert ou autre couleur car je voudrais pas devoir copier 10 fois le même code pour chaque boutons
pour l'userform ok cela fonctionne très bien j'ai trouvé un code de grand maitre BOISGONTIER
comme exemple dans la feuille 2
pouvez vous m'aidé svp cela me rendrais service
avec tout ma gratitude

 

[gena]

Merci pour la solution je vais essayé cela je suis la pour apprendre et un peut d exercice fait pas de mal maintenant pas sur de réussir mais bon merci pour d' être sûr mon chemin

 

[patricktoulon]

remplace les codes tel que je te les donne et c'est tout

 

[gena]

merci infiniment cela va me donnez un nouveaux exercice a reproduire à l'identique et comprendre le code par code
amitié
fait bien attention à vous

 

[gena]

bonsoir le forum vous avez bien aidée patricktoulon,job75,sylvanu
et bien me revoila encore je viens vous ennuies avec ça en feuille 1 cela fonctionne trés bien pas de soucis mais quand je le rentre dans mon dossier dans le thisworkbook erreur CB=0.object

Dim o As OLEObject, n%
For Each o In Feuil1.OLEObjects
    If TypeName(o.Object) = "CommandButton" Then
        ReDim Preserve CB(n)
        Set CB(n[U])[COLOR=rgb(65, 168, 95)][U].CB[/U][/COLOR] [/U]= o.Object
        Set CB(n).lab = Feuil1.OLEObjects("Label1").Object
        n = n + 1
    End If
Next




End Sub

alors que j'ai vingt boutons qu'il fonctionne trés bien en feuille 1 mais rien a faire dans mon dossier jai refais une feuille spécialement avec créations DES BOUTONS ACTIF dans mon dossier et mis LES codes sans rien oublier et même fais des essaies avec dossier de nos amis mais même punitions
avec vous une idées svp

 

[gena]

j arrive pas a trouvé une solution

 

[soan]

Bonsoir gena, le fil,

Dans ton post #19, tu as écrit :

« quand je le rentre dans mon dossier dans le thisworkbook erreur CB=0.object »

C'est pas avec un 0 (zéro) ! c'est avec un o (O minuscule) !

CB = o.Object

soan

 

[gena]

merci oui effectivement j ai commis une erreur d'écriture
désolé c'est bien un o