commandbutton inactivé par autofilter - VBA Excel 2000
1 réponse
J
Bonjour à tous
Après rétablissement du filtre automatique sur la ligne A:A, le
commandbutton qui existe sur cette ligne n'est plus actif.
Pour le réactiver, je désactive le mode création, déprotège la feuille
puis met le bouton au premier plan, mais le code obtenu par
l'enregistreur n'est pas suffisant, j'ai une erreur 438 (propriété ou
méthode non gérée par cet objet) quand j'essaie de l’utiliser à la fin
de mon code de filtre élaboré, lors de la remise en place de l'autofilter.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
J
Bonjour J'ai fait ce code, qui a l'air de marcher
With Sheets("CONSO") .Activate .Unprotect .Shapes("CommandButton1").Select End With Selection.ShapeRange.ZOrder msoBringToFront
@+ J@@
Le 27/07/2011 09:00, J@@ a écrit :
Bonjour à tous Après rétablissement du filtre automatique sur la ligne A:A, le commandbutton qui existe sur cette ligne n'est plus actif. Pour le réactiver, je désactive le mode création, déprotège la feuille puis met le bouton au premier plan, mais le code obtenu par l'enregistreur n'est pas suffisant, j'ai une erreur 438 (propriété ou méthode non gérée par cet objet) quand j'essaie de l’utiliser à la fin de mon code de filtre élaboré, lors de la remise en place de l'autofilter.
With Sheets("CONSO") .Range("A1:DD500").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:A2"), _ CopyToRange:=Range("B5:K5") .Range("A1").AutoFilter .Unprotect .Shapes("CommandButton1").ShapeRange.ZOrder msoBringToFront 'erreur 438 End With
Merci pour toute aide J@@
Bonjour
J'ai fait ce code, qui a l'air de marcher
With Sheets("CONSO")
.Activate
.Unprotect
.Shapes("CommandButton1").Select
End With
Selection.ShapeRange.ZOrder msoBringToFront
@+
J@@
Le 27/07/2011 09:00, J@@ a écrit :
Bonjour à tous
Après rétablissement du filtre automatique sur la ligne A:A, le
commandbutton qui existe sur cette ligne n'est plus actif.
Pour le réactiver, je désactive le mode création, déprotège la feuille
puis met le bouton au premier plan, mais le code obtenu par
l'enregistreur n'est pas suffisant, j'ai une erreur 438 (propriété ou
méthode non gérée par cet objet) quand j'essaie de l’utiliser à la fin
de mon code de filtre élaboré, lors de la remise en place de l'autofilter.
With Sheets("CONSO") .Activate .Unprotect .Shapes("CommandButton1").Select End With Selection.ShapeRange.ZOrder msoBringToFront
@+ J@@
Le 27/07/2011 09:00, J@@ a écrit :
Bonjour à tous Après rétablissement du filtre automatique sur la ligne A:A, le commandbutton qui existe sur cette ligne n'est plus actif. Pour le réactiver, je désactive le mode création, déprotège la feuille puis met le bouton au premier plan, mais le code obtenu par l'enregistreur n'est pas suffisant, j'ai une erreur 438 (propriété ou méthode non gérée par cet objet) quand j'essaie de l’utiliser à la fin de mon code de filtre élaboré, lors de la remise en place de l'autofilter.