Nombre dans cellule au format texte...? Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
atlonia
Membre fidèle
Membre fidèle
Messages : 440
Appréciations reçues : 2
Inscrit le : 10 mai 2017
Version d'Excel : 2019 FR

Message par atlonia » 24 août 2018, 20:41

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... :?? :scritch:

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

merci de votre aide

Mon fichier Joint:
New_Comptabilite_Erreur.xlsm
(71.59 Kio) Téléchargé 7 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'435
Appréciations reçues : 206
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 24 août 2018, 20:58

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
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'030
Appréciations reçues : 830
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 24 août 2018, 21:08

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

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
atlonia
Membre fidèle
Membre fidèle
Messages : 440
Appréciations reçues : 2
Inscrit le : 10 mai 2017
Version d'Excel : 2019 FR

Message par atlonia » 24 août 2018, 23:31

Bonsoir Steelson et ric,

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

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 :
New_Comptabilite_Erreur.xlsm
(71.83 Kio) Téléchargé 9 fois
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'435
Appréciations reçues : 206
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 25 août 2018, 00:37

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é CLong (convert as long ... peut-être :oops: pas sûr de la définition)
https://docs.microsoft.com/en-us/dotnet ... -functions
' 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
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
Avatar du membre
atlonia
Membre fidèle
Membre fidèle
Messages : 440
Appréciations reçues : 2
Inscrit le : 10 mai 2017
Version d'Excel : 2019 FR

Message par atlonia » 25 août 2018, 02:03

Merci ric,

Pour ta rapidité et ton efficacité... (10/10)

ç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 :dodo:

Merci encore infiniment pour ton aide efficace... :ave:
Avatar du membre
ric
Membre impliqué
Membre impliqué
Messages : 2'435
Appréciations reçues : 206
Inscrit le : 29 mai 2018
Version d'Excel : 365 fr 32 bits

Message par ric » 25 août 2018, 10:57

.
.
.
Bienvenue


ric
Un bon dépanneur : la touche F8 pour faire un Pas-à-Pas sur le code. :mrgreen:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message