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
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)
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 ?
Non ce n'est pas privé.
Nous sommes sur un forum, la question est posée dans un forum, je réponds dans le forum.
Relire et tester ce que j'ai ajouté dans mon précédent message.