Discussion :

[jbggg]

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]

bonjour,

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

[jbggg]

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]

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]

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]

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

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

[jbggg]

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