Microsoft 365 Insérer un résultat dans une cellule d'un tableau

[Alain 79]

Bonjour à tous,
Tout d'abord, 'adresse tous mes meilleurs voeux pour cette nouvelle année à tous les participants de ce forum.

J'ai un fichier avec un tableau, dont un exemple ci-joint, dans j'ajoute une nouvelle ligne à l'aide d'un bouton de commande et je souhaiterai que la deuxième colonne se remplisse automatiquement en indiquant le 1er jour du mois de la date située dans la cellule au-dessus.

Mon fichier, je pense, sera plus explicite que mes explications.

Par avance Merci

 

[Alain 79]

Petite rectification d'erreurs de frappe
Tout d'abord, j'adresse ....
J'ai un fichier avec un tableau, dont un exemple ci-joint, dans lequel ....

 

[sylvanu]

Bonjour Alain,
Un essai en PJ avec :

Acquisition dernière date :
DatePrec = Range("C" & Rows.Count).End(xlUp).Value
Nouvelle date :
Range("C" & Rows.Count).End(xlUp).Value = Application.EoMonth(DatePrec, 1)

 

[Alain 79]

Bonjour Sylvanu,
ça m'a l'air parfait, il ne me reste plus qu'à l'adapter à mon fichier.

Un grand merci

 

[sylvanu]

Re,
Peut être plus lisible :

Sub NouvelleLigne()
Dim N%                                              ' N, N° de ligne en "integer"
With Sheets("Feuil1")                               ' Avec la feuille 1
    .Unprotect                                      ' La déprotéger
    N = 1 + [Tableau1].ListObject.ListRows.Count    ' N° de la nouvelle ligne
    [Tableau1].ListObject.ListRows.Add              ' On ajoute une ligne
    [Tableau1[Sup.]].Item(N) = 1                    ' On remplit la colonne Sup.
    [Tableau1[Taux]].Item(N) = [F2]                 ' On remplit la colonne Taux
    [Tableau1[Période]].Item(N) = Application.EoMonth([Tableau1[Période]].Item(N - 1), 1) ' Nouvelle date
    .Protect
End With
End Sub

 

[Alain 79]

Oui surement pls lisible, mais surtout plus pro. La 1ére version fonctionne parfaitement et le résultat correspond exactement à ce que je recherchais.
Bien entendu la 2éme version fonctionne tout aussi bien.
Bravo et merci