les user form

Version imprimable

Voir 40 message(s) de cette discussion en une page

les user form

bonjour,

je vous explique mon problème. Je passe par différents userform pour la saisie des données. Puis je voudrais savoir comment faire pour effectuer les calculs dans mes userform et que les résultats s'affichent dans une feuille excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Click()
 
    hauteur2p.Hide
    point2.Show
 
End Sub
 
Private Sub CommandButton2_Click()
If TextBox34.Value = "" Or TextBox35.Value = "" Or TextBox36.Value = "" Or TextBox37.Value = "" Then
MsgBox "Il manque des informations."
Else
'je les mets ici???
 
hauteur2p.Hide
Sheets("calcul1").Select
End If
End Sub
 
'hst station 1
Private Sub TextBox34_Change()
 
End Sub
 
'hv station 1
Private Sub TextBox35_Change()
 
End Sub
 
'hst station 2
Private Sub TextBox36_Change()
 
End Sub
 
'hv station 2
Private Sub TextBox37_Change()
 
End Sub

18/05/2008, 16h39
mayekeul

bonjour,

c'est un peu vague, tu veux faire quoi exactement?

Bon en fait pour le moment voila comment je m'y suis pris

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim p As Single
p = WorksheetFunction.pi 'permet d'utiliser le nombre pi
 
    If TextBox34.Value = "" Or TextBox35.Value = "" Or TextBox36.Value = "" Or TextBox37.Value = "" Then
        MsgBox "Il manque des informations."
 
    Else 'debut des calculs
        Range("calcul1!D17") = (Range("calcul1!B17").Value + Range("calcul1!C17").Value) / 2
            If Range("calcul1!D17").Value > 400 Then Range("calcul1!D17") = Range("calcul1!D17").Value - 400
            Else: Range("calcul1!D17") = Range("calcul1!D17").Value
            End If
        Range("calcul1!E18") = (Range("calcul1!E16").Value + Range("calcul1!D17").Value) - 200
        Range("calcul1!D19") = (Range("calcul1!B19").Value + Range("calcul1!C19").Value) / 2
 
            If Range("calcul1!D19").Value > 400 Then Range("calcul1!D19") = Range("calcul1!D19").Value - 400 Else Range("calcul1!D19") = Range("calcul1!D19").Value
            End If
 
        Range("calcul1!E20") = (Range("calcul1!E18").Value + Range("calcul1!D19").Value) - 200
        Range("calcul1!H19") = (Range("calcul1!G19").Value + Range("calcul1!G20").Value) / 2
        Range("calcul1!K19") = (Range("calcul1!G19").Value / (Tan(Range("calcul1!F19").Value * (p / 200)))) + TextBox34.Value - TextBox35.Value
        Range("calcul1!K20") = (Range("calcul1!G20").Value / (Tan(Range("calcul1!F20").Value * (p / 200)))) + TextBox36.Value - TextBox37.Value
    End If
 
hauteur2p.Hide
Sheets("calcul1").Select

mais je ne comprends pas j'ai des petits soucis avec les "IF/THEN/ELSE/END IF" VBA ne les accepte pas. pourquoi?

18/05/2008, 16h55
jbggg

Bon alors je viens de trouver pour le if then else

mais maintenant j'ai un soucis avec cette ligne

Code:

Range("calcul1!H19") = (Range("calcul1!G19").Value + Range("calcul1!G20").Value) / 2

il me dit erreur d'exécution 13

si tu essaye de ne mettre une seule instruction par ligne
le end if n'est pas nécessaire
néanmoins pour des raison de lisibilité lors de relecture
je te conseille plutot d'imbriquer tes condition d'une façon plus conventionnelle
comme suis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim p As Single
p = WorksheetFunction.Pi 'permet d'utiliser le nombre pi
 
    If TextBox34.Value = "" Or TextBox35.Value = "" Or TextBox36.Value = "" Or TextBox37.Value = "" Then
        MsgBox "Il manque des informations."
 
    Else 'debut des calculs
        Range("calcul1!D17") = (Range("calcul1!B17").Value + Range("calcul1!C17").Value) / 2
            If Range("calcul1!D17").Value > 400 Then
                Range("calcul1!D17") = Range("calcul1!D17").Value - 400
            Else
                Range("calcul1!D17") = Range("calcul1!D17").Value
            End If
        Range("calcul1!E18") = (Range("calcul1!E16").Value + Range("calcul1!D17").Value) - 200
        Range("calcul1!D19") = (Range("calcul1!B19").Value + Range("calcul1!C19").Value) / 2
 
            If Range("calcul1!D19").Value > 400 Then
                Range("calcul1!D19") = Range("calcul1!D19").Value - 400
            Else
                Range("calcul1!D19") = Range("calcul1!D19").Value
            End If
 
        Range("calcul1!E20") = (Range("calcul1!E18").Value + Range("calcul1!D19").Value) - 200
        Range("calcul1!H19") = (Range("calcul1!G19").Value + Range("calcul1!G20").Value) / 2
        Range("calcul1!K19") = (Range("calcul1!G19").Value / (Tan(Range("calcul1!F19").Value * (p / 200)))) + TextBox34.Value - TextBox35.Value
        Range("calcul1!K20") = (Range("calcul1!G20").Value / (Tan(Range("calcul1!F20").Value * (p / 200)))) + TextBox36.Value - TextBox37.Value
    End If
 
