application avec une textboxRésolu

Question

Bonjour a tout le forum,

Voila je me dirrige vers vous car j'ai un problème avec une application que je souhaiterais créer.
Avec un UserForm et une seule textbox je souhaiterais rentré environ 60 valeurs. Ces valeurs, je voudrais les récupérer dans une seule colonne.
J'ai commencé un début de code mais quand je rentre une valeur, elle se répète 60 fois.
Voici le code :
Private Sub TextBox1_Change()
compteur = 3
If compteur <> 50 Then
For i = 1 To 50
Worksheets("Feuil3").Cells(2 + compteur, 3) = UserForm1.TextBox1.Value
compteur = compteur + 1
Next
End If
End Sub

Je vous remercie,

cs_jonathanm44 · Accepted Answer

Bonjour,
Merci pour ta réponse jopop mais je n'avais pas selectionner la bone catégorie et donc je ne peut appliquer ta réponse

cs_jopop · Answer

Salut,

je n'ai pas bien compris la demande.
Qu'est-ce que tu entends par "rentrer 60 valeurs" ?
C'est quel type de valeur (int, string ...) ?
Tu les rentres une par une en faisant Entrée ?
Tu les rentres toutes, séparées par des espaces/points-virgules/pipe ?

cs_jonathanm44 · Answer

Bonjour jopop,
je rentre les valeurs l'une après l'autre en faisant entrée et ces valeurs sont des chiffres à virgule.

cs_jopop · Answer

D'accord donc ton but est de saisir l'une après l'autre une 60aine de float, puis de les insérer dans une colonne d'une Feuille Excel.

Mais alors pourquoi faire une boucle dans ton code ? Car tu ne devrais traiter qu'une valeur à la fois. Ou alors il faut enregistrer toutes les valeurs dans un tableau intermédiaire puis le parcourir pour remplir ton Excel.

Par contre t'es pas sur le bon event. Là à chaque saisie d'un caractère l'évènement est lancé. En pseudo-code voilà comment je verrais les choses :
EVENT_TEXTBOX_KEYPRESS {
    // on regarde si l'utilisateur valide la valeur en faisant Entrée
    SI KEY = ENTER {
        // on vérifie le bon format de la valeur
        SI TEXTBOX.VALUE REPRESENTE UN FLOAT {
            INSERT TEXTBOX.VALUE DANS EXCEL A L'INDEX (2 + compteur, 3)
            INCREMENTE compteur
        }
    }
}

Application avec une textbox

4 réponses

Votre réponse

Discussions similaires