Discussion :

[delphin13]

Bonjour,
encore un problème me revoilà.
Dans le fichier joint, j'ai un "userform" qui possède un bouton "quantité" qui ouvre un autre "userform" contenant un "textbox" qui me permet de saisir une série de chiffres qui viennent remplir une cellule en l’occurrence la cellule "d17".
Le problème est que je ne peut remplir que un chiffre en "d17", deux chiffres en "d18", trois en "d19" etc.
Ce que je voudrais c'est pouvoir saisir autant de chiffres que nécessaire en "d17", puis que la prochaine saisie que j'effectuerai se pose en cellule "d18" etc.
Voir le code du "textbox" de l'"userform3", le problème doit être là.
Merci de votre aide

[gFZT82]

Bonjour,

Le problème vient du choix de l’évènement TextBox1_Change pour effectuer la prise en compte de la saisie dans la TextBox1 – Userform3.
Avec cet évènement, la copie dans la feuille se fait à chaque changement de valeur dans la TextBox1.
Tu peux remplacer cet évènement par TextBox1_Exit et la prise en compte sera effectuée lorsque tu cliqueras sur le bouton "Fermer".

Cordialement.

[delphin13]

Merci pour le déplacement dans le bon forum et à gFZT82 pour sa réponse
Je viens d'essayer et j'ai une erreur de compilation :
la déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom.
Je comprends pas.
Une idée ?

[gFZT82]

Re,

Je viens de faire le test avec le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    col = 4
    With Sheets(1)
        ligne = .Range("d39").End(xlUp).Row + 1
        If ligne < 17 Then
            ligne = 17
        ElseIf ligne = 39 Then
            Exit Sub
            Unload Me
        End If
        Cells(ligne, col).Value = TextBox1.Value
    End With
End Sub

Pas de problème particulier.

Cordialement.

[delphin13]

dans le code que tu montre tu ajoute entre les parenthèses
ByVal Cancel As MSForms.ReturnBoolean

peut tu m'expliquer à quoi cela sert ?

merci

[gFZT82]

Non, non ! Je n’ajoute rien. Les arguments sont prédéfinis.
Pour en savoir plus, le bon réflexe, c’est d’aller voir ce que dit l’aide Excel :

Private Sub object_Exit( ByVal Cancel As MSForms.ReturnBoolean)
Cancel : État de gestion d'événement.
False indique que le contrôle doit gérer l'événement (par défaut).
True indique que l'application gère l'événement et que le focus doit rester sur le contrôle courant.

Cordialement.

[delphin13]

Merci pour ton retour, si j’enlève "ByVal Cancel As MSForms.ReturnBoolean", je me retrouve avec une erreur de compilation.
Bon sinon tout fonctionne merci.
Je passe en résolu.