Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Alain 79
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Alain 79

XLDnaute Occasionnel
Supporter XLD
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
 

Pièces jointes

Solution
sylvanu
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
Trier par date Trier par votes
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)
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Question Question
XL 2021 *RESOLU* Cellule personnalisée excel
Réponses
2
Affichages
144
hades
H
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
97
StéphaneDeLà
S
N
  • Question Question
Power Query comment copier une colonne d'un tableau sur un autre dans power query
Réponses
4
Affichages
383
merinos-BernardEtang
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
63
PHIL37
P
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
175
AtTheOne
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
279
ORL
O
  • Question Question
XL 2019 sommer les valeurs d'un tableau dans un autre selon critere
Réponses
2
Affichages
329
JBOBO
B
  • Question Question
Autres Renvoyer un nom dans une cellule en fonction d'une résultat dans une autre
Réponses
8
Affichages
674
BabyDolphin30
B
Y
  • Question Question
Google Sheets GOOGLE SHEET Référencer une cellule dans la fonction QUERY
Réponses
1
Affichages
94
pieyo0
P
  • Résolu(e)
Microsoft 365 Remplir une cellule avec la valeur d'une autre sous condition
Réponses
2
Affichages
347
Droopyougo
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
381
MCOTTEND
M
  • Question Question
Microsoft 365 Insérer automatiquement un texte défini dans une cellule, avant ou après une série de chiffres.
Réponses
7
Affichages
665
Brigitte 45
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
262
sebastien176
S
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
2 K
Phil69970
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
C
  • Question Question
XL 2019 Récupérer titre de ligne et colonne quand une cellule est rempli dans un tableau
Réponses
3
Affichages
401
Clemee61
C
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
415
JHA
J
B
  • Question Question
XL 2016 recherche dans une colonne depuis un autre onglet
Réponses
5
Affichages
440
boguinette
B
H
  • Question Question
Power Query Récupérer une donnée dans des classeurs pour afficher le résultat dans un autre classeur
Réponses
5
Affichages
540
hijackfr
H
B
  • Question Question
XL 2010 Ajouter des lignes dans tableau avec une macro
Réponses
13
Affichages
536
Boyoh
B
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…