afficher et masquer les textbox

Ilino

XLDnaute Barbatruc

• 21 Octobre 2012

• #16

Re : afficher et masquer les textbox

Bonjour JOB
SUPER ET UN GRAND MERCI
BON WEEK END😉

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 21 Octobre 2012

• #17

Re : afficher et masquer les textbox

Ilino à dit:

Re salut JOB , bonsoir Forum
Afin de progresser dans mon application, je voudrais ajouter une case sous forme d’une liste déroulante de monnaie « Euros ,Dollard …etc » devant textbox montant......
..................................... et je rajoute une autre colonne de classement.
Grazie

Cliquez pour agrandir...

Bonsoir Forum
Je vous sollicite pour résoudre la suite de mon programme .
Merçi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Octobre 2012

• #18

Re : afficher et masquer les textbox

Bonsoir Ilino,

Pour éviter tout souci de numérotation des objets il est plus simple d'ajuster la hauteur de l'USF :

Code:

Private Sub Combobox1_Change()
Dim hm As Single
Me.Height = 0
hm = Me.Height 'hauteur minimum
Me.Height = hm + 143 + 30 * Val(ComboBox1)
End Sub

Fichier (3).

Pour les monnaies, ajoutez les ComboBox adéquates, avec la même RowSource.

A+

 

Pièces jointes

• CEO 2012(3).xls

  73.5 KB · Affichages: 40

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Octobre 2012

• #19

Re : afficher et masquer les textbox

Re,

Sous Excel 2010 ce n'était pas très bien.

Et on peut masquer la barre de titre si 00 :

Code:

Private Sub Combobox1_Change()
Dim hm As Single, titre As Single
Me.Height = 0
hm = Me.Height 'hauteur minimum
titre = Frame1.Top + IIf(Val(ComboBox1), Frame1.Height, 0) - 5
Me.Height = hm + titre + 30 * Val(ComboBox1)
End Sub

Fichier (4).

A+

 

Pièces jointes

• CEO 2012(4).xls

  49 KB · Affichages: 53

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 21 Octobre 2012

• #20

Re : afficher et masquer les textbox

Salut Job, Bonsoir Forum:
merci pour la mise en forme du USF c'est une bonne idea... je vous pose un autre pblm supposons que j'ai plus que 08 soumissionnaire comment je doix faire pour adapter mon USF?

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 22 Octobre 2012

• #21

Re : afficher et masquer les textbox

Bonsoir,

Est-ce que 12 soumissionnaires sera suffisant ?

G

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 22 Octobre 2012

• #22

Re : afficher et masquer les textbox

Bonsoir Gelinotte
Franchement je ne peu pas savoir le nombre

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 22 Octobre 2012

• #23

Re : afficher et masquer les textbox

Bonsoir,

Dans ce cas, tu vas devoir apprendre à modifier le formulaire par toi même 🙄

Il y a quand même la restriction de l'affichage écran. Si tu as un écran qui bascule en portrait, on pourrait en ajouter un peu plus.


G

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 22 Octobre 2012

• #24

Re : afficher et masquer les textbox

Bonsoir,

M'enfin ... voici une version 16 soumissionnaires ... en cas

G

 

Pièces jointes

• CEO 2012_16_(6).xls

  80.5 KB · Affichages: 37

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 22 Octobre 2012

• #25

Re : afficher et masquer les textbox

bonjour tous 🙂🙂🙂🙂🙂l'ami Job🙂🙂
pourqu'oi pas s'orienter avec un frame & un scrollbars plus facile a gerer... apres en fonction des lignes desirees
on manipule que height frame & le scrollbar

j' ai rien coder... pas le temps
un exemple pour montrer la possibilitée

 

Pièces jointes

• CEO.xls

  81 KB · Affichages: 41

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2012

• #26

Re : afficher et masquer les textbox

Bonjour Ilino, Gelinotte, le forum,

Si le nombre de soumissionnaires peut être vraiment quelconque, il faut revoir la méthode.

Prévoir un tableau dans une feuille de calcul avec une ligne par soumissionnaire.

Et dans l'USF utiliser une ListBox ou une ListView.

Edit : bonjour Laetitia 🙂

A+

 

Dernière édition: 22 Octobre 2012

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 22 Octobre 2012

• #27

Re : afficher et masquer les textbox

Bonjour😀,

toujours dans le souci d'un minimum de contrôles, une autre présentation.

 

Pièces jointes

• Usf(MultiplesContrôlesSuccessifs).xls

  48 KB · Affichages: 36

Dernière édition: 23 Octobre 2012

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 22 Octobre 2012

• #28

Re : afficher et masquer les textbox

Bonsoir tout le monde
Encore je vous remercié tous le monde…
Cher collègue Fo_rum merçi et good idea ..mais j’ai trouvé un pblm lors du remplissage la zone du montant ???
Erreur de compilation ...?
saisie nombre !
Private Sub T6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 46 Or KeyAscii > 57 Or KeyAscii = 47 Then KeyAscii = 0
If KeyAscii = 46 Or KeyAscii = 44 Then KeyAscii = Asc(Application.International(xlDecimalSeparator))
If (KeyAscii = 44 And T6 Like ("*,*")) Or (KeyAscii = 46 And T6Like("*.*")) Then KeyAscii = 0
End Sub

 

Dernière édition: 22 Octobre 2012

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 23 Octobre 2012

• #29

Re : afficher et masquer les textbox

Re,

lors de la correction (noms changés), un espace a disparu après T6 :

...And T6 Like("*.*")) Then KeyAscii = 0

Cliquez pour agrandir...

Cette partie, permet d'éviter d'avoir plusieurs séparateurs (. ou ,).

 

Dernière édition: 23 Octobre 2012

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 23 Octobre 2012

• #30

Re : afficher et masquer les textbox

Re FO_rum
merci pour l'eclaircessement ça fonctionne mnt
d'autre remarque tjr sur votre propostion quand je saisie le nombre 10 de soumissionnaore j'aurai dans la liste un seule Why??
NB: Au delà de 8 soumissionnaires l’application commence a déborder ???😕

 

Dernière édition: 23 Octobre 2012

Vote positif 0 Vote négatif