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

Alain 79 · Vendredi à 11:58

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

sylvanu · Vendredi à 14:46

Re,
Peut être plus lisible :

Code:

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 · Vendredi à 12:00

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 · Vendredi à 14:13

Bonjour Alain,
Un essai en PJ avec :

VB:

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 · Vendredi à 14:21

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

Un grand merci

sylvanu · Vendredi à 14:46

Re,
Peut être plus lisible :

Code:

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 · Vendredi à 15:51

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

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

Alain 79

XLDnaute Occasionnel

Pièces jointes

sylvanu

Alain 79

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Alain 79

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Alain 79

XLDnaute Occasionnel

Discussions similaires