Voila, sous XL97, mon classeur a 8 feuilles et au démarrage, s'affiche
toujours la première feuille (1er onglet).
sur cette feuille, j'ai placé un CommandBouton "QUITTER" qui sauvegarde
avec une copie de secours, replacement barres d'outils et diverses autres
actions avant de quitter EXCEL. (c'est un essai, car si cela fonctionne je
compte faire de même avec les autres boutons que je serai amené à
positionner) :-)
Ce que je recherche à faire : plutôt que d'avoir a recopier le
ComandBouton d'onglet en onglet pour l'avoir toujours à disposition, je
souhaiterai que ce fameux bouton se déplace automatiquement quand j'active
un autre onglet.!! est-ce possible ? et in ptit coup de pouce serait le
bienvenu.
Merci d'avance.
--
MesNews : www.mesnews.net
Forum : news://news.zoo-logique.org/MesNews
Identifiant = zoo & MdP = entrer
On ne dit pas "POLEMIQUER" mais "Paul et sa souris"
*anonymousA* a loupé la marche et s'est rattrapé au clavier de son PC qui, par miracle a transcrit ce qui suit :
Etrange que Set bt = Sheets("INVENTAIRE").Buttons("toto")ne fonctionne pas chez toi avec bt défini as button. Button est une classe d'objet masquée mais reconnue comme valide par VBA. Chez moi, il n'y a aucune diffculté. Peut-être une affaire de références déclarées différentes ?
A+
aïe...merdum...erratum... mdr mdr
je recommenceume
Private Sub Workbook_SheetActivate(ByVal Sh As Object) screenupdatig = False Dim bt As Object With Sh If .Name <> "INVENTAIRE" Then Set bt = Sheets("INVENTAIRE").Buttons("toto") On Error Resume Next Set butt = .Buttons("toto") If Err <> 0 Then bt.Copy .Range("m3").Select .Paste End If End If End With Range("c3").Select
J'ai ajouté Range ci-dessus, autrement le bouton était toujours sélectionné de feuille en feuille
End Sub
:D
-- MesNews : www.mesnews.net Forum : news://news.zoo-logique.org/MesNews Identifiant = zoo & MdP = entrer On ne dit pas javéliser, mais j'ai lu.
*anonymousA* a loupé la marche et s'est rattrapé au clavier de son PC
qui, par miracle a transcrit ce qui suit :
Etrange que Set bt = Sheets("INVENTAIRE").Buttons("toto")ne fonctionne
pas chez toi avec bt défini as button. Button est une classe d'objet
masquée mais reconnue comme valide par VBA.
Chez moi, il n'y a aucune diffculté. Peut-être une affaire de références
déclarées différentes ?
A+
aïe...merdum...erratum... mdr mdr
je recommenceume
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
screenupdatig = False
Dim bt As Object
With Sh
If .Name <> "INVENTAIRE" Then
Set bt = Sheets("INVENTAIRE").Buttons("toto")
On Error Resume Next
Set butt = .Buttons("toto")
If Err <> 0 Then
bt.Copy
.Range("m3").Select
.Paste
End If
End If
End With
Range("c3").Select
J'ai ajouté Range ci-dessus, autrement le bouton était toujours
sélectionné de feuille en feuille
End Sub
:D
--
MesNews : www.mesnews.net
Forum : news://news.zoo-logique.org/MesNews
Identifiant = zoo & MdP = entrer
On ne dit pas javéliser, mais j'ai lu.
*anonymousA* a loupé la marche et s'est rattrapé au clavier de son PC qui, par miracle a transcrit ce qui suit :
Etrange que Set bt = Sheets("INVENTAIRE").Buttons("toto")ne fonctionne pas chez toi avec bt défini as button. Button est une classe d'objet masquée mais reconnue comme valide par VBA. Chez moi, il n'y a aucune diffculté. Peut-être une affaire de références déclarées différentes ?
A+
aïe...merdum...erratum... mdr mdr
je recommenceume
Private Sub Workbook_SheetActivate(ByVal Sh As Object) screenupdatig = False Dim bt As Object With Sh If .Name <> "INVENTAIRE" Then Set bt = Sheets("INVENTAIRE").Buttons("toto") On Error Resume Next Set butt = .Buttons("toto") If Err <> 0 Then bt.Copy .Range("m3").Select .Paste End If End If End With Range("c3").Select
J'ai ajouté Range ci-dessus, autrement le bouton était toujours sélectionné de feuille en feuille
End Sub
:D
-- MesNews : www.mesnews.net Forum : news://news.zoo-logique.org/MesNews Identifiant = zoo & MdP = entrer On ne dit pas javéliser, mais j'ai lu.
