Re : Aide pour completer une tableau ( Formules)
La macro qui doit être impérativement installée dans le module correspondant à la feuille utilisée (quel que soit son nom) est la suivante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = I Then
If Target.Value > 0 Then
Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value
End If
End If
End Sub
ou en abrégé :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = I and Target.Value > 0 Then Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value
End Sub
P.S. toujours privilégier la version longue, plus facile à modifier....
P.S.bis il faut que les macros soient activées.
J'envoie le fichier corrigé