Additionner 2 txtbox sur une 3éme txtbox dans un userform

Question

Bonjour , savez comment je pourrais s'il vous plait pour que quand je fais une saisie avec le formulaire, le txtCodeProduit ce remplis automatiquement en fessant la référence + le numéro du produit par exemple: Référence: LSPPN + Numéro:12345678900 = Code Produit : LSPPN 12345678900 . J'ai essayer de le faire avec un petit programme ( voir ci-dessous ) , mais je l'ai retirer du Excel car il me fait planter le formulaire de saisie je comprend pas pourquoi. J'envoie le fichier Excel en pièce joint, merci pour votre aide.

Private Sub txtRéférence_Change()
CalculSomme
End Sub
Private Sub txtNuméro_Change()
CalculSomme
End Sub
'ajoute le txtréférence et le txtNuméro dans le txtCodeProdui
Private Sub CalculSomm()

Me.txtCodeProduit.Value = Me.txtRéférence.Value + Me.txtNuméro.Value

End Sub

Cordialement.

8stock-v6.xlsm (75.19 Ko)

3GB · Accepted Answer

Il faut remplacer le + par un & qui est l'opérateur de concaténation des chaines de caractères. Cdlt...

Eric Kergresse · Answer

Essayez : Private Sub txtNuméro_Change() If txtRéférence &lt;&gt; "" Then txtCodeProduit = txtRéférence & " " & txtNuméro End If End Sub...

3GB · Answer

Parce qu'il semble que votre tableau ne soit pas un tableau structuré. Seuls les TS se restructurent et permettent la propagation des formules et en général des mises en forme...

Eric Kergresse · Answer

Il n'y a aucun formatage couleur dans votre procédure de validation. Il n'y a pas non plus de mise en forme conditionnelle sur la colonne C de votre onglet...

3GB · Answer

Il faut mettre votre tableau sous forme de tableau structuré justement en le sélectionnant, et en faisant Accueil/mettre sous forme de tableau, en cochant avec en-têtes. Là, pour l'instant, votre tableau ne semble pas structuré sur l'image (je n'ai pas ouvert votre fichier). Il faudra veiller à le renommer (dans l'onglet contextuel nommé CREATION apparaissant à droite en jaune) pour le manipuler plus simplement depuis l'éditeur de code. Cdlt...

3GB · Answer

Désolé je n'ouvre pas les fichiers... Mais vous pouvez poster vos codes ici à l'aide des balises &lt;/&gt; si vous voulez. Avant toute chose, il faut que le tableau soit "plein", c'est-à-dire sans ligne vide. Ensuite, l'archivage peut par exemple se faire de cette manière : with range("TStock2022") nvl = .rows.count + 1 'ou .listobject.listrows.count + 1 &nbsp;&nbsp;&nbsp;&nbsp;.cells(nvl, 1) = "nouvelle valeur en col 1" end with où nvl est la nouvelle ligne. Cdlt...

3GB · Answer

Voici un essai de réorganisation du code, basé sur les noms des contrôles :

'Procédure permettant de sauvegarder l'ajout d'un nouveau produit dans la base de donnée
Private Sub btnValider_Click()
tSaisie = array("txtCodeProduit", "txtDésignation", "txtRéférence", "txtNuméro", "txtCodeAlice", _
                    "txtPoids", "txtEmplacement", "txtQuantité", "txtDateEntrer", "CboNomStock")
redim tData(1 to ubound(tSaisie) + 1)
'boucle sur les controles pour sonder les vides
for each elem in tSaisie
    n = n + 1: tData(n) = me.controls(elem)
    if me.controls(elem) = "" then
        msg = msg & vblf & " > " & replace(replace(elem, "txt", ""), "Cbo", "")
    end if
next elem
'Validation : si des vides existent, on met à jour le msg et on sort
if msg <> "" then me.lblMessage = "Saisie incomplète :" & vblf & msg: exit sub
'Enregistrement
with range("TStock2022")
    nvl = .rows.count + 1 'ou .listobject.listrows.count + 1
    .cells(nvl, 1).resize(1, n) = tData
end with
'MsgBox "Votre produit a bien été ajouter à votre base de données", vbOKOnly + vbInformation, "CONFIRMATION"
'Nettoyage
for each elem in tSaisie
    me.controls(elem) = ""
next elem
End Sub

Cdlt,

3GB · Answer

Comment ça ? Les nouvelles valeurs sont bien intégrées au tableau n'est-ce pas ?

Quant au format, il faut enlever le remplissage qui existait avant que le tableau ne soit structuré pour constater la propagation de la mise en forme.

3GB · Answer

C'est étrange, je ne crois pas avoir déjà rencontré ce problème.

Essayez ce code à la place :

'Procédure permettant de sauvegarder l'ajout d'un nouveau produit dans la base de donnée
Private Sub btnValider_Click()
tSaisie = array("txtCodeProduit", "txtDésignation", "txtRéférence", "txtNuméro", "txtCodeAlice", _
                    "txtPoids", "txtEmplacement", "txtQuantité", "txtDateEntrer", "CboNomStock")
redim tData(1 to ubound(tSaisie) + 1)
'boucle sur les controles pour sonder les vides
for each elem in tSaisie
    n = n + 1: tData(n) = me.controls(elem)
    if me.controls(elem) = "" then
        msg = msg & vblf & " > " & replace(replace(elem, "txt", ""), "Cbo", "")
    end if
next elem
'Validation : si des vides existent, on met à jour le msg et on sort
if msg <> "" then me.lblMessage = "Saisie incomplète :" & vblf & msg: exit sub
'Enregistrement
with range("TStock2022").listobject
    .listrows.add.range = tData
end with
'MsgBox "Votre produit a bien été ajouter à votre base de données", vbOKOnly + vbInformation, "CONFIRMATION"
'Nettoyage
for each elem in tSaisie
    me.controls(elem) = ""
next elem
End Sub

3GB · Answer

Super, je suis content que ça marche ! J'ai juste remplacé :

with range("TStock2022")
    nvl = .rows.count + 1 'ou .listobject.listrows.count + 1
    .cells(nvl, 1).resize(1, n) = tData
end with

par

with range("TStock2022").listobject
    .listrows.add.range = tData
end with

Dans le premier cas, on agit sur la plage nommée TStock2022 (sans tenir compte du fait que ce soit un TS). On stocke la position de la prochaine nouvelle ligne dans la variable nvl et ensuite, on restitue le tableau de valeur tData (alimenté plus haut dans le code) justement à cette nouvelle ligne. L'opération a marché mais le tableau ne s'est pas automatiquement restructuré comme il l'aurait dû...

Dans le second code, j'ajoute vraiment une nouvelle ligne au TS à laquelle j'affecte tData.

range("TStock2022").listobject est le tableau structuré, .listrows renvoie la collection des lignes, la méthode .add renvoie la ligne qu'on ajoute, .range renvoie l'objet range correspondant à cette ligne.