Worksheet change error

[REX]

Coucou le forum

Voila j'ai ecrit une formule qui fait que lorsque je change une donnee de E6:E13, ca me rend invisible un Bouton :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E13')) Is Nothing Then
Dim j As Integer
j = ActiveCell.Row - 5

ActiveSheet.Shapes('CommandButton' & j).BackColor = &HFF
End If
End Sub

Mais voila, ca marche pas, ou est mon erreur ???

Merci

 

[REX]

Oops erreur

ce n'est pas invisible mais 'en rouge'...

Merci

 

[REX]

Re tout le monde ...

Personne ne voit la solution a mon probleme ???

Merci

 

[Hellboy]

Bonsoir REX

Voila j'ai ecrit une formule qui fait que lorsque je change une donnee de E6:E13, ca me rend
invisible un Bouton :

Est-ce que l'on parle ici de un seul bouton qui existe sur cette même feuille ou il y en a d'autres ?

En passant, le forum ne joue pas a cache cache, alors inutile pour les coucou, tu peut lire la Charte concerant la façon de procéder s.v.p.
Si tu regarde ma signature aussi, tu as un autre indice qui sert sur ce site de partage de connaissance.

merci !

a+

 

[MichelXld]

bonjour Rex , bonjour Philippe

tu peux tester cette adaptation

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Integer
If Not Intersect(Target, Range('E6:E13')) Is Nothing Then
j = Target.Row - 5

ActiveSheet.OLEObjects('CommandButton' & j).Object.BackColor = &HFF
End If
End Sub


bonne journée
MichelXld

Message édité par: MichelXld, à: 21/06/2005 08:29

 

[REX]

HellBoy, MichelXLD, le forum,

Merci MichelXLD, ca a l'air de marcher...

Désolé Hellboy, je n'ai pas très bien saisi ta remarque?
je cite :
'En passant, le forum ne joue pas a cache cache, alors inutile pour les coucou, tu peut lire la
Charte concerant la façon de procéder s.v.p.
Si tu regarde ma signature aussi, tu as un autre indice qui sert sur ce site de partage de
connaissance.'
Peux tu m'éclaircir ?

En tout cas merci à vous de vous être intéressé à mon problème

A plus

 

[Hellboy]

Coucou REX, bonjour MichelXLD

Quant on a affaire a un spécialiste, avec peu il accomplit la ou plusieurs ne peuvent y arriver. Du moins ça a l'air... B) (En passant félicitation pour le passage 500 MichelXLD).

Je suis désolé REX, au lieu de te demander de lire ma signature, j'aurais du te demander directement de joindre ton fichier pour que l'on puisse mieux voir de quoi il en retourne et ultimenent pouvoir tester la réponse.

Merci !