Sujet Précédent Sujet Suivant

Probleme de calcul sous excel

infofou -  
 infofou -
Bonjour,

J'ai un petit problême sous excel , en faite j'ai un userform sous vba avec des textbox. je remplis ces textbox qui remplissent des cellule d'une feuille. et par exemple quand je fais A3 = A1+A2, le calcul ne se fait pas. Pourtant mon programme est bon car cela marche sur d'autre feuille.

moi pas tro comprendre pourquoi ca marche pas.

Est-ce que quelqu'un aurait déjà croisé ce ptit problême. Merci

de plus si je clique deux fois sur chaque cellule du calcul exemple double clique sur A1 et double clique sur A2, cette fois le calcul se fait.???????? va comprendre??????
A voir également:

8 réponses

Réponse 1 / 8
infofou
 
SVP
0
Réponse 2 / 8
infofou
 
petite précision, lorsque le calcul ne sefectu pas les chiffre sont a gauche dans la case, et quend je double clique dessus, le chiffre passe a droite et le calcul s'effectu
0
Réponse 3 / 8
infofou
 
decidement personne n'a rencontré ce probleme ou vous comprenez pas.
0
Réponse 4 / 8
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

Affiche le code de ton userform.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
infofou
 
Private Sub CommandButton1_Click()

'TOTAL HEURES PREVUES
Sheets("R&D_Projets").Cells(7, 6) = UserForm4.TextBox240
Sheets("R&D_Projets").Cells(8, 6) = UserForm4.TextBox241
Sheets("R&D_Projets").Cells(9, 6) = UserForm4.TextBox242
Sheets("R&D_Projets").Cells(10, 6) = UserForm4.TextBox243
Sheets("R&D_Projets").Cells(11, 6) = UserForm4.TextBox244
Sheets("R&D_Projets").Cells(12, 6) = UserForm4.TextBox245
Sheets("R&D_Projets").Cells(13, 6) = UserForm4.TextBox246
Sheets("R&D_Projets").Cells(14, 6) = UserForm4.TextBox247
Sheets("R&D_Projets").Cells(15, 6) = UserForm4.TextBox248
Sheets("R&D_Projets").Cells(16, 6) = UserForm4.TextBox249

Sheets("Save_historique_R&D").Range("E1") = TextBox240
Sheets("Save_historique_R&D").Range("E2") = TextBox241
Sheets("Save_historique_R&D").Range("E3") = TextBox242
Sheets("Save_historique_R&D").Range("E4") = TextBox243
Sheets("Save_historique_R&D").Range("E5") = TextBox244
Sheets("Save_historique_R&D").Range("E6") = TextBox245
Sheets("Save_historique_R&D").Range("E7") = TextBox246
Sheets("Save_historique_R&D").Range("E8") = TextBox247
Sheets("Save_historique_R&D").Range("E9") = TextBox248
Sheets("Save_historique_R&D").Range("E10") = TextBox249

'HEURES TAM PREVUES
Sheets("R&D_Projets").Cells(7, 7) = UserForm4.TextBox250
Sheets("R&D_Projets").Cells(8, 7) = UserForm4.TextBox251
Sheets("R&D_Projets").Cells(9, 7) = UserForm4.TextBox252
Sheets("R&D_Projets").Cells(10, 7) = UserForm4.TextBox253
Sheets("R&D_Projets").Cells(11, 7) = UserForm4.TextBox254
Sheets("R&D_Projets").Cells(12, 7) = UserForm4.TextBox255
Sheets("R&D_Projets").Cells(13, 7) = UserForm4.TextBox256
Sheets("R&D_Projets").Cells(14, 7) = UserForm4.TextBox257
Sheets("R&D_Projets").Cells(15, 7) = UserForm4.TextBox258
Sheets("R&D_Projets").Cells(16, 7) = UserForm4.TextBox259

Sheets("Save_historique_R&D").Range("F1") = TextBox250
Sheets("Save_historique_R&D").Range("F2") = TextBox251
Sheets("Save_historique_R&D").Range("F3") = TextBox252
Sheets("Save_historique_R&D").Range("F4") = TextBox253
Sheets("Save_historique_R&D").Range("F5") = TextBox254
Sheets("Save_historique_R&D").Range("F6") = TextBox255
Sheets("Save_historique_R&D").Range("F7") = TextBox256
Sheets("Save_historique_R&D").Range("F8") = TextBox257
Sheets("Save_historique_R&D").Range("F9") = TextBox258
Sheets("Save_historique_R&D").Range("F10") = TextBox259

'HEURES CARDRE PREVUES
Sheets("R&D_Projets").Cells(7, 8) = UserForm4.TextBox260
Sheets("R&D_Projets").Cells(8, 8) = UserForm4.TextBox261
Sheets("R&D_Projets").Cells(9, 8) = UserForm4.TextBox262
Sheets("R&D_Projets").Cells(10, 8) = UserForm4.TextBox263
Sheets("R&D_Projets").Cells(11, 8) = UserForm4.TextBox264
Sheets("R&D_Projets").Cells(12, 8) = UserForm4.TextBox265
Sheets("R&D_Projets").Cells(13, 8) = UserForm4.TextBox266
Sheets("R&D_Projets").Cells(14, 8) = UserForm4.TextBox267
Sheets("R&D_Projets").Cells(15, 8) = UserForm4.TextBox268
Sheets("R&D_Projets").Cells(16, 8) = UserForm4.TextBox269

Sheets("Save_historique_R&D").Range("G1") = TextBox260
Sheets("Save_historique_R&D").Range("G2") = TextBox261
Sheets("Save_historique_R&D").Range("G3") = TextBox262
Sheets("Save_historique_R&D").Range("G4") = TextBox263
Sheets("Save_historique_R&D").Range("G5") = TextBox264
Sheets("Save_historique_R&D").Range("G6") = TextBox265
Sheets("Save_historique_R&D").Range("G7") = TextBox266
Sheets("Save_historique_R&D").Range("G8") = TextBox267
Sheets("Save_historique_R&D").Range("G9") = TextBox268
Sheets("Save_historique_R&D").Range("G10") = TextBox269

'ACHAT PREVUS
Sheets("R&D_Projets").Cells(7, 9) = UserForm4.TextBox270
Sheets("R&D_Projets").Cells(8, 9) = UserForm4.TextBox271
Sheets("R&D_Projets").Cells(9, 9) = UserForm4.TextBox272
Sheets("R&D_Projets").Cells(10, 9) = UserForm4.TextBox273
Sheets("R&D_Projets").Cells(11, 9) = UserForm4.TextBox274
Sheets("R&D_Projets").Cells(12, 9) = UserForm4.TextBox275
Sheets("R&D_Projets").Cells(13, 9) = UserForm4.TextBox276
Sheets("R&D_Projets").Cells(14, 9) = UserForm4.TextBox277
Sheets("R&D_Projets").Cells(15, 9) = UserForm4.TextBox278
Sheets("R&D_Projets").Cells(16, 9) = UserForm4.TextBox279

Sheets("Save_historique_R&D").Range("H1") = TextBox270
Sheets("Save_historique_R&D").Range("H2") = TextBox271
Sheets("Save_historique_R&D").Range("H3") = TextBox272
Sheets("Save_historique_R&D").Range("H4") = TextBox273
Sheets("Save_historique_R&D").Range("H5") = TextBox274
Sheets("Save_historique_R&D").Range("H6") = TextBox275
Sheets("Save_historique_R&D").Range("H7") = TextBox276
Sheets("Save_historique_R&D").Range("H8") = TextBox277
Sheets("Save_historique_R&D").Range("H9") = TextBox278
Sheets("Save_historique_R&D").Range("H10") = TextBox279

'MISSIONS PREVUES
Sheets("R&D_Projets").Cells(7, 10) = UserForm4.TextBox280
Sheets("R&D_Projets").Cells(8, 10) = UserForm4.TextBox281
Sheets("R&D_Projets").Cells(9, 10) = UserForm4.TextBox282
Sheets("R&D_Projets").Cells(10, 10) = UserForm4.TextBox283
Sheets("R&D_Projets").Cells(11, 10) = UserForm4.TextBox284
Sheets("R&D_Projets").Cells(12, 10) = UserForm4.TextBox285
Sheets("R&D_Projets").Cells(13, 10) = UserForm4.TextBox286
Sheets("R&D_Projets").Cells(14, 10) = UserForm4.TextBox287
Sheets("R&D_Projets").Cells(15, 10) = UserForm4.TextBox288
Sheets("R&D_Projets").Cells(16, 10) = UserForm4.TextBox289

Sheets("Save_historique_R&D").Range("I1") = TextBox280
Sheets("Save_historique_R&D").Range("I2") = TextBox281
Sheets("Save_historique_R&D").Range("I3") = TextBox282
Sheets("Save_historique_R&D").Range("I4") = TextBox283
Sheets("Save_historique_R&D").Range("I5") = TextBox284
Sheets("Save_historique_R&D").Range("I6") = TextBox285
Sheets("Save_historique_R&D").Range("I7") = TextBox286
Sheets("Save_historique_R&D").Range("I8") = TextBox287
Sheets("Save_historique_R&D").Range("I9") = TextBox288
Sheets("Save_historique_R&D").Range("I10") = TextBox289

Unload UserForm4
UserForm5.Show

End Sub

Private Sub CommandButton12_Click()
Unload UserForm4
UserForm3.Show
End Sub

Private Sub UserForm_Initialize()

