Valeur numérique Textbox

[BRUNO62]

Bonsoir,

Je n'arrive pas à résoudre mon problème qui dure ,le temps passe et rien.
Je souhaite alimenter une liste view ainsi qu' un tableau excel à partir de textboxs
Les données numériques des textboxs 1 et 2 ne sont pas exploitables dans le tableau car c'est du texte.
J'ai forcé les convertions et rien n'y fait ! Avez vous une idée , merci.
Un petit bout .
Private Sub CommandButton1_Click() 'ajouter
Dim C As Integer, i As Integer, Compteur As Integer, L As Long

For C = 1 To 8
If Me.Controls("textbox" & C) <> "" Then i = i + 1
Next
If i = 0 Then
MsgBox "Pas de données à ajouter"
Exit Sub
End If

Application.ScreenUpdating = False

L = Range("A65536").End(xlUp).Row + 1

For C = 1 To 8
Select Case C
Case Is > 6
If Me.Controls("textbox" & C) <> "" Then
Cells(L, C) = CDbl(Me.Controls("textbox" & C))

End If
Case Else
Cells(L, C) = Me.Controls("textbox" & C)
End Select
Next

With Me.ListView1
.ListItems.Add , "A" & L, Range("A" & L)
Compteur = .ListItems.Count
.ListItems(Compteur).ListSubItems.Add , "B" & L, Range("B" & L).Text
.ListItems(Compteur).ListSubItems.Add , "C" & L, Range("C" & L).Text
.ListItems(Compteur).ListSubItems.Add , "D" & L, Range("D" & L).Text
.ListItems(Compteur).ListSubItems.Add , "E" & L, Range("E" & L).Text
.ListItems(Compteur).ListSubItems.Add , "F" & L, Range("F" & L).Text
.ListItems(Compteur).ListSubItems.Add , "G" & L, Range("G" & L).Text
.ListItems(Compteur).ListSubItems.Add , "H" & L, Range("H" & L).Text
.ListItems(Compteur).ListSubItems.Add , "I" & L, Range("I" & L).Text
.ListItems(1).Selected = False
Set .SelectedItem = Nothing
End With

Application.ScreenUpdating = True

For C = 1 To 8
Me.Controls("textbox" & C) = ""
Next

End Sub
___________

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr(1, "0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub
Etc...
A+

 

[YANN-56]

Re : Valeur numérique Textbox

Bonsoir, il aurait peut-être été bien que tu continues sur ce Fil!:
https://www.excel-downloads.com/threads/liste-view.172207/

A la lecture de ton code avec "Compteur"
Je comprends mieux ce que tu voulais dire par: "C'est OK." ... J'ai pris bonne note!

Pour ma part, cela n'est pas du temps perdu, il pourra toujours servir par ailleurs...😉
(Je parle du Temps, et non de ce code dont aucune ligne est de mon cru)

Amicalement, en te souhaitant bonne suite, dans ton idée.

Yann

 

[BRUNO62]

Re : Valeur numérique Textbox

Bonsoir Yann-56,

Désolé, j'ai ouvert un autre post car le code était différent.
C'est ok, car la solution apportée est la bonne et je t'en remercie encore.
J'ai essayé d'adapter un autre code car mes recherches n'aboutissent à rien.
J'en suis à mon quatrième échec dans mon projet et cela devient pesant.
Je n'ai pas ton expérience dans ce domaine, il m'arrive très souvent de passer énormement de temps pour essayer de comprendre le cheminement donné.
Toutes mes excuses, ce n'était pas volontaire de ma part.
Bonne soirée.
A+

 

[YANN-56]

Re : Valeur numérique Textbox

Bonjour Bruno, et à ceux qui passeront par là,

Je regrette un peu de m'être montré agacé et d'avoir perdu mon calme.😡

Il n'y a pas de mauvais élèves; il n'y a que de mauvais professeurs!
Je n'ai pas la prétention d'en être un; mais la modestie de penser que je me suis mal expliqué.

Je vais reprendre tout ceci...On va y arriver.... Je ne te laisse pas tomber.

Entre temps, perçois bien que j'utilise Un TextBox et non Des TextBox! Pour simplifier.
(Ce dernier remplaçant une caisse fastidieuse et inutile)

Je n'ai pas géré la mise en forme à imposer suivant le type de donnée que l'on y saisi,
car je n'ai pas voulu alourdir la lecture du code et en compliquer la compréhension.

J'y retourne, dès que j'ai un peu de temps, et te tiens au courant.
De ton coté décortique, note les points qui te dérangent et ceux pour lesquels tu ne vois pas comment faire.

Amicalement,

Yann

 

[YANN-56]

Re : Valeur numérique Textbox

Bonjour Bruno, et à ceux qui passeront par là,

J'ai un peu tardé, car je me suis dispersé. (Pas mes cendres..... Andouille!!!) 🙂

Je te joins de quoi avancer; je l'espère.

Tu regarde et tu me dis...
N'hésite pas à me poser des questions sur ce qui te semblerait obscur.

A te lire,

Amicalement,

Yann

 

[BRUNO62]

Re : Valeur numérique Textbox

Bonsoir Yann-56,

Je viens de prendre connaissance de ton post. C'est top !
Je te poserais certainement des questions ultérieurement.
Ce week end, j'ai continué mes recherches. Bien sûr, s'en résultat. De ce fait, je me suis orienté sur des modifications directement dans le tableau excel au travers de combinaisons de formules.
J'ai pu avancer mais le résultat est différent de l'origine. J'aurais préféré que les modifications s'effectue dans la liste view ou textbox. Mais, ???
J'ai pu découvrir également que tu apportes ta contribution sur le post Liste View Ajouter Modifier Supprimer.
Trés sympa !
Je te remercie de ton aide.
Bonne soirée.
A+

 

[YANN-56]

Re : Valeur numérique Textbox

Bonsoir Bruno,

Je te poserais certainement des questions ultérieurement.

J'aime entendre ceci car cela me fait avancer en m'appliquant à y répondre.
Sic Ma signature en bleu.

Au Plaisir,

Yann