Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Textbox saisie nombre commence par des zeros

E

eric72

XLDnaute Accro
Bonjour à tous,
Je cherche depuis quelques heures une possibilité de saisir des numéros de compte avec une longueur de chiffres varaiable et qui peuvent commencer par des 0, exemple:
00012565487
0012569
1684569
Puis les exporter dans une cellule avec le même format, je ne trouve rien qui résout ce problème, avez-vous une idée?
Merci beaucoup pour votre aide.
 
Solution
Bonjour,

eric72 à dit:
Puis les exporter dans une cellule avec le même format, je ne trouve rien qui résout ce problème, avez-vous une idée?
Cliquez pour agrandir...
C'est toi qui a créé une macro pour transformer les "textes numériques" en nombres, donc forcément, ça fait que ce tu lui dis de faire.

Enrichi (BBcode): 
Private Sub BtnAjout_Click()
'**********************************************
'event bouton Ajouter
'**********************************************
Dim V, W

    Application.ScreenUpdating = False

    ' ALERTE CHAMPS OBLIGATOIRE NON REMPLI
'    If TxtComptable.Value = "" Then MsgBox "Vous devez indiquer la personne en charge du cabinet": Exit Sub
'    If CbTypeCpte.Value = "" Then MsgBox "Vous devez sélectionner un Type de compte": Exit Sub

    With...
Trier par date Trier par votes
E

eric72

XLDnaute Accro
JHA à dit:
Bonjour à tous,

Mettre les cellules en format texte

JHA
Cliquez pour agrandir...
Bonjour JHA,
Merci pour la réponse, j'ai juste oublié de préciser que la saisie venait d'un textbox dans un userform, puis vers un tableau structuré, et quand le tableau structuré est vide, même si je met la colonne au format texte, lors de l'export il change le format en standard, je ne comprends pas pourquoi le format saute dès que j'importe la valeur de ma textbox.
Merci
 
Vote positif 0 Vote négatif
J

JHA

XLDnaute Barbatruc
Bonjour à tous,

Effectivement Power Query repasse en mode chiffre
Il faut remettre en format Texte.

JHA
 

Pièces jointes

  • Classeur format texte.xlsx
    16.7 KB · Affichages: 1
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
JHA à dit:
Bonjour à tous,

Effectivement Power Query repasse en mode chiffre
Il faut remettre en format Texte.

JHA
Cliquez pour agrandir...
Voilà mon fichier, ça sera plus facile, je passe par un userform et non par power query, quand je sélectionne le compte dans la litsbox, je choisis une date, je saisi une valeur et quand je valide, je vais dans l'onglet "Soldes" et le numero de compte n'est pas bon.
Merci
 

Pièces jointes

  • Suivi test.xlsm
    261.3 KB · Affichages: 5
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
En bidouillant, jai trouvé cette solution mais cela ne me plait pas trop
VB: 
            With ws.ListObjects("TbSolde")
                Dim V
                [B][COLOR=rgb(226, 80, 65)]Dim monnum As String
                monnum = "'" & "" & TxtN°Cpte[/COLOR][/B]
                ' On constitue la liste de données à Ajouter à la liste
                V = Array(CDate(TxtDate), TxtComptable, TxtSte, TxtPrecisions, [B][COLOR=rgb(226, 80, 65)]monnum[/COLOR][/B], TxtBanque, TxtCpteCompta, TxtCommentaires, CDbl(TxtSolde), CbTypeCpte)
                    For i = LBound(V) To UBound(V)
                    If IsNumeric(V(i)) Then V(i) = CDbl(V(i))
                    Next
                .ListRows.Add.Range.Value = V ' On ajoute la ligne à la base de données
            End With
