Bonjour Steph47, ou la forgeronne ;)
Je vous mets sur la piste, avec une possibilité parmi d'autres (l'exemple complète la ligne 30) :
Range("A30").Value = ComboBox1.Value
Range("B30").Value = ComboBox2.Value
Range("C30").Value = ComboBox3.Value
Select Case ComboBox4.Value
Case "Loyer"
Range("D30").Value = TextBox1.Value
Case "Primes"
Range("E30").Value = TextBox1.Value
Case "Commissions"
Range("F30").Value = TextBox1.Value
Case Else
End Select
Il restera pour répondre à la demande initiale :
- à déterminer la dernière ligne du tableau, grâce à la fonction suivante (résultat à mettre dans une variable) :
Cells(Rows.Count, "A").End(xlUp).Row 'dernière ligne de la colonne A
- à insérer une ligne au-dessus de la ligne Total
- à compléter les cellules avec les valeurs de la boîte de dialogue
Pour mettre le numéro d’une ligne dans une variable, une possibilité :
Steph47 = 30
Range("A" & Steph47).Value = ComboBox1.Value
Il ne reste plus qu'à finaliser ;) Tout est sur le forum
Astuce : dans les tableaux de grandes dimensions, la ligne "Total" se place sous les en-têtes de colonnes. Cela permet d'avoir le résultat sans descendre le tableau, et simplifie le code vba.
Bon week-end !