Marco calcule automatique

Bonjour le forum

Qu'elle serai la manip ou macro à utiliser pour effectuer automatiquement les formules sur colonnes JKLMN sans glissé curseur ou faire copié collé ?

https://www.excel-pratique.com/~files/doc2/4fL14Classeur1.xls

Merci

Salut le forum

Une petite macro qui fait le travail, pense à utiliser l'enregistreur de macro

il fournit la base du code qu'il suffit d'adapter

Sub CopierFormule()
Dim I As Long

For I = 5 To Range("I65535").End(xlUp).Row
With Cells(I, 10)
    .FormulaR1C1 = _
        "=IF(LEFT(RC[-1],SEARCH(""ALL "",RC[-1])+2)=""ALL"",1,"""")"
    .Offset(0, 1).FormulaR1C1 = _
        "=IF(ISERR(SEARCH(""1"",RC[-1])),0,1)"
    .Offset(0, 2).FormulaR1C1 = _
        "=IF(LEFT(RC[-3],SEARCH(""OF"",RC[-3])-2)=MID(RC[-3],SEARCH(""OF"",RC[-3])+3,SEARCH("" "",RC[-3],SEARCH(""OF"",RC[-3])+3)-SEARCH(""OF"",RC[-3])-3),""1"",""NOT ALL"")"
    .Offset(0, 3).FormulaR1C1 = _
        "=IF(ISERR(SEARCH(""1"",RC[-1])),0,1)"
    .Offset(0, 4).FormulaR1C1 = _
        "=RC[-3]+RC[-1]"
End With
Next I

End Sub

Mytå

Bonjour le forum

Merci Usb512

Crdt,