Discussion :

[tompom3108]

Bonjour à tous,
j'ai une erreur sûrement facile à déceler mais biensûr pas à mon niveau donc je fais appel à vous...
mon code bloc à ce niveau

Code :

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

Donrem = TextBox1.Text

dans le code complet :

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
38
Sub Remisepro()
 
Worksheets("Devis").Protect userinterfaceonly:=True, AllowFormattingCells:=True
Dim Satisf As Boolean, Donrem As String, vrem As Integer
Dim lRem As Integer, Remi As Integer, lht As Integer
Dim Crit As Range
Dim Plage As Range
Dim ht As Single
Dim a As Range
Dim lAp As Integer
 
Const colht = 13
 
'Set Plage = Range("B23:B" & Range("B" & Rows.Count).End(xlUp).Row)
Set Plage = Range("A23:M" & Range("b" & Rows.Count).End(xlUp).Row)
 
ht = Application.WorksheetFunction.SumIf(Plage.Columns(2), "<>0", Plage.Columns(13))
 
 
  On Error Resume Next
   Set a = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  On Error GoTo 0
  U_remise.Show
  Donrem = TextBox1.Text
  vrem = CInt(Donrem)
   If Not a Is Nothing Then
    a.Value = "Remise professionnelle"
    a.HorizontalAlignment = xlCenter
    a.Font.FontStyle = "Bold Italic"
    a.Select
     ActiveCell.Offset(0, 5).Value = -ht * (vrem / 100)
 
      lAp = a.Row
          Cells(lAp, colht).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
 
          End If
 
End Sub

je mets le code du userform U_Remise :

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
Function recdon() As Boolean
If TextBox1.Text = "" Then
MsgBox "Il manque des données"
Else: recdon = True
End If
End Function
 
Private Sub UserForm_Click()
Caption = "La remise est de " + CInt(Donrem) + "%"
End Sub
Private Sub TextBox1_Change()
Donrem = TextBox1.Text
End Sub
 
 
Private Sub U_OK_click()
If Not recdon Then Exit Sub
Satisf = True
Unload Me
End Sub
Private Sub U_Annul_click()
Satisf = False
Unload Me
End Sub

Je ne comprends pourquoi la valeur de Donrem = "" alors que je rentre une valeur dans mon textbox1...
Si quelqu'un peut m'aider je serai super content. merci d'avance

[samuel50]

Bonjour

Je pense que tu as un problème de porté de variable.

Dans le module contenant le code complet déclare la variable Donrem en public avant la routine (en n’oubliant pas de supprimer la déclaration dans la routine)

Code :

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

1
2
3
4
5
6
Public Donrem As String
 
Sub Remisepro()
 
Worksheets("Devis").Protect userinterfaceonly:=True, AllowFormattingCells:=True
Dim Satisf As Boolean, vrem As Integer

Cette variable étant écrite dans le UserForm tu pourras supprimer la ligne que j’ai mis en commentaire.

Code :

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

1
2
3
  U_remise.Show
  'Donrem = TextBox1.Text
  vrem = CInt(Donrem)

Cordialement

[redstoff]

Bonjour,

A première vue,

tu utilises la variable dans plusieurs fonction.

Je te propose dans un premier temps de déclarer ta variable en "Public"

pour se faire, tu retire de la ligne

Code :

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

Dim Satisf As Boolean, Donrem As String, vrem As Integer

le

Code :

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

Donrem As String

et au debut de ton module, donc à l'exterieur d'un "Sub"

tu mets

Code :

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

Public Donrem As String

et tu testes de nouveau ^^ et tu me dis quoi ^^

[Edit] tu m'as pris de vitesse ^^ Samuel50

[tompom3108]

Merci pour vos réponses cependant j'ai un autre souci quand mon userform
U_remise apparaît dès que je veux saisir un chiffre j'ai un débogage au niveau de la ligne

Code :

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

Private Sub TextBox1_Change()

