klin89
XLDnaute Accro
Bonsoir le forum,
J'ai 2 petits problèmes à vous soumettre.
Dans mon tableau, j'insère une ligne avec cette macro.
En B12, est retranscrite cette fonction personnalisée.
je devrai obtenir =rouge(B3:B12)
Idem pour les formules de B13, B14 et cellules contiguës
Comment y remédier ?
D'autre part, cette macro déclenche l'entrée dans mes 2 fonctions personnalisées (somme des cellules dont la Font est coloriée).
Comment l'éviter .
Pouvez-vous me venir en aide ?
Bonne soirée Klin89
J'ai 2 petits problèmes à vous soumettre.
Dans mon tableau, j'insère une ligne avec cette macro.
VB:
Sub Inserer_une_ligne()
Dim Dli As Long
Dli = Cells(Rows.Count, 1).End(xlUp).Row - 3
Rows(Dli + 1).Insert Shift:=xlDown
Range("A" & Dli & ":N" & Dli).Copy Range("A" & Dli + 1)
Range("A" & Dli + 1 & ":M" & Dli + 1).ClearContents
End Sub
En B12, est retranscrite cette fonction personnalisée.
dont la plage ne s'étend pas lors de l'insertion d'une ligne=rouge(B3:B11)
je devrai obtenir =rouge(B3:B12)
Idem pour les formules de B13, B14 et cellules contiguës
Comment y remédier ?
D'autre part, cette macro déclenche l'entrée dans mes 2 fonctions personnalisées (somme des cellules dont la Font est coloriée).
Comment l'éviter .
Pouvez-vous me venir en aide ?
Bonne soirée Klin89
Pièces jointes
Dernière édition: