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??????
Configuration: Windows XP Internet Explorer 6.0

8 réponses

  2. 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
  3. infofou
     
    decidement personne n'a rencontré ce probleme ou vous comprenez pas.
    0
  4. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
     
    Salut,

    Affiche le code de ton userform.
    0

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

    Posez votre question
  6. 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
  7. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
     
    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
  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