Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à quoi
elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles portent
le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur 1".
Elle me sert de modèle dans ce classeur. Quand je duplique cette
feuille, le compteur est lui aussi copié, mais porte un autre nom
"Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à quoi
elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles portent
le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :
bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :
Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur 1".
Elle me sert de modèle dans ce classeur. Quand je duplique cette
feuille, le compteur est lui aussi copié, mais porte un autre nom
"Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à quoi
elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles portent
le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur 1".
Elle me sert de modèle dans ce classeur. Quand je duplique cette
feuille, le compteur est lui aussi copié, mais porte un autre nom
"Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à quoi
elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles portent
le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur 1".
Elle me sert de modèle dans ce classeur. Quand je duplique cette
feuille, le compteur est lui aussi copié, mais porte un autre nom
"Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :
Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à quoi
elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles portent
le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :
bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :
Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur 1".
Elle me sert de modèle dans ce classeur. Quand je duplique cette
feuille, le compteur est lui aussi copié, mais porte un autre nom
"Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à quoi
elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles portent
le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur 1".
Elle me sert de modèle dans ce classeur. Quand je duplique cette
feuille, le compteur est lui aussi copié, mais porte un autre nom
"Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
Comme dit dans mon 1° post, les compteurs ont étés créés avec la BO
formulaire.
Merci de te préoccuper de mon problème.
isabelle a écrit :bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à
quoi elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles
portent le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur
1". Elle me sert de modèle dans ce classeur. Quand je duplique
cette feuille, le compteur est lui aussi copié, mais porte un
autre nom "Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
Comme dit dans mon 1° post, les compteurs ont étés créés avec la BO
formulaire.
Merci de te préoccuper de mon problème.
isabelle a écrit :
bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :
Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à
quoi elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles
portent le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :
bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :
Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur
1". Elle me sert de modèle dans ce classeur. Quand je duplique
cette feuille, le compteur est lui aussi copié, mais porte un
autre nom "Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
Comme dit dans mon 1° post, les compteurs ont étés créés avec la BO
formulaire.
Merci de te préoccuper de mon problème.
isabelle a écrit :bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à
quoi elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles
portent le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur
1". Elle me sert de modèle dans ce classeur. Quand je duplique
cette feuille, le compteur est lui aussi copié, mais porte un
autre nom "Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
bonjour elect31,
voici un exemple : http://cjoint.com/?lkwZiJ1Yk8
isabelle
elect31 a écrit :Comme dit dans mon 1° post, les compteurs ont étés créés avec la BO
formulaire.
Merci de te préoccuper de mon problème.
isabelle a écrit :bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à
quoi elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles
portent le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur
1". Elle me sert de modèle dans ce classeur. Quand je duplique
cette feuille, le compteur est lui aussi copié, mais porte un
autre nom "Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
bonjour elect31,
voici un exemple : http://cjoint.com/?lkwZiJ1Yk8
isabelle
elect31 a écrit :
Comme dit dans mon 1° post, les compteurs ont étés créés avec la BO
formulaire.
Merci de te préoccuper de mon problème.
isabelle a écrit :
bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :
Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à
quoi elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles
portent le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :
bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :
Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur
1". Elle me sert de modèle dans ce classeur. Quand je duplique
cette feuille, le compteur est lui aussi copié, mais porte un
autre nom "Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
bonjour elect31,
voici un exemple : http://cjoint.com/?lkwZiJ1Yk8
isabelle
elect31 a écrit :Comme dit dans mon 1° post, les compteurs ont étés créés avec la BO
formulaire.
Merci de te préoccuper de mon problème.
isabelle a écrit :bonjour elect31,
avec quel objet as-tu créé les compteurs ? objet de la barre d'outils
dessin, formulaire ou control ?
isabelle
isabelle
elect31 a écrit :Bonjour isabelle
Je te réponds un peu tard ( je vois qu'une conversation s'est
engagée), mais je ne sais pas comment utiliser ta solution (ni à
quoi elle sert).
Je ré explique mon problème :
Cette feuille modèle qui est dupliquée contient des images et des
compteurs. Dans la feuille qui est dupliquée, les images portent le
même nom, mais pas les compteurs...
Une procédure générique (qui doit fonctionner quelle que soit la
feuille) manipule les images sans aucun problème puisqu'elles
portent le même nom, mais pas les compteurs...
Il me faut donc au préalable "identifier" ces compteurs pour que la
procédure puisse opérer sur la feuille active.
J'espère avoir été clair et merci de ta réponse et de celle de Fredo.
isabelle a écrit :bonjour élect31,
MsgBox Application.Caller
isabelle
elect31 a écrit :Bonjour à tous
Une feuille comporte un contrôle de formulaire appelé "Compteur
1". Elle me sert de modèle dans ce classeur. Quand je duplique
cette feuille, le compteur est lui aussi copié, mais porte un
autre nom "Compteur un autre N°".
Comment récupérer le nom de ce nouveau compteur, sachant qu'il y a
d'autres contrôles dans la feuille.
Merci de vos réponses
Oui! je vois le problème. Ce qui est difficile dans les posts, c'est
d'expliquer correctement ce que l'on veut.
Dans ton exemple Isabelle, le caller réagit quand on clique sur le
bouton. Dans mon classeur, je voudrais masquer ce compteur en cliquant
sur le cadenas (le mot de passe est bob). Je n'ai pas besoin de
cliquer sur le compteur lui même.
Tu verras dans le fichier de cjoint que la feuille intitulée
13_10_2009 fonctionne bien, mais que la suivante (qui est une copie)
te mets en debogage et s'arrête sur un nom de compteur qui n'existe
pas dans cette feuille.
J'aurais du joindre mon fichier plus tôt peut être.???
http://cjoint.com/?lkxisArBZF
De toutes façons, merci à cette communauté bien sympathique.
elect
Oui! je vois le problème. Ce qui est difficile dans les posts, c'est
d'expliquer correctement ce que l'on veut.
Dans ton exemple Isabelle, le caller réagit quand on clique sur le
bouton. Dans mon classeur, je voudrais masquer ce compteur en cliquant
sur le cadenas (le mot de passe est bob). Je n'ai pas besoin de
cliquer sur le compteur lui même.
Tu verras dans le fichier de cjoint que la feuille intitulée
13_10_2009 fonctionne bien, mais que la suivante (qui est une copie)
te mets en debogage et s'arrête sur un nom de compteur qui n'existe
pas dans cette feuille.
J'aurais du joindre mon fichier plus tôt peut être.???
http://cjoint.com/?lkxisArBZF
De toutes façons, merci à cette communauté bien sympathique.
elect
Oui! je vois le problème. Ce qui est difficile dans les posts, c'est
d'expliquer correctement ce que l'on veut.
Dans ton exemple Isabelle, le caller réagit quand on clique sur le
bouton. Dans mon classeur, je voudrais masquer ce compteur en cliquant
sur le cadenas (le mot de passe est bob). Je n'ai pas besoin de
cliquer sur le compteur lui même.
Tu verras dans le fichier de cjoint que la feuille intitulée
13_10_2009 fonctionne bien, mais que la suivante (qui est une copie)
te mets en debogage et s'arrête sur un nom de compteur qui n'existe
pas dans cette feuille.
J'aurais du joindre mon fichier plus tôt peut être.???
http://cjoint.com/?lkxisArBZF
De toutes façons, merci à cette communauté bien sympathique.
elect
bonjour elect31,
j'ai modifié la macro comme ceci :
Sub cadenas()
Dim version_Xl As String
version_Xl = Application.Version
autorisation = False
Application.ScreenUpdating = False
Dim sh As Object, i As Integer
Dim Lescompteurs(3)
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 7) = "Spinner" Then
i = i + 1
Lescompteurs(i) = sh.Name
End If
Next
With ActiveSheet
If .Shapes("Picture 30").Visible = True Then 'cadenas ouvert
'Protéger
.Shapes("Image 7").Visible = False 'gomme
.Shapes("Image1").Visible = False 'Abbal
.Shapes("Picture 33").Visible = True
.Shapes("Picture 30").Visible = False
.Shapes(Lescompteurs(1)).Visible = False
.Shapes(Lescompteurs(2)).Visible = False
.Shapes(Lescompteurs(3)).Visible = False
.Shapes("Image 5").Visible = False
.Shapes("Image 6").Visible = False
.ChkBxAtt.Enabled = False
.ChkBxConn.Enabled = False
.ChkBxCapAppuis.Enabled = False
.ChkBxCapDiff.Enabled = False
With ActiveWindow 'Config affichage
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayHeadings = False
End With
With Application
.CommandBars("Cell").Enabled = False 'virer le clic droit
.DisplayFullScreen = True
'.DisplayFormulaBar = False
.Caption = "Collège A.Abbal CARBONNE"
'Empecher le copier-coller dans la feuille
.CutCopyMode = False
If version_Xl = "11.0" Then
.CommandBars("worksheet menu bar").Enabled = False
End If
End With
zoom_feuille
hauteur_lignes
masquer_stats
.Protect
ElseIf .Shapes("Picture 33").Visible = True Then 'cadenas fermé
'Déprotéger
UFrmPassWord.Show
If autorisation = False Then
Exit Sub
ElseIf autorisation = True Then
.Shapes("Image 7").Visible = True
.Shapes("Image1").Visible = True
.Shapes("Picture 33").Visible = False
.Shapes("Picture 30").Visible = True
.Shapes(Lescompteurs(1)).Visible = False
.Shapes(Lescompteurs(2)).Visible = False
.Shapes(Lescompteurs(3)).Visible = False
.Shapes("Image 5").Visible = True
.Shapes("Image 6").Visible = True
.ChkBxAtt.Enabled = True
.ChkBxConn.Enabled = True
.ChkBxCapAppuis.Enabled = True
.ChkBxCapDiff.Enabled = True
With ActiveWindow 'Config
affichage
.DisplayWorkbookTabs = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayHeadings = True
End With
With Application
.CommandBars("Cell").Enabled = True 'rétablir
le clic droit
.DisplayFullScreen = False
.DisplayFormulaBar = True
.Caption = Empty
.CutCopyMode = True
If version_Xl = "11.0" Then
.CommandBars("worksheet menu bar").Enabled = True
End If
End With
zoom_feuille
hauteur_lignes
End If
.Unprotect
End If
End With
Application.ScreenUpdating = True
End Sub
isabelle
elect31 a écrit :Oui! je vois le problème. Ce qui est difficile dans les posts, c'est
d'expliquer correctement ce que l'on veut.
Dans ton exemple Isabelle, le caller réagit quand on clique sur le
bouton. Dans mon classeur, je voudrais masquer ce compteur en cliquant
sur le cadenas (le mot de passe est bob). Je n'ai pas besoin de
cliquer sur le compteur lui même.
Tu verras dans le fichier de cjoint que la feuille intitulée
13_10_2009 fonctionne bien, mais que la suivante (qui est une copie)
te mets en debogage et s'arrête sur un nom de compteur qui n'existe
pas dans cette feuille.
J'aurais du joindre mon fichier plus tôt peut être.???
http://cjoint.com/?lkxisArBZF
De toutes façons, merci à cette communauté bien sympathique.
elect
bonjour elect31,
j'ai modifié la macro comme ceci :
Sub cadenas()
Dim version_Xl As String
version_Xl = Application.Version
autorisation = False
Application.ScreenUpdating = False
Dim sh As Object, i As Integer
Dim Lescompteurs(3)
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 7) = "Spinner" Then
i = i + 1
Lescompteurs(i) = sh.Name
End If
Next
With ActiveSheet
If .Shapes("Picture 30").Visible = True Then 'cadenas ouvert
'Protéger
.Shapes("Image 7").Visible = False 'gomme
.Shapes("Image1").Visible = False 'Abbal
.Shapes("Picture 33").Visible = True
.Shapes("Picture 30").Visible = False
.Shapes(Lescompteurs(1)).Visible = False
.Shapes(Lescompteurs(2)).Visible = False
.Shapes(Lescompteurs(3)).Visible = False
.Shapes("Image 5").Visible = False
.Shapes("Image 6").Visible = False
.ChkBxAtt.Enabled = False
.ChkBxConn.Enabled = False
.ChkBxCapAppuis.Enabled = False
.ChkBxCapDiff.Enabled = False
With ActiveWindow 'Config affichage
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayHeadings = False
End With
With Application
.CommandBars("Cell").Enabled = False 'virer le clic droit
.DisplayFullScreen = True
'.DisplayFormulaBar = False
.Caption = "Collège A.Abbal CARBONNE"
'Empecher le copier-coller dans la feuille
.CutCopyMode = False
If version_Xl = "11.0" Then
.CommandBars("worksheet menu bar").Enabled = False
End If
End With
zoom_feuille
hauteur_lignes
masquer_stats
.Protect
ElseIf .Shapes("Picture 33").Visible = True Then 'cadenas fermé
'Déprotéger
UFrmPassWord.Show
If autorisation = False Then
Exit Sub
ElseIf autorisation = True Then
.Shapes("Image 7").Visible = True
.Shapes("Image1").Visible = True
.Shapes("Picture 33").Visible = False
.Shapes("Picture 30").Visible = True
.Shapes(Lescompteurs(1)).Visible = False
.Shapes(Lescompteurs(2)).Visible = False
.Shapes(Lescompteurs(3)).Visible = False
.Shapes("Image 5").Visible = True
.Shapes("Image 6").Visible = True
.ChkBxAtt.Enabled = True
.ChkBxConn.Enabled = True
.ChkBxCapAppuis.Enabled = True
.ChkBxCapDiff.Enabled = True
With ActiveWindow 'Config
affichage
.DisplayWorkbookTabs = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayHeadings = True
End With
With Application
.CommandBars("Cell").Enabled = True 'rétablir
le clic droit
.DisplayFullScreen = False
.DisplayFormulaBar = True
.Caption = Empty
.CutCopyMode = True
If version_Xl = "11.0" Then
.CommandBars("worksheet menu bar").Enabled = True
End If
End With
zoom_feuille
hauteur_lignes
End If
.Unprotect
End If
End With
Application.ScreenUpdating = True
End Sub
isabelle
elect31 a écrit :
Oui! je vois le problème. Ce qui est difficile dans les posts, c'est
d'expliquer correctement ce que l'on veut.
Dans ton exemple Isabelle, le caller réagit quand on clique sur le
bouton. Dans mon classeur, je voudrais masquer ce compteur en cliquant
sur le cadenas (le mot de passe est bob). Je n'ai pas besoin de
cliquer sur le compteur lui même.
Tu verras dans le fichier de cjoint que la feuille intitulée
13_10_2009 fonctionne bien, mais que la suivante (qui est une copie)
te mets en debogage et s'arrête sur un nom de compteur qui n'existe
pas dans cette feuille.
J'aurais du joindre mon fichier plus tôt peut être.???
http://cjoint.com/?lkxisArBZF
De toutes façons, merci à cette communauté bien sympathique.
elect
bonjour elect31,
j'ai modifié la macro comme ceci :
Sub cadenas()
Dim version_Xl As String
version_Xl = Application.Version
autorisation = False
Application.ScreenUpdating = False
Dim sh As Object, i As Integer
Dim Lescompteurs(3)
For Each sh In ActiveSheet.Shapes
If Left(sh.Name, 7) = "Spinner" Then
i = i + 1
Lescompteurs(i) = sh.Name
End If
Next
With ActiveSheet
If .Shapes("Picture 30").Visible = True Then 'cadenas ouvert
'Protéger
.Shapes("Image 7").Visible = False 'gomme
.Shapes("Image1").Visible = False 'Abbal
.Shapes("Picture 33").Visible = True
.Shapes("Picture 30").Visible = False
.Shapes(Lescompteurs(1)).Visible = False
.Shapes(Lescompteurs(2)).Visible = False
.Shapes(Lescompteurs(3)).Visible = False
.Shapes("Image 5").Visible = False
.Shapes("Image 6").Visible = False
.ChkBxAtt.Enabled = False
.ChkBxConn.Enabled = False
.ChkBxCapAppuis.Enabled = False
.ChkBxCapDiff.Enabled = False
With ActiveWindow 'Config affichage
.DisplayWorkbookTabs = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayHeadings = False
End With
With Application
.CommandBars("Cell").Enabled = False 'virer le clic droit
.DisplayFullScreen = True
'.DisplayFormulaBar = False
.Caption = "Collège A.Abbal CARBONNE"
'Empecher le copier-coller dans la feuille
.CutCopyMode = False
If version_Xl = "11.0" Then
.CommandBars("worksheet menu bar").Enabled = False
End If
End With
zoom_feuille
hauteur_lignes
masquer_stats
.Protect
ElseIf .Shapes("Picture 33").Visible = True Then 'cadenas fermé
'Déprotéger
UFrmPassWord.Show
If autorisation = False Then
Exit Sub
ElseIf autorisation = True Then
.Shapes("Image 7").Visible = True
.Shapes("Image1").Visible = True
.Shapes("Picture 33").Visible = False
.Shapes("Picture 30").Visible = True
.Shapes(Lescompteurs(1)).Visible = False
.Shapes(Lescompteurs(2)).Visible = False
.Shapes(Lescompteurs(3)).Visible = False
.Shapes("Image 5").Visible = True
.Shapes("Image 6").Visible = True
.ChkBxAtt.Enabled = True
.ChkBxConn.Enabled = True
.ChkBxCapAppuis.Enabled = True
.ChkBxCapDiff.Enabled = True
With ActiveWindow 'Config
affichage
.DisplayWorkbookTabs = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayHeadings = True
End With
With Application
.CommandBars("Cell").Enabled = True 'rétablir
le clic droit
.DisplayFullScreen = False
.DisplayFormulaBar = True
.Caption = Empty
.CutCopyMode = True
If version_Xl = "11.0" Then
.CommandBars("worksheet menu bar").Enabled = True
End If
End With
zoom_feuille
hauteur_lignes
End If
.Unprotect
End If
End With
Application.ScreenUpdating = True
End Sub
isabelle
elect31 a écrit :Oui! je vois le problème. Ce qui est difficile dans les posts, c'est
d'expliquer correctement ce que l'on veut.
Dans ton exemple Isabelle, le caller réagit quand on clique sur le
bouton. Dans mon classeur, je voudrais masquer ce compteur en cliquant
sur le cadenas (le mot de passe est bob). Je n'ai pas besoin de
cliquer sur le compteur lui même.
Tu verras dans le fichier de cjoint que la feuille intitulée
13_10_2009 fonctionne bien, mais que la suivante (qui est une copie)
te mets en debogage et s'arrête sur un nom de compteur qui n'existe
pas dans cette feuille.
J'aurais du joindre mon fichier plus tôt peut être.???
http://cjoint.com/?lkxisArBZF
De toutes façons, merci à cette communauté bien sympathique.
elect
