• Initiateur de la discussion Initiateur de la discussion xavier
  • 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 !

X

xavier

Guest
bonjour a tous

mon Pb est simple je doit calculer dans mon usf une ligne (De D à O) le total colonne P.

lorsque je valide la 1ère ligne la somme est correct mais lorsque j'inserère une nouvelle ligne, il m'affiche la somme de P8 + P9.

j'utilise le code suivant pourles calcul.

Private Sub CommandButton1_Click()
Dim I As Integer
Dim Résultat As Integer
Dim Mes, reponse As String
If TextBox1 = "" Then
Mes = "Vous devez saisir le Service"
response = MsgBox(Mes, vbOKOnly + vbInformation, "Erreur de saisie")
GoTo fin
Else
premlivide = Columns(1).Find("", [A200], , , xlByRows, xlNext).Row
I = Worksheets("Communication").Range("A200").End(xlUp).Row
Range(Cells(I, 1), Cells(I, 16)).Copy Destination:=Cells(I + 1, 1)
NumFiche = NumFiche + 1
Range("Q" & I + 1).Value = NumFiche
Worksheets("Communication").Range("A" & I + 1).Value = TextBox1.Value
Worksheets("Communication").Range("D" & I + 1).Value = TextBox2.Value
Worksheets("Communication").Range("E" & I + 1).Value = TextBox3.Value
Worksheets("Communication").Range("F" & I + 1).Value = TextBox4.Value
Worksheets("Communication").Range("G" & I + 1).Value = TextBox5.Value
Worksheets("Communication").Range("H" & I + 1).Value = TextBox6.Value
Worksheets("Communication").Range("I" & I + 1).Value = TextBox7.Value
Worksheets("Communication").Range("J" & I + 1).Value = TextBox8.Value
Worksheets("Communication").Range("K" & I + 1).Value = TextBox9.Value
Worksheets("Communication").Range("L" & I + 1).Value = TextBox10.Value
Worksheets("Communication").Range("M" & I + 1).Value = TextBox11.Value
Worksheets("Communication").Range("N" & I + 1).Value = TextBox12.Value
Worksheets("Communication").Range("O" & I + 1).Value = TextBox13.Value
Résultat = WorksheetFunction.Sum(Range("D:O"))
MsgBox "Total" & Résultat, 0, "Résultats"
fin:
End If
End Sub
je pense que sa bloque sur la ligne Résultat
si quelqu'un à la réponse grand merci d'avance (pitetre que je suis un bouricot mais je cherche depuis pas mal de temps)

2ème prb j'affecte un numéro automatique a mes lignes. tout se passe bien, il note bien 1, 2, 3, etc, mais lorsque je sort de l'USF, et que j'y revient après il reprend la numérotation à 1

merci d'avance @+

xavier
 
- 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

Réponses
5
Affichages
264
Réponses
1
Affichages
182
Réponses
2
Affichages
210
Réponses
4
Affichages
200
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
508
Réponses
4
Affichages
468
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
655
Retour