Est ce possible Automatisé un textbox ?

[aziz]

Bonsoir à tous

A) - Automatisé une texbox, est ce possible ?

B) - Vérification des doublons pour strictement supérieur .

Tout est expliqué dans mon fichier en espérant avoir été clair

Bonne soirée à tous et merci pour votre aide

 

[Robert]

Re : Est ce possible Automatisé un textbox ?

Bonsoir Aziz, bonsoir le forum,

En pièce jointe ton fichier modifié avec le code commenté :

 

[aziz]

Re : Est ce possible Automatisé un textbox ?

Bonjour, Robert et merci beaucoup
Dernière petite chose, il me faut placer un -1 dans la condition :

dernier numéro = (Premier Numéro + Quantité)-1

Car un produit avec produit avec un chiffre 0 existe,
exemple de 0 à 9 j'ai bien 10 références.

Merci et bonne journée

 

[Robert]

Re : Est ce possible Automatisé un textbox ?

Bonjour Aziz, bonjour le forum,

Pas sûr d'avoir bien compris mais avec le code commenté il me semble que tu aurais pu corriger tout seul...

Private Sub Txt3_Change()
Dim qt As Long 'déclare la variable qt (QuanTité)
'si la textbox "Txt5" est vide, qt est égale à zéro, sinon qt est la valeur de la textbox convertie en entier
If Me.Txt5.Value = "" Then qt = 0 Else qt = CLng(Me.Txt5.Value)
Me.Txt4.Value = (CLng(Me.Txt3.Value) + qt) - 1 'additionne la valeur de la textbos "Txt3" convertie en entier et qt
End Sub

et

Private Sub Txt5_Change()
Dim pn As Long 'déclare la variable pn (Premier Numéro)
'si la textbox "Txt3" est vide, pn est égale à zéro, sinon pn est la valeur de la textbox convertie en entier
If Me.Txt3.Value = "" Then pn = 0 Else pn = CLng(Me.Txt3.Value)
Me.Txt4.Value = (CLng(Me.Txt5.Value) + pn) - 1 'additionne la valeur de la textbos "Txt5" convertie en entier et pn
End Sub

Sinon ça sert à quoi que je commente les codes ?...

 

[aziz]

Re : Est ce possible Automatisé un textbox ?

Bonsoir Robert, merci encore pour ton aide
Oui effectivement j'y suis arrivé après.

Bonne soirée

 

[aziz]

Re : Est ce possible Automatisé un textbox ?

Re bonsoir Robert
Quand je demarre le fichier avec aucune données saisie

J'ai le message "Numéro déjà saisie" ceci alors qu'il n'y aucune données ??

merci à toi

 

[Robert]

Re : Est ce possible Automatisé un textbox ?

Bonsoir Aziz, bonsoir le forum,

Remplace la ligne :

If vt <= vm Then 'condition : si vt<=vm

par la ligne :

If vt <= vm And vm > 0 Then 'condition : si vt<=vm et si vm n'est pas nul

 

[aziz]

Re : Est ce possible Automatisé un textbox ?

C'est fait mais pas mieux...

 

[Robert]

Re : Est ce possible Automatisé un textbox ?

Bonjour Aziz, bonjour le forum,

Je n'ai aucun message au démarrage du fichier ! Pourrais-tu expliquer en détail comment ce message arrive.

 

[aziz]

Re : Est ce possible Automatisé un textbox ?

Bonjour Robert
c'est quand tu veux commencer à creer ton incrementation dans le tableau, donc tu lance l' usf, tu fait ta saisie dans les différentes textbox puis tu click sur ajouter et la :
"Numéro déja saisie"
alors qu'il n'y a rien de saisie puisque nous commençons !!!!

Merci

 

[Robert]

Re : Est ce possible Automatisé un textbox ?

Bonsoir Aziz, bonsoir le forum,

J'ai bien compris par tes questions que ce n'est pas toi qui a créé ce fichier. Ce n'est pas un reproche mais une constatation, tu aurais peut-être dû (ou pu) le préciser...
Remplace :

'ici on cherche si numéro bon
For Each cel In rgnum
    If cel > CDbl(Txt3) Then MsgBox "Attention numero déjà saisie": Exit Sub
Next cel

par :

'ici on cherche si numéro bon
If Sheets("Feuil1").Range("E2") <> "" Then
    For Each cel In rgnum
        If cel > CDbl(Txt3) Then MsgBox "Attention numero déjà saisie": Exit Sub
    Next cel
End If

 

[aziz]

Re : Est ce possible Automatisé un textbox ?

Bonsoir Robert et merci pour ton aide
oui c'est un module que quelqu'un m'avait crée et je cherche à l'améliorer et par la même occasion d'apprendre.

J'ai encore besoin de ton aide...

cette fois ci la premier saisie à fonctionner.....et en voulant faire une seconde le message

"impossible de définir la propriété list. index de table de propriété non valide"
avec code erreur 381

 

[Robert]

Re : Est ce possible Automatisé un textbox ?

Bonsjour Aziz, bonjour le forum,

Me.CmbNom.List = WS.Range("A2:A" & L).Value 'alimente la combobox "CmbNom" sans boucle

par :

If L > 2 Then
    Me.CmbNom.List = WS.Range("A2:A" & L).Value 'alimente la combobox "CmbNom" sans boucle
Else
    Me.CmbNom.AddItem WS.Range("A2")
End If

 

[aziz]

Re : Est ce possible Automatisé un textbox ?

Bonjour, Robert et au forum
J'ai une erreur de type 13
est ce que je peux supprimer la ligne ou faut il la modifier ? merci

Me.Txt4.Value = (CLng(Me.Txt3.Value) + qt) - 1 'additionne la valeur de la textbos "Txt3" convertie en entier et qt

Bonne journée

 

[Robert]

Re : Est ce possible Automatisé un textbox ?

Bonjour Aziz, bonjour le forum,

les corrections :

Private Sub Txt3_Change()
Dim qt As Long 'déclare la variable qt (QuanTité)
'si la textbox "Txt5" est vide, qt est égale à zéro, sinon qt est la valeur de la textbox convertie en entier
If Me.Txt5.Value = "" Then qt = 0 Else qt = CLng(Me.Txt5.Value)
On Error Resume Next
Me.Txt4.Value = (CLng(Me.Txt3.Value) + qt) - 1 'additionne la valeur de la textbos "Txt3" convertie en entier et qt
Err.Clear
End Sub

et

Private Sub Txt5_Change()
Dim pn As Long 'déclare la variable pn (Premier Numéro)
'si la textbox "Txt3" est vide, pn est égale à zéro, sinon pn est la valeur de la textbox convertie en entier
If Me.Txt3.Value = "" Then pn = 0 Else pn = CLng(Me.Txt3.Value)
On Error Resume Next
Me.Txt4.Value = (CLng(Me.Txt5.Value) + pn) - 1 'additionne la valeur de la textbos "Txt5" convertie en entier et pn
Err.Clear
End Sub

À ce rythme là en 2028 on y est encore... Je vais essayer (si j'ai le temps) de te réécrire un code cohérent...