Incrémentation automatique d'une cellule d'un TDB de VBA

Bonjour tout le monde

j'espère que vous allez bien.

Je suis nouveau dans ce forum et cela est ma première question dans ce forum, j'espère avoir une réponse à ma question qui peut semblez banale pour la plupart de vous.

En faite, je souhaite rendre mon tableau de bord dynamique, càd que si je rentre une valeur dans une cellule de ma base de données, celle ci engendre une incrémentation automatique la cellule de mon tableau de bord.

vous trouverez ci-joint le fichier excel sur lequel je travaille.

La feuille "M 2020" représente la base de donnée du TDB représenté sur la feuille "2020".. Je veux que si j'ajoute, par exemple, une autre ligne dans ma base de donnée "M 2020" que cela incrémente (+1) tout les valeurs dans mon tableau de bord.

j'espère que vous puissiez m'aider dans le plus bref délai svp... et Merci beaucoup

Bonjour,

Erreur > je me reprends bientôt ...

ric

Bonjour,

Un essai ...

J'ai fait les combobox 1 et 2 ...

Je te laisse faire les autres ...

Les textbox "Lieu", "Cause principale" et "Enquête" devrait être changés pour devenir des combobox ...

L'ordre des items dans les combobox doivent correspondre à l'ordre des items dans les feuilles "2020" et "2021" ...

Private Sub CommandButton1_Click()
Dim DL As Integer
   If Me.TextBox1 <> "" And Me.TextBox2 <> "" And Me.TextBox3 <> "" And Me.TextBox4 <> "" And Me.TextBox5 <> "" And Me.TextBox6 <> "" Then
      Sheets("M 2020").ListObjects(1).ListRows.Add
      DL = Sheets("M 2020").Range("A100").End(xlUp).Row

      Sheets("M 2020").Range("A" & DL) = Me.TextBox1
      Sheets("M 2020").Range("B" & DL) = Me.TextBox2
      Sheets("M 2020").Range("C" & DL) = Me.TextBox3

      Sheets("M 2020").Range("D" & DL) = Me.ComboBox1       ' Type accident
      Sheets("2020").Range("B7").Offset(ComboBox1.ListIndex + 2, 2) = Sheets("2020").Range("B7").Offset(ComboBox1.ListIndex + 2, 2).Value + 1

      Sheets("M 2020").Range("F" & DL) = Me.ComboBox2       ' Type blessure
      Sheets("2020").Range("K7").Offset(ComboBox2.ListIndex + 2, 1) = Sheets("2020").Range("K7").Offset(ComboBox2.ListIndex + 2, 1).Value + 1

      Sheets("M 2020").Range("E" & DL) = Me.TextBox4
      Sheets("M 2020").Range("G" & DL) = Me.ComboBox3
      Sheets("M 2020").Range("H" & DL) = Me.ComboBox4
      Sheets("M 2020").Range("I" & DL) = Me.TextBox5
      Sheets("M 2020").Range("J" & DL) = Me.ComboBox5
      Sheets("M 2020").Range("K" & DL) = Me.ComboBox6
      Sheets("M 2020").Range("L" & DL) = Me.TextBox6
   End If
   ThisWorkbook.Save
End Sub

ric