XL 2021 insérer lignes avec formule

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 !

Bonjour Malherbe,
Utilisez un tableau structuré ( TDS ), en faisant Insertion/Tableau.
Un des avantage est que les formules sont dupliquées automatiquement.
Il suffit d'entrer une nouvelle donnée en fin de tableau pour que celui ci s'actualise.

Test5.gif
 
Bonjour à tous

Pourquoi utiliser un format périmé depuis 18 ans ? On perd une bonne partie des possibilités d'Excel 2021...
je constate que cela fonctionne pour faire la somme.
est-ce que tu peux expliquer =SOMME(Tableau1[@[J1]:[J40]]) ?
sur les lignes j'ai une autre formule AT12.
=CONCATENER(SI(D12>0;1)+SI(E12>0;1)+SI(F12>0;1)+SI(G12>0;1)+SI(H12>0;1)+SI(I12>0;1)+SI(J12>0;1)+SI(K12>0;1)+SI(L12>0;1)+SI(M12>0;1)+SI(N12>0;1)+SI(O12>0;1)+SI(P12>0;1)+SI(Q12>0;1)+SI(R12>0;1)+SI(S12>0;1)+SI(T12>0;1)+SI(U12>0;1)+SI(V12>0;1)+SI(W12>0;1)+SI(X12>0;1)+SI(Y12>0;1)+SI(Z12>0;1)+SI(AA12>0;1)+SI(AB12>0;1)+SI(AC12>0;1)+SI(AD12>0;1)+SI(AE12>0;1)+SI(AF12>0;1)+SI(AG12>0;1)+SI(AH12>0;1)+SI(AI12>0;1)+SI(AJ12>0;1)+SI(AK12>0;1)+SI(AL12>0;1)+SI(AM12>0;1)+SI(AN12>0;1)+SI(AO12>0;1)+SI(AP12>0;1);"/";$AT$6)
 
Bonjour malherbe, le forum,
mon tableau est de B12 a AT111
Voyez le fichier joint et cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, f$
Application.EnableEvents = False 'désactive les évènements
With [B12:AT111] 'tableau à modifier
    For Each c In .Columns(.Columns.Count).Cells 'colonne AT
        If c.HasFormula Then f = c.FormulaR1C1: Exit For
    Next
    .Columns(.Columns.Count).FormulaR1C1 = f
    f = ""
    For Each c In .Columns(.Columns.Count - 3).Cells 'colonne AQ
        If c.HasFormula Then f = c.FormulaR1C1: Exit For
    Next
    .Columns(.Columns.Count - 3).FormulaR1C1 = f
    .Rows(.Rows.Count + 1).Resize(Rows.Count - .Rows.Count - .Row).Delete xlUp 'RAZ en dessous
End With
Application.EnableEvents = True 'réactive les évènements
End Sub
Insérez des lignes dans le tableau B12:AT111 ou modifiez des cellules et voyez les formules en colonnes AQ et AT.

A+
 

Pièces jointes

- 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

Réponses
6
Affichages
204
Réponses
2
Affichages
123
Réponses
7
Affichages
427
Réponses
6
Affichages
207
Réponses
1
Affichages
263
Réponses
18
Affichages
370
  • Question Question
Microsoft 365 problème d'index
Réponses
19
Affichages
241
Retour