Update formule dans toutes les colonnes

bonjour

SVP je souhaite avoir une macro qui fait la MAJ des formules des totaux qui s'efface suite a des copier// coller ou autres

au départ seront déjà sauvegarder et seront copier par la suite

les formules des colonnes : T,U et les autres totaux par jours

fichier en PJ

Merci

13update-formule.zip (765.21 Ko)

any help please

de l'aide SVP

Merci

Bonjour,

Un essai ...

Sub Recopieformules()
Dim Dlig As Integer

    With Worksheets("Planning")
        Dlig = .Cells(Rows.Count, "U").End(xlUp).Row

        .Cells(7, "U").FormulaR1C1 = "=IFERROR(ROUND(RC[-1]-LEFT(RC[-2],2)+IF(RIGHT(RC[-2],4)=""Allt"",COUNTIFS(RC[34],"">0"",RC[68],"">0,01"",RC[102],""<>0"",RC[136],"">0"",RC[170],"">0"",RC[204],"">0"",RC[238],"">0"")),0),0)"

        .Cells(7, "U").AutoFill Destination:=Range("U7:U" & Dlig)
        .Cells(7, "V").Select
    End With
End Sub

ric

Rechercher des sujets similaires à "update formule toutes colonnes"