Bonjour
Code dans module
Code associé au bouton "Afficher 0"
Sub Afficher_Zero()
Dim Cel As Range
For Each Cel In Range("F3", Range("F3").End(xlDown))
Cel.Value = 0
Next Cel
End Sub
Code associé au bouton "Formules"
Sub Afficher_Formules()
Application.DisplayAlerts = False
With Range("F3", Range("F3").End(xlDown))
.FormulaR1C1 = _
"=RC[-1]-'C:\Users\serre\Desktop\[moto.xlsx]sortie_moto'!R2C9"
End With
Application.DisplayAlerts = True
End Sub
Cordialement