Probleme sur macro d'addition de cellule

  • Initiateur de la discussion Initiateur de la discussion post prod
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

post prod

XLDnaute Occasionnel
Bonjour a tous j'ai un petit soucie sur une macropassant par une listbox le calcul me mais le resultat a la suite l'un de l'autre au lieu de l'additionner
voir fichier
merci d'avance au pro de la macro
 
Re : Probleme sur macro d'addition de cellule

Salut post prod, le Forum

Pas sur de tout comprendre (jem'faitvieux😛) mais essaye de remplacer

Code:
Private Sub CommandButton2_Click()
With Sheets("BASE")
Ligne = IIf(Ligne = 0, .Range("B65536").End(xlUp).Row + 1, Ligne)
.Cells(Ligne, 2) = (Me.TextBox10.Value)
.Cells(Ligne, 3) = (Me.TextBox2.Value)
.Cells(Ligne, 4) = (Me.TextBox3.Value)
.Cells(Ligne, 5) = (Cells(Ligne, 5) + Me.TextBox4.Value)
.Cells(Ligne, 6) = (Cells(Ligne, 6) + Me.TextBox5.Value)
.Cells(Ligne, 7) = (Cells(Ligne, 7) + Me.TextBox6.Value)
.Cells(Ligne, 8) = (Cells(Ligne, 8) + Me.TextBox7.Value)
.Cells(Ligne, 9) = (Cells(Ligne, 9) + Me.TextBox8.Value)
.Cells(Ligne, 10) = (Cells(Ligne, 10) + Me.TextBox9.Value)
End With
ListBox1.Clear
CommandButton13.Visible = False
End Sub
par

Code:
Private Sub CommandButton2_Click()
With Sheets("BASE")
Ligne = IIf(Ligne = 0, .Range("B65536").End(xlUp).Row + 1, Ligne)
.Cells(Ligne, 2) = [B]Val[/B](Me.TextBox10.Value)
.Cells(Ligne, 3) = [B]Val[/B](Me.TextBox2.Value)
.Cells(Ligne, 4) = [B]Val[/B](Me.TextBox3.Value)
.Cells(Ligne, 5) = [B]Val[/B](Cells(Ligne, 5)) + [B]Val[/B](Me.TextBox4.Value)
.Cells(Ligne, 6) = [B]Val[/B](Cells(Ligne, 6)) + [B]Val[/B](Me.TextBox5.Value)
.Cells(Ligne, 7) = [B]Val[/B](Cells(Ligne, 7)) + [B]Val[/B](Me.TextBox6.Value)
.Cells(Ligne, 8) = [B]Val[/B](Cells(Ligne, 8)) + [B]Val[/B](Me.TextBox7.Value)
.Cells(Ligne, 9) = [B]Val[/B](Cells(Ligne, 9)) + [B]Val[/B](Me.TextBox8.Value)
.Cells(Ligne, 10) = [B]Val[/B](Cells(Ligne, 10)) + [B]Val[/B](Me.TextBox9.Value)
End With
ListBox1.Clear
CommandButton13.Visible = False
End Sub
Bonne Journée
 
Re : Probleme sur macro d'addition de cellule

Bonjour dull
effectivement je me suis pas assez bien exprimer
le principe et
par la box je rentre des donner sur des jour de conger prie
il se place dans la liste sans probleme
quand je veut modififier une ligne j'affiche la ligne dans la box pour la modifier et elle doit s'additionner a la liste apres enregistrement
mais la elle me mais les deux chiffre dans la meme cellule san les additionner
ps:je suis sur des chiffre a virgule 0.5 1.5 2.5 ect
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 probleme d heure
Réponses
11
Affichages
288
D
  • Question Question
Réponses
5
Affichages
255
Didierpasdoué
D
Réponses
5
Affichages
192
  • Question Question
XL 2021 Macro
Réponses
6
Affichages
331
Réponses
16
Affichages
629
Retour