du code dans le userform. Donc pour résoudre ce mystère j'ai effacé toute la procédure :

Code :

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

1
2
3
4
 
Private Sub TextBox1_Change()
Donrem = TextBox1.Text
End Sub

pour l'écrire dans le code Remise pro du module :

Code :

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

1
2
3
U_remise.Show
  Donrem = TextBox1.Text
  vrem = CInt(Donrem)

Mais la valeur de Donrem reste nulle (0). Je ne comprends toujours pas pourquoi

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
38
39
40
Public Donrem As String
 
Sub Remisepro()
 
Worksheets("Devis").Protect userinterfaceonly:=True, AllowFormattingCells:=True
Dim Satisf As Boolean, vrem As Integer
Dim lRem As Integer, Remi As Integer, lht As Integer
Dim Crit As Range
Dim Plage As Range
Dim ht As Single
Dim a As Range
Dim lAp As Integer
 
Const colht = 13
 
'Set Plage = Range("B23:B" & Range("B" & Rows.Count).End(xlUp).Row)
Set Plage = Range("A23:M" & Range("b" & Rows.Count).End(xlUp).Row)
 
ht = Application.WorksheetFunction.SumIf(Plage.Columns(2), "<>0", Plage.Columns(13))
 
 
  On Error Resume Next
   Set a = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
  On Error GoTo 0
  U_remise.Show
  Donrem = TextBox1.Text
  vrem = CInt(Donrem)
   If Not a Is Nothing Then
    a.Value = "Remise professionnelle"
    a.HorizontalAlignment = xlCenter
    a.Font.FontStyle = "Bold Italic"
    a.Select
     ActiveCell.Offset(0, 5).Value = -ht * (vrem / 100)
 
      lAp = a.Row
          Cells(lAp, colht).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
 
          End If
 
End Sub

[samuel50]

Le problème est qu’au moment où tu veux récupérer le texte dans TextBox1 elle n’existe plus étant donné que tu as fermé le UserForm juste avant.

C’est pourquoi je t’ai conseillé de passer par une variable Public écrite par le UserForm.

Peut tu indiquer quel est le type d’erreur que tu as ?

[tompom3108]

bonjour samuel 50,
je crois que mon souci se situ au niveau du code de mon userform : U_remise.
Quand j'effectue le debogage en mode pas à pas détaillé il ne lit pas la procédure suivante :

Code :

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

1
2
3
4
5
 
Private Sub UserForm_Click()
Donrem = TextBox1.Text
Caption = "La remise est de " + CInt(Dinrem) + "%"
End Sub

Donc la valeur de Donrem est nulle et celle de vrem aussi.

Je n'ai pas d'erreur dans le code je n'arrive pas à faire en sorte que la valeur Donrem soit ce qui est saisi dans textbox1...
voici le code attaché à U_remise :

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
Function recdon() As Boolean
If TextBox1.Text = "" Then
MsgBox "Il manque des données"
Else: recdon = True
End If
End Function
 
Private Sub UserForm_Click()
Donrem = TextBox1.Text
Caption = "La remise est de " + CInt(Dinrem) + "%"
End Sub
 
 
Private Sub U_OK_click()
If Not recdon Then Exit Sub
Satisf = True
Unload Me
End Sub
Private Sub U_Annul_click()
Satisf = False
Unload Me
End Sub

c'est ici que doit ce trouver l'erreur je pense...
merci pour ton aide

[samuel50]

Essaye en remplaçant

Code :

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

1
2
3
4
Private Sub UserForm_Click()
Donrem = TextBox1.Text
Caption = "La remise est de " + CInt(Dinrem) + "%"
End Sub

par

Code :

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

1
2
3
4
Private Sub TextBox1_Change()
Donrem = TextBox1.Text
UserForm1.Caption = "La remise est de " & CInt(Donrem) & "%"
End Sub

Et s’il y a une erreur donne moi son intitulé car je l’ai essayé et ça fonctionne