hauteur2p.Hide
Sheets("calcul1").Select

18/05/2008, 17h24
jbggg

ok et pour mon problème d'erreur. parce que je ne comprends vraiment pas d'ou cela peut venir
18/05/2008, 17h27
Invité

Bonjour,

Pour la ligne :
Range("calcul1!H19") = (Range("calcul1!G19").Value + Range("calcul1!G20").Value) / 2
qui provoque une erreur, vérifiez que G19 et/ ou G20 ne contiennent pas du texte ou des valeurs formatées en texte ou que les 2 ne soient pas vides.

non elles contiennent des chiffres. enfin je rentre des chiffres dedans mais voici comment elle sont déclarées:
Code:

1 2 3 4 'distance pt1 Private Sub TextBox36_Change() Range("calcul1!G19") = TextBox36 End Sub
Code:

1 2 3 4 'distance pt2 Private Sub TextBox51_Change() Range("calcul1!G20") = TextBox51 End Sub

18/05/2008, 17h50
Invité
Avez-vous vérifié avec Format , Cellules que c'est bien "Standard" qui est sélectionné ?

Etes-vous certain que lors de la saisie un espace n'a pas été tapé ?

Sinon essayez :
Code:

1 2 Range("calcul1!G19") = Val(TextBox36) Range("calcul1!G20") = Val(TextBox51)
18/05/2008, 17h58
jbggg

les cellules sont bien en standard

j'ai essayer avec VAL mais rien a faire
18/05/2008, 18h02
jbggg

je viens d'essayer en rentrant 1 de partout la VBA accepte.

mais alors tout mes calculs sont faux et ne respectent pas mes attentes et se que j'ai écris??

http://jb.gualini.free.fr/PB.JPG
18/05/2008, 18h34
Invité

J'avoue que je ne comprends pas très bien, j'ai fait l'essai avec votre ligne de code et les TextBox et ça fonctionne.

Avez-vous essayé en mode pas-à-pas.

Vous placez un point d'arrêt sur la ligne de code et vous lancez la macro.

Lorsque la fenêtre VBA s'affiche vous appuyez sur F8 puis vous amenez le curseur sur le 1er "Range" puis sur le 2ème et le 3ème.

Est-ce que les valeurs s'affichent bien ?
18/05/2008, 18h47
ouskel'n'or

Pour renseigner tes cellules G19 et G20 tu transferts directement tes "valeurs" depuis des textbox. Ta syntaxe transfert des "strings"
Pour une valeur, à la place de Range("calcul1!G19") = TextBox36, mets

Code:

Range("calcul1!G19") = TextBox36.value

Idem pour l'autre.
Tu dis.

(bonsoir Jacques Jean)
18/05/2008, 19h04
Invité

Bonsoir aussi Ouskel'n'or,

Quel idiot !

Moi bien sûr.

Et dire que c'est bien évidemment ce que j'ai mis dans le code pour faire l'essai.

Cela me met le moral à zéro pour ce soir. Pas de doute, je vieillis et il va falloir que je pense à raccrocher.
18/05/2008, 20h19
jbggg

ok merci je ne savais pas, mais alors comment lui dire que ce ne sera plus des integer ou long mais des single?
18/05/2008, 21h40
ouskel'n'or

Fais pas ça, Jacques Jean, tu ne vas pas me laisser tomber, si tu fais ça je me sentirai comme le dernier de mohicans :cry:
18/05/2008, 21h48
Pierre Fauconnier

Bonsoir

Citation:

Envoyé par jbggg

ok merci je ne savais pas, mais alors comment lui dire que ce ne sera plus des integer ou long mais des single?

A priori, Excel ne fait pas la différence entre les différents formats numériques.

Peux-tu préciser ta pensée?

P.S. pour Jacques Jean: Pas nous quitter, non, pas nous quitter... ;)
18/05/2008, 21h58
jbggg

alors j'ai bien mis textbox.value

mais lorsque, par exemple je rentre 2,123, dans un textbox, excel lui écrit 2 123
18/05/2008, 22h03
Pierre Fauconnier

Il faut voir quels sont les séparateurs (milliers et décimal) paramétrés.

Code:

Application.DecimalSeparator

et

Code:

Application.ThousandsSeparator

devraient te permettre d'adapter et de corriger la saisie

Ok?
18/05/2008, 22h16
ouskel'n'or

Bonsoir Pierre,
Ne faut-il pas rétablir les paramètres pour les autres nombres si on fait ça ?
C'est une "vrai" question ;)

Voir 40 message(s) de cette discussion en une page