Message d'erreur

bonjour

des que j'essai d'integrer un intervenant voici le message d'erreur.

le code est le suivant:

Private Sub transfert_Click()
Dim n As Long
If [vt_Intervenants].Item(1, 1) <> "" Then n = [vt_Intervenants].Rows.Count + 1 Else n = 1
[vt_Intervenants].Item(n, 1) = Tbx_intervenant.Value
Unload Me
End Sub

merci d'avance

Bonjour,

Visiblement, vous utilisez un tableau structuré, je pense que la bonne formulation serait plutôt celle-ci:

[vt_Intervenants].ListObject.DataBodyRange(1, 1)

( je n'ai pas vérifié)

Cdlt

bonjour ARTURO83

j'ai testé et ca ne change rien, pour tester tu clique sur ajout d'un entretien et dans l'userforme sur ajout d'un intervenant.

Bonsoir,

Essayez ceci:

'procedure d'ajout a la base
Private Sub transfert_Click()
    Dim Tabl As Range
    Dim n As Long
    Set Tabl = Sheets("Liste").Range("Tableau3")
    Intervenant = Tbx_intervenant.Text 'Mémoriser l'intervenant
    n = WorksheetFunction.CountA(Tabl.Columns(1)) + 1 ' Trouver la première ligne vide dans la colonne
    Sheets("Liste").Cells(n, "E") = Intervenant ' Ajouter les données à la première ligne vide
End Sub

Cdlt

bonjour

ca fonctionne plus de message d'erreur, juste un dernier bug ca écrase le dernier nom du tableau, ca ne rajoute pas de ligne au tableau.

Bonjour,

Essayez plutôt ceci:

Private Sub transfert_Click()
    Intervenant = Tbx_intervenant.Text 'Mémoriser l'intervenant
    With Sheets("Liste")
        .Range("E2").ListObject.ListRows.Add (1)
        .Range("E2").Value = Intervenant
    End With
    Sheets("liste").Select
    Range("Tableau3[nom de l''intervenant]").Select
    ActiveWorkbook.Worksheets("liste").ListObjects("Tableau3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("liste").ListObjects("Tableau3").Sort.SortFields.Add2 Key:=Range("Tableau3[nom de l''intervenant]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("liste").ListObjects("Tableau3").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Cdlt

bonjour

merci pour le coup de main.