Tableau

Bonjour à tous. j'ai un petit soucis. J'ai un tableau sur ma feuille excel "Historique litiges". Sur ma feuille "litiges", j'ai un userform qui me permet de modifier un litige. J'aimerai que lorsque je modifie un litige, cela s'affiche directement dans mon tableau sur la deuxième feuille pour avoir une traçabilité. Je dépose mon fichier pour que cela soit plus compréhensible.

Bonjour Vince,

Est-ce que ce code fait l'affaire ?

Private Sub CommandButton1_Click()

    Range("Traité_par").Rows(i_cde) = ComboBox2.Value
    Range("Action").Rows(i_cde) = TextBox1.Value
    Range("Statut_litige").Rows(i_cde) = ComboBox3.Value

With Sheets("Historique litiges").ListObjects("Tableau1")
    If .ListRows.Count = 0 Then
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = 1
        Range("Tableau1[[#Headers],[Nom]]").Offset(1, 0) = ""
    End If

    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Historique litiges").ListObjects("Tableau1").ListRows(1)
    Else
        Set LignTablo = Range("Tableau1").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If

End With

'Code pour ecrire les enregsitrements

With LignTablo.Range
.Cells(1, 1) = ComboBox1.Value  ' numéro de commande

.Cells(1, 3) = ComboBox2.Value  ' Actuellement traité par

.Cells(1, 4) = TextBox1.Value  ' Action menée afin de le regler

.Cells(1, 5) = ComboBox3.Value  ' Statut du litige

End With
End Sub

Je l'ai inséré mais cela ne fonctionne pas.

Rechercher des sujets similaires à "tableau"