les user form

**jbggg** · 18/05/2008, 17h05

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**mayekeul** · 18/05/2008, 17h39

bonjour,

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

**jbggg** · 18/05/2008, 17h45

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

**jbggg** · 18/05/2008, 17h55

Bon alors je viens de trouver pour le if then else

mais maintenant j'ai un soucis avec cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

il me dit erreur d'exécution 13

**mayekeul** · 18/05/2008, 18h00

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**jbggg** · 18/05/2008, 18h24

ok et pour mon problème d'erreur. parce que je ne comprends vraiment pas d'ou cela peut venir

Invité · 18/05/2008, 18h27

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.

**jbggg** · 18/05/2008, 18h34

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Invité · 18/05/2008, 18h50

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("calcul1!G19") = Val(TextBox36)
Range("calcul1!G20") = Val(TextBox51)

**jbggg** · 18/05/2008, 18h58

les cellules sont bien en standard

j'ai essayer avec VAL mais rien a faire

**jbggg** · 18/05/2008, 19h02

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??

Invité · 18/05/2008, 19h34

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 ?

**ouskel'n'or** · 18/05/2008, 19h47

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Idem pour l'autre.
Tu dis.

(bonsoir Jacques Jean)

Invité · 18/05/2008, 20h04

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.

**jbggg** · 18/05/2008, 21h19

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

**ouskel'n'or** · 18/05/2008, 22h40

Fais pas ça, Jacques Jean, tu ne vas pas me laisser tomber, si tu fais ça je me sentirai comme le dernier de mohicans

**Pierre Fauconnier** · 18/05/2008, 22h48

Bonsoir

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...