Qu'en pensez-vous???
 
Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc
Inactif
Bonsoir,
Regardé un peu ton fichier (bien trop de données, d'objets, ...) pour un fichier exemple....
Cependant, afin de charger les données dans les TS, j'aurais différencier les autres TxtBox du TxtBoxNumCompte
Et pour insérer le numéro de compte, j'aurais utilisé la propriété .Text
Ex : ListObjects("TbSolde").ListColumn("numcompte").Row(i).Text = LeTxtBox.Text qui comporte le numéro de compte (tapé le code à la main, possibilité de fôtes
Mais sans avoir testé, désolé
Bonne fin d'apm
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
Bonsoir,
Merci pour ta réponse mais je dois avouer que je ne comprends pas grand chose à ces explications!!!
 
Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc
Inactif
Re-,
A priori, tu charges toute la ligne en 1 fois, par un Array
Fais-le en plusieurs fois, colonne par colonne, et pour le numéro de compte, utilise la propriété .Text
(ça prendra un quart de millième de seconde de plus....)
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Bonjour,

eric72 à dit:
Puis les exporter dans une cellule avec le même format, je ne trouve rien qui résout ce problème, avez-vous une idée?
Cliquez pour agrandir...
C'est toi qui a créé une macro pour transformer les "textes numériques" en nombres, donc forcément, ça fait que ce tu lui dis de faire.

Enrichi (BBcode): 
Private Sub BtnAjout_Click()
'**********************************************
'event bouton Ajouter
'**********************************************
Dim V, W

    Application.ScreenUpdating = False

    ' ALERTE CHAMPS OBLIGATOIRE NON REMPLI
'    If TxtComptable.Value = "" Then MsgBox "Vous devez indiquer la personne en charge du cabinet": Exit Sub
'    If CbTypeCpte.Value = "" Then MsgBox "Vous devez sélectionner un Type de compte": Exit Sub

    With [TbCptHKyriba].ListObject
        ' On constitue la liste de données à Ajouter à la liste
        V = Array(TxtComptable, TxtSte, TxtPrecisions, TxtN°Cpte.Text, TxtBanque, TxtCpteCompta, TxtCommentaires, CbTypeCpte)
        For i = LBound(V) To UBound(V)
            If IsNumeric(V(i)) Then V(i) = CDbl(V(i))
        Next i
        .ListRows.Add.Range.Value = V ' On ajoute la ligne à la base de données
    End With

    Vidange
'    TriTb

    UserForm_Initialize    ' On remet la listbox à jour automatiquement

End Sub
 
Vote positif 0 Vote négatif
Solution
E

eric72

XLDnaute Accro
Hello TooFatBoy,
Oups la boulette, voilà ce que c'est quand on reprend le code d'un autre fichier et qu'on le copie bêtement!!!
Pfffff suis nul.
Tu es une fois de plus mon sauveur...
Merkiiiiiii beaucoup une nouvelle fois.
Bonne soirée.
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
eric72 à dit:
Oups la boulette, voilà ce que c'est quand on reprend le code d'un autre fichier et qu'on le copie bêtement!!!
Cliquez pour agrandir...
Je dis ça comme ça, mais à mon avis tu n'es pas le premier ni le dernier à qui ça arrive.


Une remarque en passant : perso j'essaierais de supprimer l'ajout de l'apostrophe en début de numéro de compte dans le champ de saisi du numéro de compte.
L'apostrophe n'est valable que dans une cellule pour forcer Excel à considérer que ce qui est saisi est du texte.
Et même s'il y avait besoin d'une apostrophe en début de numéro, il n'y a aucune raison de la faire afficher dans le champ de saisi (ça devrait être "transparent" pour l'utilisateur).
 
Vote positif 0 Vote négatif
E

eric72

XLDnaute Accro
Bonjour,
Oui en effet l'apostrophe n'est plus d'aucune utilité maintenant que j'ai enlevé mon bout de code erroné.
Merci et bon week-end
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 format grand nombre textbox
Réponses
13
Affichages
574
dadaze
D
  • Question
XL 2021 Saisie de lignes multiples dans un formulaire
2
Réponses
15
Affichages
645
jeff1494
H
  • Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
613
Helios77
H
  • Résolu(e)
Microsoft 365 Powerquery - Total par Compte / lignes en insérant des colonnes
Réponses
5
Affichages
147
chris
E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
175
eric72
E
G
  • Question
Microsoft 365 Convertir CSV en tableau de nombres
Réponses
7
Affichages
123
sylvanu
  • Résolu(e)
XL 2021 Colorer le mois en cours et le TextBox correspondant
Réponses
7
Affichages
309
AIXELS
Z
  • Question
XL 2021 InputBox and focus à la fin de la ligne d'une valeur par défaut
Réponses
4
Affichages
269
zedude
Z
G
  • Résolu(e)
Microsoft 365 Formulaire saisie
Réponses
3
Affichages
600
gpion
G
C
  • Question
XL 2016 Rapatrier des résultats sportifs suite
Réponses
2
Affichages
336
croco40
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…