Discussion :

[small_heart]

Hellloo a tous...

Les gars j'ai un probleme à la con... Voila je vous explique dans une feuille j'ai 3 texbox et un bouton. Quand j'appuie sur le bouton cela copie dans une cellule excel a part la somme des trois nombre et mon soucis est que si un des nombres présentent une virgule l'adition ne se fait pas j'ai un debogage dans le codage... Alors pour précision j'utilise le clavier numérique donc se n'est pas une virgule mais un point.

feuil10.range("resultat").value = feuil9.textbox1.value + feuil9.textbox2value + feuil9.textbox3value

voila et des que les nombres sont par exemple 12.5 + 15.6 + 65.2 et bien ca marche pas...



Merci enormement de vous occuper de moi je suis dans la merde je dois rendre ca ce soir... help me

[cafeine]

Hello,

les textbox ne renvoient pas de nombres, essaie

Code :

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

feuil10.range("resultat").value = CDbl(feuil9.textbox1.value) + CDbl(feuil9.textbox2value) + CDbl(feuil9.textbox3value)

[small_heart]

Ca marche pas..; voila ce que j'ai mis

Code :

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

1
2
 
 Feuil9.Range("i" & i + 2).Value = CDbl(Feuil10.compt_allu.Value) + CDbl(Feuil10.compt_tabletterie.Value) + CDbl(Feuil10.compt_cadeaux.Value) + CDbl(Feuil10.compt_papeterie.Value)

[SilkyRoad]

bonsoir

Tu dois remplacer les points par des virgules:

Code :

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

MsgBox Replace(Feuil1.TextBox1.Value, ".", ",") + 3

bon week end
michel

[small_heart]

j'ai pas trop compris ou il faut mettre ca et pourquoi dans un message box ? tu veux que je previenne l'utilisateur de mettre des virgules et pas des points ??

[SilkyRoad]

j'ai pas trop compris ou il faut mettre ca et pourquoi dans un message box ? tu veux que je previenne l'utilisateur de mettre des virgules et pas des points ??

??? ... ce n'était qu'un exemple ...

Code :

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

1
2
3
Feuil9.Range("i" & i + 2).Value = Replace(Feuil10.compt_allu.Value, ".", ",") + _
    Replace(Feuil10.compt_tabletterie.Value, ".", ",") + Replace(Feuil10.compt_cadeaux.Value, ".", ",") + _
    Replace(Feuil10.compt_papeterie.Value, ".", ",")

michel

[small_heart]

franchement merci je suis trop content tu m'as vraiement enlevé un clou du pied... tu sais par contre g une qquestion moins importante mais si tu peux m'aider ca m'arrangerai.. sais tu passer d'un texbox a l'autre en appuyant sur tab moi ca mar che pas...

[SilkyRoad]

Rebonsoir

C'est faisable dans certaines conditions (mais pas très simples à gérer).

Voici un exemple basé sur un module de classe: ce ne sont pas les tabulations mais les flèches "monter" et "descendre" qui permettent de se déplacer entre les TextBox. (La feuille de calul ne dont contenir que des contrôles type "TextBox" pour que ça fonctionne.)

il te restera à l'adapter pour ton projet.

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
'--------------------------------------
'à placer dans le module objet ThisWorbook pour que la classe
'soit initialisée lors de l'ouverture du classeur.
 
Option Explicit
 
Private Sub Workbook_Open()
Dim Obj As OLEObject
Dim Cl As Classe1
 
Set Collect = New Collection
 
For Each Obj In Feuil1.OLEObjects 'boucle sur les objets de la Feuil1
    If TypeOf Obj.Object Is MSForms.TextBox Then 'verifie s'il s'agit d'un Textbox
 
        Set Cl = New Classe1
        Set Cl.TexteGroup = Obj.Object
        Collect.Add Cl
    End If
Next Obj
 
End Sub
'--------------------------------------

Code :

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

1
2
3
4
5
6
'--------------------------------------
'dans un module standard
Option Explicit
 
Public Collect As Collection
'--------------------------------------

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
41
42
'--------------------------------------
'dans un module de classe nommé "Classe1"
'
Option Explicit
 
Public WithEvents TexteGroup As MSForms.TextBox
 
 
Private Sub TexteGroup_KeyUp(ByVal KeyCode As _
        MSForms.ReturnInteger, ByVal Shift As Integer)
 
Dim Valeur As Byte
 
Valeur = TexteGroup.Index
 
'utilisation flèche "Monter"
If KeyCode = 38 Then
    If Valeur = 1 Then Exit Sub
 
    With Collect(Valeur - 1).TexteGroup
        .Select
        .Activate
    End With
 
    Exit Sub
End If
 
'utilisation flèche "Descendre"
If KeyCode = 40 Then
    If Valeur = Collect.Count Then Exit Sub
 
    With Collect(Valeur + 1).TexteGroup
        .Select
        .Activate
    End With
 
    Exit Sub
End If
 
End Sub
 
'--------------------------------------

michel