'TOTAL HEURES PREVUES
TextBox240 = Sheets("Save_historique_R&D").Range("E1")
TextBox241 = Sheets("Save_historique_R&D").Range("E2")
TextBox242 = Sheets("Save_historique_R&D").Range("E3")
TextBox243 = Sheets("Save_historique_R&D").Range("E4")
TextBox244 = Sheets("Save_historique_R&D").Range("E5")
TextBox245 = Sheets("Save_historique_R&D").Range("E6")
TextBox246 = Sheets("Save_historique_R&D").Range("E7")
TextBox247 = Sheets("Save_historique_R&D").Range("E8")
TextBox248 = Sheets("Save_historique_R&D").Range("E9")
TextBox249 = Sheets("Save_historique_R&D").Range("E10")

'HEURES TAM PREVUES
TextBox250 = Sheets("Save_historique_R&D").Range("F1")
TextBox251 = Sheets("Save_historique_R&D").Range("F2")
TextBox252 = Sheets("Save_historique_R&D").Range("F3")
TextBox253 = Sheets("Save_historique_R&D").Range("F4")
TextBox254 = Sheets("Save_historique_R&D").Range("F5")
TextBox255 = Sheets("Save_historique_R&D").Range("F6")
TextBox256 = Sheets("Save_historique_R&D").Range("F7")
TextBox257 = Sheets("Save_historique_R&D").Range("F8")
TextBox258 = Sheets("Save_historique_R&D").Range("F9")
TextBox259 = Sheets("Save_historique_R&D").Range("F10")

'HEURES CARDRE PREVUES
TextBox260 = Sheets("Save_historique_R&D").Range("G1")
TextBox261 = Sheets("Save_historique_R&D").Range("G2")
TextBox262 = Sheets("Save_historique_R&D").Range("G3")
TextBox263 = Sheets("Save_historique_R&D").Range("G4")
TextBox264 = Sheets("Save_historique_R&D").Range("G5")
TextBox265 = Sheets("Save_historique_R&D").Range("G6")
TextBox266 = Sheets("Save_historique_R&D").Range("G7")
TextBox267 = Sheets("Save_historique_R&D").Range("G8")
TextBox268 = Sheets("Save_historique_R&D").Range("G9")
TextBox269 = Sheets("Save_historique_R&D").Range("G10")

'ACHAT PREVUS
TextBox270 = Sheets("Save_historique_R&D").Range("H1")
TextBox271 = Sheets("Save_historique_R&D").Range("H2")
TextBox272 = Sheets("Save_historique_R&D").Range("H3")
TextBox273 = Sheets("Save_historique_R&D").Range("H4")
TextBox274 = Sheets("Save_historique_R&D").Range("H5")
TextBox275 = Sheets("Save_historique_R&D").Range("H6")
TextBox276 = Sheets("Save_historique_R&D").Range("H7")
TextBox277 = Sheets("Save_historique_R&D").Range("H8")
TextBox278 = Sheets("Save_historique_R&D").Range("H9")
TextBox279 = Sheets("Save_historique_R&D").Range("H10")

'MISSIONS PREVUES
TextBox280 = Sheets("Save_historique_R&D").Range("I1")
TextBox281 = Sheets("Save_historique_R&D").Range("I2")
TextBox282 = Sheets("Save_historique_R&D").Range("I3")
TextBox283 = Sheets("Save_historique_R&D").Range("I4")
TextBox284 = Sheets("Save_historique_R&D").Range("I5")
TextBox285 = Sheets("Save_historique_R&D").Range("I6")
TextBox286 = Sheets("Save_historique_R&D").Range("I7")
TextBox287 = Sheets("Save_historique_R&D").Range("I8")
TextBox288 = Sheets("Save_historique_R&D").Range("I9")
TextBox289 = Sheets("Save_historique_R&D").Range("I10")

End Sub

La sub initialize me permet juste de garder en mémoire les valeurs entrées lors de lutilisation précédente du programme.
0
Réponse 6 / 8
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

'TOTAL HEURES PREVUES
'HEURES TAM PREVUES
'HEURES CARDRE PREVUES
'ACHAT PREVUS
'MISSIONS PREVUES

Je suppose que tout ça c'est des entiers. C'est bien ça?
0
Réponse 7 / 8
infofou
 
non c bon j'ai compri le probleme

quand je tape un nombre décimal dans ma text box il faut séparé avec des virgul sinon il croit que c du texte.

ducoup est-il possible de verifier plusieur textbox en meme temps sachant que j'en est une centaine sur lesquelle je veut appliquer ce code:

If IsNumeric(TextBox) Then
Unload UserForm4
UserForm5.Show
If Not IsNumeric(TextBox) Then
MsgBox "Mettre une virgule", vbCritical, "Attention aux chiffres decimales"
End If
End If

donc j'ai pas envie de l'écrire 100 fois, possible d'abréger le code???????????
MERCI
0
Réponse 8 / 8
infofou
 
HELP ME PLEASE
0