erreur dans UserForm / textbox

seblap47 · 15 Mars 2015

Bonjour,

Avant d'expliquer mon problème je vous explique comme utiliser le fichier.

Colonne A : code barre (GENCODE)
Colonne B : références
Colonne C : quantité

Un "CommandButton" Inventaire

Premièrement, ce qu'il se passe :

1/ je clique sur inventaire
2/ je saisi un GENCODE (100005 pour l'exemple) dans la Textbox
3/ je clique sur modifier
4/ je vois la valeur "12" apparaître dans la Texbox "Quantité" (pas normal vu que la quantité en rapport avec le GENCODE "10005" est 121
5/ je modifie la quantité "12" par "7" par exemple
6/ je clique sur valider
7/ je vois bien "7" dans la colonne C

En résumé le code lit la colonne B et modifie C alors qu'il devrait lire C et modifier C

Deuxièmement

1/ je clique sur inventaire
2/ je NE saisi PAS de GENCODE et/ou QUANTITE
3/ je clique sur valider
7/ j'ai une erreur

Comment faire en sorte que je retourne dans la boucle à la place d'avoir cette erreur ?

Ce code est un code que j'ai trouvé sur un forum et que j'ai modifié.

Merci à tous pour votre aide.

Cordialement

Sébastien

Dranreb · 15 Mars 2015

Re : erreur dans UserForm / textbox

Bonjour.

Vous ne pouvez pas utiliser de Me.Controls("TextBox" & x).Value avec Cells(li, x).Value dans des boucles si vos numéros de TextBox ne sont pas en relation avec les numéros de colonnes dans la base. Faites plutôt des séries d'affectations et donnez à vos contrôles des noms mnémoniques.
Ce serait peut être plus simple que ce soit un ComboBox pour le GENCODE, que ce soit le Bouton Valider qui porte le Caption "Ajouter" ou "Modifier" selon que le code existe ou non, et qui soit Enabled seulement si une quantité valide est saisie.
Ne mettez pas = True dans de test portant sur des Boolean, ça ne sert à rien.

camarchepas · 15 Mars 2015

Re : erreur dans UserForm / textbox

Bonjour ,

@Bonjour Bernard , et oui c'est aussi une solution

3 solutions rapides, soit tu inverses la colonne B et C , ou tu supprime la boucle qui si il n'y a que 2 textbox complique tout plutot qu'autres chose .

et la derniere :
il faut passer par une variable intermédiaire :

Code:

Private Sub CommandButton1_Click() 'bouton "Valider"
Dim x As Byte 'déclare la variable x
Dim x1 As Byte
If modif = True Or ajout = True Then
    For x = 1 To 2 'boucle sur les 2 textboxes
    
        'Cells(li, x).Value = Me.Controls("TextBox" & x).Value 'répercute dans le tableau les données des textboxes
        'Cells("TextBox", x).Value = Me.Controls(li & x).Value 'répercute dans le tableau les données des textboxes
        x1 = IIf(x = 1, 1, 3)
        Me.Controls("TextBox" & x).Value = Cells(li, x1).Value
    Next 'prochaine Textbox de la boucle
Else
   
    Cells(li, 3).Value = CInt(Me.TextBox2.Value) 'répercute la quantité dans la cellule
    
End If
Unload Me 'vide et ferme l'UserForm1
UserForm1.Show 'affiche l'Userform1
End Sub

seblap47 · 15 Mars 2015

Re : erreur dans UserForm / textbox

Merci à vous deux.

Tout est ok maintenant

On fait comment pour mettre le post en résolu ?

erreur dans UserForm / textbox

seblap47

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

seblap47

XLDnaute Nouveau

Discussions similaires

erreur dans UserForm / textbox

seblap47

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

seblap47

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency