Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel activer une feuille

activer une feuille

5 réponses
Avatar
mike2050
Bonjour à tous, j'ai un problème d'activation de feuille

voici le code que j'utilise :

Public Sub MAJ_Click()
Dim OkCliqué
'---------------------------------------------------------------
DelBouton 'lance la procédure qui supprime les boutons
'---------------------------------------------------------------
AddBouton 'lance la procédure qui ajoute les boutons
'---------------------------------------------------------------
TempoNonBloquant (1) 'lance la procédure de temporisation
'---------------------------------------------------------------
OkCliqué = MsgBox("les boutons ont été mis à jour avec succès", _
vbOKOnly, "Information") 'fait apparître un message de confirmation
If OkCliqué = vbOK Then
Workbooks("essai PET.xls").Activate
Feuil2.Select 'active la feuille n°2
End If
'---------------------------------------------------------------
End Sub

Friend Sub Worksheet_Activate()
'---------------------------------------------------------------
GroupeBoutons 'lance la procédure qui demande à chaque bouton
'd'ouvrir l'application GetOpen FileName
'---------------------------------------------------------------
End Sub

Evidemment ce code ne réactive pas la feuille 2 tel qu'il prétend le faire
en fait j'ai essayer de lancer la procédure GroupeBoutons directement,
utiliser l'adressage du type sheets("feuille 2").select ou
worksheets("feuille 2").activate et vice versa ou même un GoTo vers la
procédure Worksheet_Activate (qui n'a pas fonctionné non plus)
Bref, je désespère, si quelqu'un pouvait m'aider
Cette personne là serait super gentille!

Merci à tous
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Pounet95
Bonjour,
Je lis le message et tente de comprendre et, a priori,
un motme choque ( dans ce contexte du moins ! )

Qu'est-ce que le Friend devant le Sub WorkShet_Activate ?????


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"mike2050" a écrit dans le message de
news:
Bonjour à tous, j'ai un problème d'activation de feuille

voici le code que j'utilise :

Public Sub MAJ_Click()
Dim OkCliqué
'---------------------------------------------------------------
DelBouton 'lance la procédure qui supprime les boutons
'---------------------------------------------------------------
AddBouton 'lance la procédure qui ajoute les boutons
'---------------------------------------------------------------
TempoNonBloquant (1) 'lance la procédure de temporisation
'---------------------------------------------------------------
OkCliqué = MsgBox("les boutons ont été mis à jour avec succès", _
vbOKOnly, "Information") 'fait apparître un message de confirmation
If OkCliqué = vbOK Then
Workbooks("essai PET.xls").Activate
Feuil2.Select 'active la feuille n°2
End If
'---------------------------------------------------------------
End Sub

Friend Sub Worksheet_Activate()
'---------------------------------------------------------------
GroupeBoutons 'lance la procédure qui demande à chaque bouton
'd'ouvrir l'application GetOpen FileName
'---------------------------------------------------------------
End Sub

Evidemment ce code ne réactive pas la feuille 2 tel qu'il prétend le faire
en fait j'ai essayer de lancer la procédure GroupeBoutons directement,
utiliser l'adressage du type sheets("feuille 2").select ou
worksheets("feuille 2").activate et vice versa ou même un GoTo vers la
procédure Worksheet_Activate (qui n'a pas fonctionné non plus)
Bref, je désespère, si quelqu'un pouvait m'aider
Cette personne là serait super gentille!

Merci à tous


Avatar
mike2050
C'est un type de procédure qui permet de partager les variables il me semble!
Parce qu'en fait, j'ai aussi essayé en utilisant ce type de subterfuge mais
bien sûr, ça n'a pas fonctionné non plus!

Quoiqu'il en soit, le fait d'utiliser Friend ou Public ou encore Private
n'est pas la clé du problème...

merci quand même de m'aider!


Bonjour,
Je lis le message et tente de comprendre et, a priori,
un motme choque ( dans ce contexte du moins ! )

Qu'est-ce que le Friend devant le Sub WorkShet_Activate ?????


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"mike2050" a écrit dans le message de
news:
Bonjour à tous, j'ai un problème d'activation de feuille

voici le code que j'utilise :

Public Sub MAJ_Click()
Dim OkCliqué
'---------------------------------------------------------------
DelBouton 'lance la procédure qui supprime les boutons
'---------------------------------------------------------------
AddBouton 'lance la procédure qui ajoute les boutons
'---------------------------------------------------------------
TempoNonBloquant (1) 'lance la procédure de temporisation
'---------------------------------------------------------------
OkCliqué = MsgBox("les boutons ont été mis à jour avec succès", _
vbOKOnly, "Information") 'fait apparître un message de confirmation
If OkCliqué = vbOK Then
Workbooks("essai PET.xls").Activate
Feuil2.Select 'active la feuille n°2
End If
'---------------------------------------------------------------
End Sub

Friend Sub Worksheet_Activate()
'---------------------------------------------------------------
GroupeBoutons 'lance la procédure qui demande à chaque bouton
'd'ouvrir l'application GetOpen FileName
'---------------------------------------------------------------
End Sub

Evidemment ce code ne réactive pas la feuille 2 tel qu'il prétend le faire
en fait j'ai essayer de lancer la procédure GroupeBoutons directement,
utiliser l'adressage du type sheets("feuille 2").select ou
worksheets("feuille 2").activate et vice versa ou même un GoTo vers la
procédure Worksheet_Activate (qui n'a pas fonctionné non plus)
Bref, je désespère, si quelqu'un pouvait m'aider
Cette personne là serait super gentille!

Merci à tous






Avatar
Pounet95
Re,
Pour activer la feuille 2, la syntaxe est

Sheets("Feuil2").select
ou alors si une variable a été déclarée avant
Dim MaFeuille as Worksheet
Set MaFeuille="Sheest("Feuil2")

alors on peut avoir MaFeuille.selct


Est-ce mieux ????
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"mike2050" a écrit dans le message de
news:
Bonjour à tous, j'ai un problème d'activation de feuille

voici le code que j'utilise :

Public Sub MAJ_Click()
Dim OkCliqué
'---------------------------------------------------------------
DelBouton 'lance la procédure qui supprime les boutons
'---------------------------------------------------------------
AddBouton 'lance la procédure qui ajoute les boutons
'---------------------------------------------------------------
TempoNonBloquant (1) 'lance la procédure de temporisation
'---------------------------------------------------------------
OkCliqué = MsgBox("les boutons ont été mis à jour avec succès", _
vbOKOnly, "Information") 'fait apparître un message de confirmation
If OkCliqué = vbOK Then
Workbooks("essai PET.xls").Activate
Feuil2.Select 'active la feuille n°2
End If
'---------------------------------------------------------------
End Sub

Friend Sub Worksheet_Activate()
'---------------------------------------------------------------
GroupeBoutons 'lance la procédure qui demande à chaque bouton
'd'ouvrir l'application GetOpen FileName
'---------------------------------------------------------------
End Sub

Evidemment ce code ne réactive pas la feuille 2 tel qu'il prétend le faire
en fait j'ai essayer de lancer la procédure GroupeBoutons directement,
utiliser l'adressage du type sheets("feuille 2").select ou
worksheets("feuille 2").activate et vice versa ou même un GoTo vers la
procédure Worksheet_Activate (qui n'a pas fonctionné non plus)
Bref, je désespère, si quelqu'un pouvait m'aider
Cette personne là serait super gentille!

Merci à tous


Avatar
mike2050
Toujours pas...
AMHA, ça doit venir du module de classe que j'utilise pour affecter
l'application GetOpen FileName aux quelques 200boutons qui sont sur cette
feuille qui me fait des misères!
Ce module de classe intervient dans la procédure GroupeBoutons.
mais c'était une bonne idée de déclarer ma feuille comme étant une
variable...Je n'y avais pas pensé!


Re,
Pour activer la feuille 2, la syntaxe est

Sheets("Feuil2").select
ou alors si une variable a été déclarée avant
Dim MaFeuille as Worksheet
Set MaFeuille="Sheest("Feuil2")

alors on peut avoir MaFeuille.selct


Est-ce mieux ????
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"mike2050" a écrit dans le message de
news:
Bonjour à tous, j'ai un problème d'activation de feuille

voici le code que j'utilise :

Public Sub MAJ_Click()
Dim OkCliqué
'---------------------------------------------------------------
DelBouton 'lance la procédure qui supprime les boutons
'---------------------------------------------------------------
AddBouton 'lance la procédure qui ajoute les boutons
'---------------------------------------------------------------
TempoNonBloquant (1) 'lance la procédure de temporisation
'---------------------------------------------------------------
OkCliqué = MsgBox("les boutons ont été mis à jour avec succès", _
vbOKOnly, "Information") 'fait apparître un message de confirmation
If OkCliqué = vbOK Then
Workbooks("essai PET.xls").Activate
Feuil2.Select 'active la feuille n°2
End If
'---------------------------------------------------------------
End Sub

Friend Sub Worksheet_Activate()
'---------------------------------------------------------------
GroupeBoutons 'lance la procédure qui demande à chaque bouton
'd'ouvrir l'application GetOpen FileName
'---------------------------------------------------------------
End Sub

Evidemment ce code ne réactive pas la feuille 2 tel qu'il prétend le faire
en fait j'ai essayer de lancer la procédure GroupeBoutons directement,
utiliser l'adressage du type sheets("feuille 2").select ou
worksheets("feuille 2").activate et vice versa ou même un GoTo vers la
procédure Worksheet_Activate (qui n'a pas fonctionné non plus)
Bref, je désespère, si quelqu'un pouvait m'aider
Cette personne là serait super gentille!

Merci à tous






Avatar
mike2050
le problème venait du fait que le code n'était pas dans un module mais dans
la feuille...
tout bête mais quel embêtement!



Toujours pas...
AMHA, ça doit venir du module de classe que j'utilise pour affecter
l'application GetOpen FileName aux quelques 200boutons qui sont sur cette
feuille qui me fait des misères!
Ce module de classe intervient dans la procédure GroupeBoutons.
mais c'était une bonne idée de déclarer ma feuille comme étant une
variable...Je n'y avais pas pensé!


Re,
Pour activer la feuille 2, la syntaxe est

Sheets("Feuil2").select
ou alors si une variable a été déclarée avant
Dim MaFeuille as Worksheet
Set MaFeuille="Sheest("Feuil2")

alors on peut avoir MaFeuille.selct


Est-ce mieux ????
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"mike2050" a écrit dans le message de
news:
Bonjour à tous, j'ai un problème d'activation de feuille

voici le code que j'utilise :

Public Sub MAJ_Click()
Dim OkCliqué
'---------------------------------------------------------------
DelBouton 'lance la procédure qui supprime les boutons
'---------------------------------------------------------------
AddBouton 'lance la procédure qui ajoute les boutons
'---------------------------------------------------------------
TempoNonBloquant (1) 'lance la procédure de temporisation
'---------------------------------------------------------------
OkCliqué = MsgBox("les boutons ont été mis à jour avec succès", _
vbOKOnly, "Information") 'fait apparître un message de confirmation
If OkCliqué = vbOK Then
Workbooks("essai PET.xls").Activate
Feuil2.Select 'active la feuille n°2
End If
'---------------------------------------------------------------
End Sub

Friend Sub Worksheet_Activate()
'---------------------------------------------------------------
GroupeBoutons 'lance la procédure qui demande à chaque bouton
'd'ouvrir l'application GetOpen FileName
'---------------------------------------------------------------
End Sub

Evidemment ce code ne réactive pas la feuille 2 tel qu'il prétend le faire
en fait j'ai essayer de lancer la procédure GroupeBoutons directement,
utiliser l'adressage du type sheets("feuille 2").select ou
worksheets("feuille 2").activate et vice versa ou même un GoTo vers la
procédure Worksheet_Activate (qui n'a pas fonctionné non plus)
Bref, je désespère, si quelqu'un pouvait m'aider
Cette personne là serait super gentille!

Merci à tous