Userform

[sarmerou08]

bonjour le forum,
reBonjour Robert,

j'ai quelques questions à vous posez concernant le programme.
1) comment caher le bouton userform après exécution (touche valider)?
2) comme tu l'as constaté j'ai deux type de média (fibre synthétique et fibre de verre) je souhaitrai associer à chaque média à un programme propre exemple pour le média de verre:
Sub MediaVerre()
'
' MediaVerre Macro
' Macro recorded 23/06/2009 by abdillah ali
'
' Calcul des limites des paramètres XL500 GTC Cr1
' Définition des données Site Cr1

Dim Qt As Long ' Débit total de souflage CTA
Dim NC As Long ' Nombre total de cellules filtrantes

'Definition des données constructeurs


Dim DPn As Integer ' Perte de Charge nominale
Dim DPf As Integer ' Perte de charge finale fixée (target)
Dim DPmes As Integer ' Perte de charge mesurée (target)
Dim A As Double ' Coef de la parabole
Dim B As Double ' Coef de la parabole
Dim C As Double ' Coef de la parabole

' Définition des variables

Dim ratio As Double ' Rapport de la perte de charge finale sur nominale
Dim DPd As Double ' Perte de charge dependant du débit de souflage
Dim DPlim As Double ' Perte de charge limite calculée
Dim Qu As Double ' Débit par Cellule

Sheets("GTC_Cr200").Select
Qt = Cells(8, 3)
A = Cells(9, 8)
NC = Cells(9, 3)
B = Cells(10, 8)
C = Cells(11, 8)
DPn = Cells(12, 8)
DPf = Cells(13, 8)
DPmes = Cells(10, 3)

'Calcul et return de la valeur du ratio dans la cellule
ratio = DPf / DPn
Cells(8, 12) = ratio

'Calcul du débit unitaire (par cellule)
Qu = Qt / NC
Cells(9, 12) = Qu

' Calcul de la perte de charge intermédiaire
DPd = A * Qu ^ 2 + B * Qu + C
Cells(10, 12) = DPd

' Calcul de la perte de charge limite
DPlim = ratio * DPd
Cells(11, 12) = DPlim

If DPmes < DPlim Then
MsgBox "Bon fonctionnement"
Else
MsgBox " Attention Changer les filtres"

End If

'
End Sub
Sub EntrésDonnées()
'
' EntrésDonnées Macro
' Macro recorded 23/06/2009 by abdillah ali
'

Dim ValeurDébit As Long
Dim ValeurNC As Long
Dim ValeurTypeF As String

Sheets("GTC_Cr200").Select

ValeurDébit = Replace(InputBox("Entrez la valeur du débit :", _
"Demande de valeur"), ".", ",")
Cells(8, 3) = ValeurDébit

ValeurNC = Replace(InputBox("Entrez la valeur du Nombre de Cellules :", _
"Demande de valeur"), ".", ",")
Cells(9, 3) = ValeurNC

ValeurDPmes = Replace(InputBox("Entrez la valeur mesurée :", _
"Demande de valeur"), ".", ",")
Cells(10, 3) = ValeurDPmes

'
End Sub

le programme marche bien, j'aurai quasiment la même chose à une constante près pour le médi synthétique.

3) et en fin comment obligé la fenetre localisation de userform que vous m'avez fait à appareitre sur une page bien définie?

merci de votre compréhension.

Cdlt,
sarmerou08

 

[mécano41]

Re : Userform

Bonjour,

Il ne faut pas créer plusieurs messages pour un même sujet... Je pense qu'il faudrait demander à un modérateur de renvoyer ce message dans le sujet d'origine.

Cordialement