Code D'un Bouton a Modifier

[MuscatMimi]

Bonjour a toutes et a tous

Voila j'ai un petit soucis
j'ai ce code qui actuellement me sert sur ma feuille Accueil

'Option Explicit

Public FlgOk As Boolean 'Affiche ou Masque feuilles

'--Affichage ou Masquer les feuilles avec Mot de passe
Sub AffichageFeuilles()
Application.ScreenUpdating = False
Dim i As Integer, MesSht As String, TSht() As String, ValBn As String
'--Tableau des feuilles à AFFICHER/CACHER séparée par des virgule
MesSht = "Echéancier,INTERVENTIONS,ECHEANCE,N°Chéque,Machine" ',Echéancier Manuscrit"
TSht = Split(MesSht, ",")
'
'ActiveSheet.Shapes("BnAfficher").Select 'pour le shape
'ValBn = Selection.Characters.Text
'If ValBn = "Afficher les feuilles" Then 'pour le shape
If Sheets("Accueil").CommandButton12.Caption = "Afficher feuilles" Then 'pour le Btn

'--Demander le mot de passe
USF_Mdp.TextBox1.Value = ""
USF_Mdp.Show
If FlgOk = False Then
MsgBox "Mot de passe érroné !"
End If
'--Si OK, masquer les feuilles
For i = 0 To UBound(TSht)
Sheets(TSht(i)).Visible = xlSheetVisible
Next i
'Selection.Characters.Text = "Masquer les feuilles" 'pour le shape
Sheets("Accueil").CommandButton12.Caption = "Masquer les feuilles" 'pour le Btn
Else
For i = 0 To UBound(TSht)
Sheets(TSht(i)).Visible = xlSheetVeryHidden
Next i
'Selection.Characters.Text = "Afficher les feuilles" 'pour le shape
Sheets("Accueil").CommandButton12.Caption = "Afficher feuilles" 'pour le Btn
End If
Range("A1").Select 'pour le Btn
Application.ScreenUpdating = True 'pour le Btn
End Sub

Hors je viens de créer un usf qui regroupe tous les Btn,
qui étaient sur la feuille Accueil
je n'arrive pas à Modifier ce code pour que mon CommanButton6
Affiche et Masque mes feuilles

merci beaucoup a l'avance

Cordialement

 

[pierrejean]

Re : Code D'un Bouton a Modifier

Re

Essaie de remplacer:

[COLOR=#0000ff]Sheets("Accueil").CommandButton12.Caption [/COLOR]

par

NomDeTonUserform.CommandButton6.Caption

NomDeTonUserform a adapter !!

 

[MuscatMimi]

Re : Code D'un Bouton a Modifier

Bonjour pierrejean

En fait j'ai oubli de préciser que tout les Btn qui passe de ma feuille ,dans mon Usf, cet usf s'ouvre en taille maxi ecran, je sais pas s'il ya soucis de fermer ,ou non
cet usf quand je clique sur le CommandButton6 pour Afficher les feuilles

je viens de faire un essai avec ton code mais sans succés

Je vais sans doute être obligé de mettre mon appli en piéces jointe
s'il le faut

A +++++++

 

[pierrejean]

Re : Code D'un Bouton a Modifier

Re

As-tu bien

Sub Commandbutton6_click()
Call AffichageFeuilles
End sub

 

[MuscatMimi]

Re : Code D'un Bouton a Modifier

J'avoue rien comprendre

Dans mon Btn je met

Private Sub Commandbutton6_click()
Call AffichageFeuilles
End sub

Et le reste le code que j'ai joint, je le met dans un Module??? c'est ça
avec les modifs que tu m'a donné

 

[pierrejean]

Re : Code D'un Bouton a Modifier

Re

Oui c'est ça

Ou mettre le contenu de la macro dans
Private Sub Commandbutton6_click()
Avec Me en lieu et place de NomDeTonUsrform soit:
Me.Commandbutton6.Caption

 

[MuscatMimi]

Re : Code D'un Bouton a Modifier

Ok c'est bon j'ai enfin réussi, sauf que quand mon
Usf s'ouvre il n'i a aucun libéllé dans le bouton!!!!!

 

[pierrejean]

Re : Code D'un Bouton a Modifier

Re

Dans ce cas

Dans Userform_initialyze mets:
Me.Commandbutton6.caption="Afficher les feuilles"

 

[MuscatMimi]

Re : Code D'un Bouton a Modifier

Me.Commandbutton6.caption="Afficher les feuilles"

je l'ai déja essayé mais ça fonctionne pas comme le Btn qui était sur ma feuille

le btn sur ma feuille Affiche soit Afficher Feuilles ,,si elles ont masquées
ou
Masquer feuilles ,si elles sont affichées

la j'avoue pas comprendre

 

[pierrejean]

Re : Code D'un Bouton a Modifier

Re

Essaie de t'inspirer de ceci

Sinon poste ton fichier (ou du moins un exemple pour que l'on puisse te conseiller en detail)

 

[MuscatMimi]

Re : Code D'un Bouton a Modifier

bon je crois que c'est le mieux
donc voici mon appli


A + pierrejean, et merci de ton aide et de ta patience

 

[pierrejean]

Re : Code D'un Bouton a Modifier

Re

J'apprecie enormement ta confiance
Mais un petit peu d'attention reste tout de même utile
je te disais de mettre
Me.Commandbutton6.caption="Afficher les feuilles"
c'etait ce qui etait dans la sub AffichageFeuilles
En réalité il fallait:
Me.Commandbutton6.caption="Afficher feuilles"
c-a-d la même chose que dans la sub Commandbutton6_click

 

[MuscatMimi]

Re : Code D'un Bouton a Modifier

pardon, j'avoue pas comprendre
ton explication

essai si tu veux faire la modif dans mon fichier

 

[MuscatMimi]

Re : Code D'un Bouton a Modifier

Bonjour pierrejean, et a tout le forum

Je n'ai pas hésité a mettre mon fichier sur XLD,
étant donnée que je me suis investi ,bien sur a ce projet,
mais il va sans dire que bon nombres de personnes sur ce site m'ont aidé
sans elles,mon projet n'aurait pas vu le jour

j'ai prévu de le placer en téléchargement;ce qui, somme toute est la moindre des choses

De plus mon idée, est de placer ce fichier dans un post, afin de savoir s'il y a une ou
plusieurs personnes, qui voudrons bien contribuer a rendre cette appli en multi comptes
avec mot de passe pour chaque compte

Donc s'il y a un ou des candidats, partant, ce sera merveilleux


car pour l'instant cette appli ne fonctionne qu'avec un compte
bonne journée a tous