Retour à la ligne automatiquement

  • Initiateur de la discussion Initiateur de la discussion franckxjr
  • 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 !

F

franckxjr

Guest
Bonjour, comment puis-je faire pour ajouter une ligne dans un tableau ?
1)Quand j'arrive en bas du tableau cellule rouge
2)rajouter une ligne automatiquement!
la ligne doit se rajouter quand je remplie ma cellule I6
3)ci-joint tableau avec formule merci
 

Pièces jointes

Re

Je parle de macros, pas de formule
Où donc est passé ceci?
(qui vient d'une autre de tes discussions)
https://www.excel-downloads.com/threads/code.20011589/
Re à tous
Je viens de voir qu'il y avait une formule en colonne A.
Donc seul ce code peut suffire dans ce cas
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 And IsEmpty(Target) Then
Target = Date
End If
End Sub
Sur mon PC, dès que je sélectionne une cellule vide en colonne I, la date s'y inscrit.
Si j’enregistre puis ferme le classeur puis le ré-ouvre les modifications sont bien préservées.
Je ne vois pas de quel problème tu parles
(et j'ai testé avec ton fichier)
Donc je réitère: à quoi bon proposer du code VBA, si ensuite tu ne l'utilises pas ...
 
Re

C'est sans doute parce que tu enregistres tes fichiers en *.xlsx
Par conséquent, quand tu fermes ton fichier *.xlsx, les macros sont effacées.

C'est sans doute pourquoi le premier fichier que tu joins était avec l'extension *.xlsx, non ?

Peut-être que le code ci-dessous finira encore aux oubliettes...
(Dans tu cliques droit sur l'onglet Recettes-> Visualiser le code et tu y colles cette macro
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 And IsEmpty(Target) Then Target = Date
If Target.Column = 9 And Not IsEmpty(Target) Then
If Me.ListObjects(1).ListRows.Count = Target.Row - 1 Then
Me.ListObjects(1).ListRows.Add
End If
End If
End Sub
Tu enregistres en *.xlsm et tu fermes le fichier et Excel
Tu ouvres de nouveau le fichier et tu sélectionnes la première cellule vide dans la colonne I
(celle juste avant la ligne où il la somme dans Montant)
Il se passe quoi, alors ?
 
Dernière édition:
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
228
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
248
Réponses
7
Affichages
589
  • Question Question
XL 2021 Macro
Réponses
6
Affichages
243
  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
410
Réponses
23
Affichages
437
Retour