Luxguard
XLDnaute Nouveau
Bonjour à tous,
Voici mon problème. Je souhaiterais améliorer la formule ci-dessous, j'aimerais qu'elle tienne en compte l'ajout de nouveaux onglets, actuellement je modifie le code à chaque ajout de nouvel ongle.
Next
Sheets("Synthése").Range("B5").FormulaLocal = "=NB(D5;F5;H5;J5;L5)"
Sheets("Synthése").Range("C5").FormulaLocal = "=+D5+E5+F5+G5+H5+I5+J5+K5+L5+M5"
derlin = Sheets("Synthése").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Synthése").Range("B5").AutoFill Destination:=Range("B5:B" & derlin), Type:=xlFillDefault
Sheets("Synthése").Range("C5").AutoFill Destination:=Range("C5:B" & derlin), Type:=xlFillDefault
Application.ScreenUpdating = True
merci d'avance
Voici mon problème. Je souhaiterais améliorer la formule ci-dessous, j'aimerais qu'elle tienne en compte l'ajout de nouveaux onglets, actuellement je modifie le code à chaque ajout de nouvel ongle.
Next
Sheets("Synthése").Range("B5").FormulaLocal = "=NB(D5;F5;H5;J5;L5)"
Sheets("Synthése").Range("C5").FormulaLocal = "=+D5+E5+F5+G5+H5+I5+J5+K5+L5+M5"
derlin = Sheets("Synthése").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Synthése").Range("B5").AutoFill Destination:=Range("B5:B" & derlin), Type:=xlFillDefault
Sheets("Synthése").Range("C5").AutoFill Destination:=Range("C5:B" & derlin), Type:=xlFillDefault
Application.ScreenUpdating = True
merci d'avance