Activesheet.listobjects et première cellule vide et

Bonjour,

Je souhaite trouver la première cellule vide de la colonne A soit "Date de MAJ" de mon "Tableau3" et y appliquer la date d'aujourd'hui. Cette date doit s'appliquer aux autres cellules de la colonne A du Tableau3.

J'ai une partie du code mais comment appliquer une sorte autofill destination dans un tableau, ou dois-je utiliser une autre méthode ?

Voici le code :

[code][/ With Sheets("Base de données").ListObjects("Tableau3")

'indice dans la feuille, de la ligne correspondant à la première cellule vide du premier champ du tableau

i = .ListColumns("Date de MAJ").Range.Find("", SearchDirection:=xlNext).Row

'indice relatif dans l'objet tableau1, de la ligne correspondant à la première cellule vide du premier champ du tableau

i = i - .HeaderRowRange.Row

'remplissage ligne

.ListColumns("Date de MAJ").DataBodyRange.Rows(i). = "=+TODAY()"

End With

code]

Je vous remercie de votre aide.

Bonsoir,

Une proposition.

Public Sub DEMO()
Dim rng As Range
    With ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange
        Set rng = .SpecialCells(xlCellTypeBlanks)
        rng.Value = Date
    End With
End Sub

Bonjour,

je complète la proposition de jean-eric, SpecialCells générant une erreur s'il ne trouve rien :

    Dim rng As Range
    With ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange
        On Error Resume Next
        Set rng = .SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not rng Is Nothing Then rng.Value = Date
    End With

eric

Re,

Bonsoir Eric,

Cela vaut bien un petit cœur...

Et puis mes meilleurs vœux pour cette nouvelle année.

Cdlt.

mes meilleurs voeux également

Jean-Eric a écrit :

Bonsoir,

Une proposition.

Public Sub DEMO()
Dim rng As Range
    With ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange
        Set rng = .SpecialCells(xlCellTypeBlanks)
        rng.Value = Date
    End With
End Sub

Je vous remercie pour votre réponse. ça correspond à ce que je cherche

eriiic a écrit :

Bonjour,

je complète la proposition de jean-eric, SpecialCells générant une erreur s'il ne trouve rien :

    Dim rng As Range
    With ActiveSheet.ListObjects(1).ListColumns(1).DataBodyRange
        On Error Resume Next
        Set rng = .SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not rng Is Nothing Then rng.Value = Date
    End With

eric

Génial, ça marche du tonnerre, je like