OVH Cloud OVH Cloud

Controle formulaire

5 réponses
Avatar
Claude
Bonjour,

J'ai un pb avec un contr=F4le de formulaire (une barre de=20
progression pour l'affichage des donn=E9es), =E0 chaque fois=20
que j'enregistre ou que j'ouvre le classeur elle se d=E9cale=20
jusqu'a sortir du graphique... comment faire pour qu'elle=20
soit "ancr=E9e"

Merci de vos pr=E9cieux conseils
Claude

5 réponses

Avatar
Lamelle
bonjour Claude,

es-tu sur d'avoir correctement renseigné dans ton
userform les propriétés Left,Top,Width, ou de ne pas dans
le code modifié une de ces propriétés avec une valeur qui
fasse sortir ton controle du UserForm ?

-----Message d'origine-----
Bonjour,

J'ai un pb avec un contrôle de formulaire (une barre de
progression pour l'affichage des données), à chaque fois
que j'enregistre ou que j'ouvre le classeur elle se
décale

jusqu'a sortir du graphique... comment faire pour
qu'elle

soit "ancrée"

Merci de vos précieux conseils
Claude
.



Avatar
michdenis
Bonjour Claude,

Tu peux utiliser quelque chose dans le genre...

lorsque ton formulaire est ouvert, la feuille n'est pas accessible directement, en conséquence, même si ta feuille n'est
pas protégée, il n'y a aucun problème ...! Tu n'as qu'à appeler la macro pour ce faire. Dans la procédure "Formulaire"
corrige le nom de la feuille pour qu'elle corresponde à ton programme... l'adresse de la cellule à la ligne suivante
doit être une cellule de ton tableau aussi !




Dans le ThisWorkbook de ton projet , copie ce qui suit :
'---------------
Private Sub Workbook_Activate()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = "Formulaire"
Next
End Sub
---------------
Private Sub Workbook_Deactivate()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = ""
Next
End Sub
---------------
Private Sub Workbook_Open()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = "Formulaire"
Next
End Sub
---------------


Dans un module standard :
'-------------------------
Sub AfficherFormulaire()

With Worksheets("Feuil2")
.Activate
.Unprotect
.Range("A1").Select
.ShowDataForm
.Protect
End With
End Sub
'-------------------------


Salutations!



"Claude" a écrit dans le message de news:e7b001c43ca9$b10f0e30$
Bonjour,

J'ai un pb avec un contrôle de formulaire (une barre de
progression pour l'affichage des données), à chaque fois
que j'enregistre ou que j'ouvre le classeur elle se décale
jusqu'a sortir du graphique... comment faire pour qu'elle
soit "ancrée"

Merci de vos précieux conseils
Claude
Avatar
michdenis
Désolé, ce message n'était pas destiné.


"michdenis" a écrit dans le message de news:
Bonjour Claude,

Tu peux utiliser quelque chose dans le genre...

lorsque ton formulaire est ouvert, la feuille n'est pas accessible directement, en conséquence, même si ta feuille n'est
pas protégée, il n'y a aucun problème ...! Tu n'as qu'à appeler la macro pour ce faire. Dans la procédure "Formulaire"
corrige le nom de la feuille pour qu'elle corresponde à ton programme... l'adresse de la cellule à la ligne suivante
doit être une cellule de ton tableau aussi !




Dans le ThisWorkbook de ton projet , copie ce qui suit :
'---------------
Private Sub Workbook_Activate()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = "Formulaire"
Next
End Sub
---------------
Private Sub Workbook_Deactivate()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = ""
Next
End Sub
---------------
Private Sub Workbook_Open()
For Each c In Application.CommandBars.FindControls(ID:†0)
c.OnAction = "Formulaire"
Next
End Sub
---------------


Dans un module standard :
'-------------------------
Sub AfficherFormulaire()

With Worksheets("Feuil2")
.Activate
.Unprotect
.Range("A1").Select
.ShowDataForm
.Protect
End With
End Sub
'-------------------------


Salutations!



"Claude" a écrit dans le message de news:e7b001c43ca9$b10f0e30$
Bonjour,

J'ai un pb avec un contrôle de formulaire (une barre de
progression pour l'affichage des données), à chaque fois
que j'enregistre ou que j'ouvre le classeur elle se décale
jusqu'a sortir du graphique... comment faire pour qu'elle
soit "ancrée"

Merci de vos précieux conseils
Claude
Avatar
Claude
A vrai dire je me suis servi des outils "Formulaires" et
en remplacant le controle "Barre de défilement"
par "Compteur" le pb ne se pose plus apparemment..
-----Message d'origine-----
bonjour Claude,

es-tu sur d'avoir correctement renseigné dans ton
userform les propriétés Left,Top,Width, ou de ne pas dans
le code modifié une de ces propriétés avec une valeur qui
fasse sortir ton controle du UserForm ?

-----Message d'origine-----
Bonjour,

J'ai un pb avec un contrôle de formulaire (une barre de
progression pour l'affichage des données), à chaque fois
que j'enregistre ou que j'ouvre le classeur elle se
décale

jusqu'a sortir du graphique... comment faire pour
qu'elle

soit "ancrée"

Merci de vos précieux conseils
Claude
.

.





Avatar
Lamelle
re bonjour Claude,

je crois que j'ai mal compris ton message.
Tu positionnes une ProgressBar sur une feuille et elle
disparait avec le scrolling vertical lorsque tes données
s'inscrivent sur celle-ci ?
Je viens de faire un essai chez moi et je n'ai pas de
problème.
Peux-tu préciser ?


-----Message d'origine-----
bonjour Claude,

es-tu sur d'avoir correctement renseigné dans ton
userform les propriétés Left,Top,Width, ou de ne pas
dans

le code modifié une de ces propriétés avec une valeur
qui

fasse sortir ton controle du UserForm ?

-----Message d'origine-----
Bonjour,

J'ai un pb avec un contrôle de formulaire (une barre de
progression pour l'affichage des données), à chaque
fois


que j'enregistre ou que j'ouvre le classeur elle se
décale

jusqu'a sortir du graphique... comment faire pour
qu'elle

soit "ancrée"

Merci de vos précieux conseils
Claude
.

.