Conversion en nombre apres validation

Bonjour,
J'ai un problème après validation avec un commandbutton : ma textbox "txtintervention" se rajoute dans la colonne A, mais me met en "nombre stocké sous forme de texte.

J'aimerai, apres le bouton valider, que la conversion se fasse automatique en NOMBRE.

j'ai recherché sur le forum, j'ai trouvé des codes avec CDbl mais impossible de l'adapter au fichier. Et j'avoue ne pas très comprendre !

Le fait est que jai une procédure "Tri_interventions" du grand au plus petit, et quand certains nombre son stocké sous forme de texte, le tri ne se fait pas correctement...

Merci par avance,

Valentin

Bonjour,
Exemple de l'utilisation de la fonction CDbl

Code:

---

Range("A13").Value = CDbl(TextBox1.Value)

---

Attention que si le séparateur de décimale est un point ou contient du texte autre qu'un nombre convertible, cette syntaxe renverra une erreur.
Il y a lieu de faire un test de validité lors de l'encodage du contrôle TextBox
A lire le chapitre II-E. TextBox du tutoriel Utiliser les contrôles dans un UserForm, en VBA Excel

Alors, ça concerne une colonne complete en rows.count. mes nombres sont simples : 1,2 etc jusqu'a 124 pour l'instant. Par de virgule, pas de point.

Mais j'aurai voulu savoir si je le place dans le commandbutton valider, a la fin de la procédure ?

Voici ce que j'ai essayer de faire dans ma procédure cmdValider_click() :

Code:

---

1 2 3 4 5

With ThisWorkbook.Worksheets("Maintenance") i = .Range("A1").CurrentRegion.Rows.Count + 1   .Cells(i, 1) = CDbl(Maintenance.txtintervention) End With

---

Donc pour forcer toute la colonne a convertir en nombre. Il n'y a pas d'erreur, en revanche, ça ne marche pas ! la nouvelle entrée reste en "Nombre sous format texte"

Merci,

Valentin

Citation:

---

mes nombres sont simples : 1,2 etc jusqu'a 124 pour l'instant. Par de virgule, pas de point.

---

Dans ce cas, ce n'est pas d'un CDbl dont tu as besoin mais d'un CInt.
Regarde ces deux fonctions dans l'aide VBA d'Excel.

Citation:

---

Il n'y a pas d'erreur, en revanche, ça ne marche pas !

---

Les deux parties de cette phrases se contredises l'une l'autre.

Je pense qu'il y a une chose que tu n'as pas comprise : le premier argument de Cells ne donne pas le nombre de lignes à traité mais le numéro de la ligne à traiter.
Donc mettre dans i un Rows.Count est un peu étrange.

Mais comme je n'ai pas compris exactement ce que tu veux faire, difficile d'en dire plus.

Bonjour,

Je recapitule : j'ai un bouton "nouveau" dans lequel je rentre des informations. Une fois ces infos rentré, je valide. Ça met les infos a la derniere ligne de mon tableau excel. Au moment de l'entrée de la ligne, je voudrai que dans la colonne 1, ce soit un nombre (du coup le 1,2, jusqu'a 124, en fait il s'incremente automatiquement, mais il se met en "nombre stocké sous format texte" et je voudrai qu'il soit convertie en format nombre). Et je ne sais pas quoi mettre pour la valeur de i, ni comment écrire le code...

J'espere avoir été assez clair cette fois ci.

Merci par avance,

Valentin

Citation:

---

Envoyé par Valou8u

Ça met les infos a la derniere ligne de mon tableau excel. Au moment de l'entrée de la ligne, je voudrai que dans la colonne 1, ce soit un nombre

---

Dans ce cas, ceci devrait convenir.

Code:

---

1 2 3 4

With ThisWorkbook.Worksheets("Maintenance") i = .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(i + 1, 1) = CInt(Maintenance.txtintervention) End With

---

Alors la .. il me dit "incompatibilité de type" sur la ligne en bleu : (Peux-tu me dire aussi, si je l'ai bien placé sur mon code ?)

Le voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

'Pour le bouton Nouvelle intervention Private Sub CommandButton1_Click() Dim L As Long Dim r As Long Dim i As Integer If MsgBox("Confirmez-vous l’insertion de cette nouvelle intervention ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then With ThisWorkbook.Worksheets("Maintenance") i = .Cells(.Rows.Count, 1).End(xlUp).Row .Cells(i + 1, 1) = CInt(Maintenance.txtintervention) L = .Range("A" & .Rows.Count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide .Range("A" & L).Value = TextBox3 .Range("B" & L).Value = ComboBox1 .Range("C" & L).Value = ComboBox2 .Range("D" & L).Value = txtdatedebut .Range("E" & L).Value = txtTT .Range("F" & L).Value = txtdatefiin .Range("G" & L).Value = ComboBox9 .Range("H" & L).Value = ComboBox10 .Range("I" & L).Value = txtcause .Range("J" & L).Value = TextBox2 End With End If Unload Me Unload Maintenance Maintenance.Show vbModeless affiche_interventions ligne_vide End Sub

---

Citation:

---

Envoyé par Valou8u

Alors la .. il me dit "incompatibilité de type" sur la ligne en bleu

---

Généralement, le diable est dans la variable.
A quoi sont égaux i et Maintenance.txtintervention au moment du plantage ?