Annuler textbox si cellule vide et redimentionnement interface

[KyFranRD]

Bonjour

Je désire savoir comment supprimer un ou plusieurs texbox dans une interface si leurs cellules correspondantes sont vides?

Voir fichier

Merci à l'avance

 

[phlaurent55]

Re : Annuler textbox si cellule vide et redimentionnement interface

Bonjour KyFranrd,

avec ceci:

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

 

[KyFranRD]

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

 

[phlaurent55]

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

 

[job75]

Re : Annuler textbox si cellule vide et redimentionnement interface

Bonjour KyFranRD, salut Philippe 🙂

Une autre solution :

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+

 

[KyFranRD]

Re : Annuler textbox si cellule vide et redimentionnement interface

ok je te remercie

bon ben je m'y emploie dans ce cas 😉

 

[KyFranRD]

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

 

[job75]

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+