Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

bendv

XLDnaute Nouveau
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
 

p'tit vieux

XLDnaute Occasionnel
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)
 
Dernière édition:

sousou

XLDnaute Barbatruc
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.
 

Pièces jointes

  • Suivi des dépenses Vab sousou.xlsm
    64.2 KB · Affichages: 3

sousou

XLDnaute Barbatruc
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 )
 

Pièces jointes

  • Suivi des dépenses Vab sousou.xlsm
    67.6 KB · Affichages: 2

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…