Annuler textbox si cellule vide et redimentionnement interface

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Septembre 2012

• #2

Re : Annuler textbox si cellule vide et redimentionnement interface

Bonjour KyFranrd,

avec ceci:

Code:

Private Sub CommandButton1_Click()

' Renvoie des valeurs dans textbox(s)

UserForm1.TextBox1.Value = Range("B4").Value
UserForm1.TextBox2.Value = Range("B5").Value
UserForm1.TextBox3.Value = Range("B6").Value
UserForm1.TextBox4.Value = Range("B7").Value
UserForm1.TextBox5.Value = Range("B8").Value

For i = 1 To 5
If UserForm1.Controls("textbox" & i).Value = "" Then
UserForm1.Controls("textbox" & i).Visible = False
End If
Next i

Load UserForm1
UserForm1.Show
Unload UserForm1
End Sub

à+
Philippe

 

Pièces jointes

• 111.xls

  43 KB · Affichages: 29
• 111.xls

  43 KB · Affichages: 33
• 111.xls

  43 KB · Affichages: 31

Vote positif 0 Vote négatif

K

KyFranRD

XLDnaute Occasionnel

• 18 Septembre 2012

• #3

Re : Annuler textbox si cellule vide et redimentionnement interface

bonjour phlaurent55

cela fonctionne trés bien.

Par contre peux tu me dire s'il existe une façon de redimentionner une interface autrement que de créer des conditions et me servir de la propriété HEIGHT liée à ce userform?

merci

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 18 Septembre 2012

• #4

Re : Annuler textbox si cellule vide et redimentionnement interface

Re,

bien sûr cela est possible mais dans ce cas, si il n'y a que les 2, 3, 4 ou 5 derniers TBox à afficher, il faudra (en plus du redimensionnement de l'usf ) déplacer la position des TBox restants affichés

......de la joie en perspective

à+
Philippe

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Septembre 2012

• #5

Re : Annuler textbox si cellule vide et redimentionnement interface

Bonjour KyFranRD, salut Philippe 🙂

Une autre solution :

Code:

Private Sub CommandButton1_Click()
Dim cel As Range, n As Byte
With UserForm1
.Height = 36
  For Each cel In [B4:B8]
    If cel <> "" Then
      n = n + 1
      .Controls("TextBox" & n) = cel
      .Height = .Height + 42
    End If
  Next
.Show
End With
End Sub

Fichier joint.

A+

 

Pièces jointes

• Annuler textbox vide(1).xls

  35 KB · Affichages: 32

Vote positif 0 Vote négatif

K

KyFranRD

XLDnaute Occasionnel

• 18 Septembre 2012

• #6

Re : Annuler textbox si cellule vide et redimentionnement interface

ok je te remercie

bon ben je m'y emploie dans ce cas 😉

 

Vote positif 0 Vote négatif

K

KyFranRD

XLDnaute Occasionnel

• 18 Septembre 2012

• #7

Re : Annuler textbox si cellule vide et redimentionnement interface

bonjour job

ok j'ai testé les deux version et je pense fusionner les deux


merci bien

 

Dernière édition: 18 Septembre 2012

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Septembre 2012

• #8

Re : Annuler textbox si cellule vide et redimentionnement interface

Re,

Noter que la hauteur initiale de l'USF est 36 pour Excel 2003.

Sur Excel 2010 elle doit être fixée à 32.

Le pas de 42 est bon dans les 2 versions.

A+

 

Vote positif 0 Vote négatif