Bonjour
J'ai un souci avec le code ci-dessous
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
'ActiveSheet.Protect UserInterfaceOnly:=True
Range("E2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E3:L3").Copy
Range("E3:L3").PasteSpecial Paste:=xlPasteValues
Range("E2:L2").PasteSpecial Paste:=xlPasteFormats
Range("G2").Value = Range("C15").Value
Range("F2").Formula = "=IF(C14>0,SUM(C2:C13),"""")"
'Range("C15").Copy Range("G2")
Range("H2").Formula = "=IF(C16>0,SUM(C14:C15),"""")"
Range("C17").Copy Range("I2")
Range("C18").Copy Range("J2")
Range("K2").Formula = "=IF(C19>0,SUM(C17:C18),"""")"
Range("L2").Formula = "=IF(C20>0,SUM(C16-C19),"""")"
Range("B2:B13,C15,C17,C18").ClearContents
Range("E2").Activate
End Sub
Lorsque je test ce code toutes les lignes qui comportent Formula s'executent en direct lorsque que je fait mes saisies et lorsque j'execute la commande global je n'ai pas le résultat sur la même ligne
sur une ligne j'ai le résultat des cellules H2, K2 L2 et sur la ligne du dessus j'ai le resultat des cellules C15, C17, C18
Comment faire le résultat de toutes les cellules saisies sur une même ligne
merci
Accueil