[RESOLU] Réduire un cadre

[zeltron24]

Bonjour à tous,

Je souhaiterai avoir votre aide pour réduire un cadre en fonction du nombre de TxtbBox affiché dans le formulaire.

Un TxtBox "TxtNombre" me donne le nombre. (de 2 à 8)
La Frame1 "Cadre" doit avoir une valeur (Height) pour 2 = 96 pour 3 = 120 pour 4 = 144 etc... de 24 en 24.

J'ai fait :

If Range("J2").Value = 2 Then
    Frm_Region.Cadre.Height = 96
Else
    Frm_Region.Cadre.Height = 246
End If

If Frm_Region.TxtNbrDep.Value = 3 Then
    Frm_Region.Cadre.Height = 120
Else
    Frm_Region.Cadre.Height = 246
End If

If Frm_Region.TxtNbrDep.Value = 4 Then
    Frm_Region.Cadre.Height = 144
Else
    Frm_Region.Cadre.Height = 246
End If

Mais cela ne fonctionne pas.
Merci d'avance.

 

[Staple1600]

Re : Réduire un cadre

Bonjour à tous

zeltron24
Était-ce vraiment utile d'ouvrir un second fil ? 🙄🙄
https://www.excel-downloads.com/threads/resolu-boucle-for.217939/