Probleme sur macro d'addition de cellule

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
 

Dull

XLDnaute Barbatruc
Re : Probleme sur macro d'addition de cellule

Salut post prod, le Forum

Pas sur de tout comprendre (jem'faitvieux:p) 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
 

post prod

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

Discussions similaires

Statistiques des forums

Discussions
312 329
Messages
2 087 323
Membres
103 516
dernier inscrit
René Rivoli Monin