Addition depuis userform

Bonsoir le forum,

merci de l'aide que vous donnez à tout le monde,

mon problème j'ai un userform ou je ventile par moi des sorties

mais comme j'ai 4 semaines je voudrais que quand j'enregistre 1 semaine cela va bien dans la cellule mais la deuxième semaine cela ne s'aoute et je sèche,

j'ai ce code qui enregistre pour 1 semaine et un mois donné,

Private Sub cmdEnregistrer_Click()
    If cboNomsEtPrénoms <> "" Then
        If cboMois <> "" Then
            m = cboMois.Text
            lig = cboNomsEtPrénoms.ListIndex + 4
            Sheets(m).Range("C" & lig) = txtIRPP.Text
            Sheets(m).Range("D" & lig) = txtCAC.Text
            Sheets(m).Range("E" & lig) = txtTC.Text
            Sheets(m).Range("F" & lig) = txtCRTV.Text
            Sheets(m).Range("G" & lig) = txtCFC.Text
        End If
    End If
End Sub

merci de votre coup de main,

bonne soirée jean claude.

Salut Ferdinand, Jean-Claude, tout le monde...

sans plus de précisions ni fichier (comme souvent), je postule que tes TextBoxes ne contiennent que des valeurs numériques...

Auquel cas... à tester...

Private Sub cmdEnregistrer_Click()
    If cboNomsEtPrénoms <> "" Then
        If cboMois <> "" Then
            m = cboMois.Text
            lig = cboNomsEtPrénoms.ListIndex + 4
            With Sheets(m)
                .Range("C" & lig).Value = .Range("C" & lig).Value + Val(Me.txtIRPP.Text)
                .Range("D" & lig).Value = .Range("D" & lig).Value + Val(txtCAC.Text)
                .Range("E" & lig).Value = .Range("E" & lig).Value + Val(txtTC.Text)
                .Range("F" & lig).Value = .Range("F" & lig).Value + Val(txtCRTV.Text)
                .Range("G" & lig).Value = .Range("G" & lig).Value + Val(txtCFC.Text)
            End With
        End If
    End If
End Sub

A+

Bonjour curulis57 et le forum

Merci de ta réponse cela fonctionne très bien je vais continuer,

amct

bonne journée Ferdinand