Microsoft 365 Additionner des cellules même ligne en userform vba

[bendv]

Bonjour à tous,

j'aimerai savoir comment additionner plusieurs cellules d'une même ligne dans un userform ?

Voici un code que j'ai créé.

Function copy_from_form()
Dim LastRow As Long
LastRow = ActiveWorkbook.Sheets("Générale").Range("A1000000").End(xlUp).Row
LastRow = LastRow + 1
With ActiveWorkbook.Sheets("Générale")
.Range("A" & LastRow).Value = TextBox1.Value
.Range("B" & LastRow).Value = TextBox2.Value
.Range("C" & LastRow).Value = TextBox3.Value
.Range("D" & LastRow).Value = TextBox4.Value
.Range("E" & LastRow).Value = TextBox5.Value
.Range("F" & LastRow).Value = TextBox6.Value
.Range("G" & LastRow).Value = TextBox8.Value
.Range("H" & LastRow).Value = TextBox9.Value
.Range("I" & LastRow).Value = TextBox18.Value
.Range("J" & LastRow).Value = TextBox7.Value
.Range("K" & LastRow).Value = TextBox11.Value
.Range("L" & LastRow).Value = TextBox12.Value
.Range("M" & LastRow).Value = TextBox13.Value
.Range("N" & LastRow).Value = TextBox17.Value
.Range("O" & LastRow).Value = TextBox19.Value
.Range("P" & LastRow).Value = TextBox20.Value
.Range("Q" & LastRow).Value = TextBox21.Value
.Range("R" & LastRow).Value = TextBox22.Value
.Range("S" & LastRow).Value = TextBox23.Value
.Range("T" & LastRow).Value = TextBox24.Value
.Range("U" & LastRow).Value = TextBox25.Value
.Range("V" & LastRow).Value = TextBox26.Value
.Range("W" & LastRow).Value = TextBox27.Value
.Range("X" & LastRow).Value = TextBox28.Value
.Range("Y" & LastRow).Value = TextBox29.Value
.Range("Z" & LastRow).Value = TextBox30.Value
.Range("AA" & LastRow).Value = TextBox31.Value
.Range("AB" & LastRow).Value = TextBox32.Value
.Range("AC" & LastRow).Value = TextBox33.Value
.Range("AD" & LastRow).Value = TextBox34.Value
.Range("AE" & LastRow).Value = TextBox35.Value
.Range("AF" & LastRow).Value = TextBox36.Value
.Range("AG" & LastRow).Value = TextBox37.Value
.Range("AH" & LastRow).Value = TextBox38.Value
.Range("AI" & LastRow).Value = TextBox39.Value
.Range("AJ" & LastRow).Value = TextBox40.Value
.Range("AK" & LastRow).Value = TextBox41.Value
.Range("AL" & LastRow).Value = TextBox42.Value
.Range("AM" & LastRow).Value = TextBox43.Value
.Range("AN" & LastRow).Value = TextBox44.Value
.Range("AO" & LastRow).Value = TextBox45.Value
.Range("AP" & LastRow).Value = TextBox46.Value
.Range("AQ" & LastRow).Value = TextBox47.Value
.Range("AR" & LastRow).Value = TextBox48.Value
.Range("AS" & LastRow).Value = TextBox49.Value
.Range("AT" & LastRow).Value = TextBox51.Value

End With

End Function


A celui la j'aimerai que ..Range("AT" & LastRow).Value = TextBox51.Value me donne la somme des cellules Q,S,U,W,Y,AA,AC,AE,AG,AI,AK,AM,AO,AQ,AS

Auriez vous une idée ?

Merci d'avance

 

[sousou]

Bonjour
Il semble que ta méthode soit un peu lourde, tu pourrais utiliser un boucle for next 1 to 50
et faire l'addition demandée au faire et à mesure
peux-tu joindre le fichier

 

[bendv]

Je Joins le fichier.
Merci

 

[sousou]

Ok, mais tu as un mot de passe sur le code!

 

[p'tit vieux]

Bonjour à tous,
j'ai écrit un petit truc pour faire des opérations.
Regarde si cela peut te convenir: BALANCE V1.100 ici
Je n'ai pas testé avec un UserForm.
Si cela ne te convient pas tout à fait dit le moi. On verra cela..
Un fichier exemple LIGHT (très léger) pour moi serait le bien venu pour t'aider.

PS:
Perso, peut être à cause des restes du nouvel an (vapeurs 😊), mais je comprends pas ton appli.
De plus comme le code est protégé ça n'aide pas.
Ton appli à l'air "lourde" en datas voire en traitement.
Tu as combien d'enregistrements? Si beaucoup il serait bon de passer par une base de données (payante ou gratuite)

 

[bendv]

Pour la protection
BenDV

 

[sousou]

Pas bien compris,
Tu as une formule dans AT, si tu fais la somme des texte box, et que tu la copie dans at, adieu ta formule!
Peux-tu m'éclairer?

 

[bendv]

Justement, c’est pour ça que j’ai posté cette question.
Si j’ajoute une ligne avec userform dans AT ma formule saute.
Donc j’aimerai trouver une solution.

 

[sousou]

Re bonjour
A voir si j'ai bien compris.
J'utilise des tableaux pour effectuer la correspondance entre textbox et colonne ( plus facile pour des modifs eventuelles
La somme se calcul dans le userform ( a chaque changement dans une ces textbox correspondante), mais n'est pas écrite dans la ligne de données puiusque la formule fait le travail, elle n'est donc utile(texbox51) que pour celui qui saisie et qui voie en direct le résultat.

 

[sousou]

Une petite amélioration sur la recherche

 

[bendv]

Bonjour,
Merci pour le fichier, mais malheureusement il ne fonctionne pas.

 

[sousou]

Bonjour
Etrange, ça fonctionne chez moi!
j'ai modifié ceci le code comme ceci
Private Sub Workbook_Open()
AFFICHER
End Sub
et si pas ok dis moi a quel moment tu as cet erreur.

(Place un point d'arret sur
Private Sub UserForm_Initialize()
et déroule pas à pas )

 

[bendv]

J'ai cette erreur à l'ouverture

 

[sousou]

Re
Essaie cette version