Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 et bienvenu sur le forum
en utilisant des tableaux structurés (Inserer/tableau) les formules sont automatiquement recopiées des que l'on rempli la cellule de la 1ere colonne suivante..
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.
Bonjour et bienvenu sur le forum
en utilisant des tableaux structurés (Inserer/tableau) les formules sont automatiquement recopiées des que l'on rempli la cellule de la 1ere colonne suivante..
Ah! Limay... j'ai habité au haute meunière...
Pourquoi c'est si à rallonge
si ce sont des chiffres qu'il faut additionner somme(c14:ap14) sinon nb.si(c14:ap14)
Ah! Limay... j'ai habité au haute meunière...
Pourquoi c'est si à rallonge
si ce sont des chiffres qu'il faut additionner somme(c14:ap14) sinon nb.si(c14:ap14)
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)
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.
- 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