Nombre dans cellule au format texte...?

Bonjour à tous,

J'ai en cellule D15 le triangle vert qui me dis ce que j'ai mis dans le titre de ce post...

Et ça me fausse le calcul en D16.

J'arrive à régler l'erreur par la commande "Modifier dans la barre de formule" qui apparaît sous le "!"...

J'ai essayé de passer par le champ "Format de nombre" ==> "Monétaire", mais ça ne marche pas...

Dés que j'entre une nouvelle opération bancaire, le problème se représente...

Auriez-vous la solution pour le régler définitivement et pour toute la colonne ?

merci de votre aide

Mon fichier Joint:

Bonjour,

J'ai en cellule D15 le triangle vert qui me dis ce que j'ai mis dans le titre de ce post...
Et ça me fausse le calcul en D16.

Est-ce le bon fichier ?... Car, les D15 et D16 des feuilles du fichier soumis sont vides.

ric

regarde en D12, tu as une valeur texte avec un point au lieu d'une virgule !!

Bonsoir Steelson et ric,

Merci à tous deux de répondre présent...

Steelson, le point est dû à un essais de format nombre avant formatage en monétaire... (un oubli)

Ric, pardon, j'ai oublié de'enregistrer avant envoi...

Voici le nouveau avec erreur en E15 et D16 :

Bonjour,

Voir la dernière ligne de cette "fenêtre code" représentant le début du code du bouton "Valider".

Un Textbox ne contiendra jamais que du texte ... même si le contenu ressemble à un montant.

Il faut convertir ( comme le père Brébeuf https://fr.wikipedia.org/wiki/Jean_de_Br%C3%A9beuf )

... j'ai utilisé CLng (convert as long)

' Bouton (btn_Valider)
'=====================

Private Sub btn_Valider_Click()

' Dernière ligne vide feuille "C.MUTUEL" en partant du bas
   Dim iLig As Long
   iLig = Sheets("C.MUTUEL").Range("A1048576").End(xlUp).Row + 1

   ' Dernière ligne vide feuille ""ESPECES"" en partant du bas
   Dim Lig As Long
   Lig = Sheets("ESPECES").Range("A1048576").End(xlUp).Row + 1

   If opt_CreditMutuel = True Then Sheets("C.MUTUEL").Activate
   If opt_PosteEspeces = True Then Sheets("ESPECES").Activate

   ' Ecrit la date en colonne A
   '   Cells(iLig, 1) = Txt_Date

   ' Ecrit le libellé en colonne B
   '   Cells(iLig, 2) = cbo_Poste.Text & "/ " & cbo_Beneficiaire.Text & "/ " & cbo_Motif.Text

   ' Pour les dépots de chéques
   ' --------------------------
   If opt_CreditMutuel = True Then
      If opt_Crediter = True Then
         If opt_Cheque = True Then

            InsertLigne

            iLig = iLig - 1
            ' Ecrit la date en colonne A
            Cells(iLig, 1) = Txt_Date

            ' Ecrit le libellé en colonne B
            Cells(iLig, 2) = cbo_Poste.Text & "/ " & cbo_Beneficiaire.Text & "/ " & cbo_Motif.Text

            ' Ecrit le mode de paiement en colonne C "Paiement"
            Cells(iLig, 3) = "CH" & ": " & txt_N°Cheque

            ' Ecrit le montant en colonne E "Crédits"
             Cells(iLig, 5) = CLng(txt_Montant)  '<<<<< ici  la correction 

ric

Merci ric,

Pour ta rapidité et ton efficacité...

ça fonctionne à merveille, Je savais depuis peu qu'une textbox ne pouvais contenir que du texte et me doutait que ça venait de là...

Mais je ne savais pas comme,t le traiter, ne connaissant même pas l'existence de CLng ...

J'ai jeté un oeil sur le lien que tu m'as fourni... et j'ai attrapé une migraine...lol, ça m'a l'air ardu...

J'y reviendrai un autre jour...à tête reposée, pour l'heure je vais faire

Merci encore infiniment pour ton aide efficace...

Bienvenue

ric

Rechercher des sujets similaires à "nombre format texte"