Private Sub Worksheet_Change(ByVal Target As Range)
'rempilssage automatique des cellules
If Target.Count > 1 Then Exit Sub
If Target.Column <> 5 Or Target.Row = 1 Then Exit Sub
If Target.Value = "Clients" Then
Target.Offset(0, 2).Value = Sheets("Listes").Range("R3").Value
Target.Offset(0, 4).Value = Sheets("Renseignements").Range("H5").Value
Target.Offset(0, 5).Value = Sheets("listes déroulante").Range("F3").Value
Target.Offset(0, 7).Value = Sheets("Renseignements").Range("F5").Value
ElseIf Target.Value = "Taxes et charges" Then
Target.Offset(0, 4).Value = Sheets("Renseignements").Range("H5").Value
Target.Offset(0, 5).Value = Sheets("listes déroulante").Range("F2").Value
Target.Offset(0, 6).Value = Sheets("listes déroulante").Range("G2").Value
Target.Offset(0, 7).Value = Sheets("Renseignements").Range("F6").Value
ElseIf Target.Value = "Effectifs" Then
Target.Offset(0, 4).Value = Sheets("Renseignements").Range("H5").Value
Target.Offset(0, 5).Value = Sheets("listes déroulante").Range("F2").Value
Target.Offset(0, 6).Value = Sheets("listes déroulante").Range("G3").Value
Target.Offset(0, 7).Value = Sheets("Renseignements").Range("F7").Value
ElseIf Target.Value = "Autres" Then
Target.Offset(0, 7).Value = Sheets("Renseignements").Range("F7").Value
ElseIf Target.Value = "Fournisseurs" Then
Target.Offset(0, 2).Value = Sheets("Listes").Range("L3").Value
Target.Offset(0, 4).Value = Sheets("Renseignements").Range("H5").Value
Target.Offset(0, 5).Value = Sheets("listes déroulante").Range("F2").Value
Target.Offset(0, 6).Value = Sheets("listes déroulante").Range("G2").Value
Target.Offset(0, 7).Value = Sheets("Renseignements").Range("F6").Value
ElseIf Target.Value = "" Then
Target.Offset(0, 2).Value = ""
Target.Offset(0, 4).Value = ""
Target.Offset(0, 5).Value = ""
Target.Offset(0, 6).Value = ""
Target.Offset(0, 7).Value = ""
Else
Target.Offset(0, 4).Value = Sheets("Renseignements").Range("H5").Value
Target.Offset(0, 5).Value = Sheets("listes déroulante").Range("F2").Value
Target.Offset(0, 6).Value = Sheets("listes déroulante").Range("G2").Value
Target.Offset(0, 7).Value = Sheets("Renseignements").Range("F6").Value
End If
End Sub
Private Sub Worksheet_Change2(ByVal Target As Range)
'rempilssage automatique des cellules
If Target.Count > 1 Then Exit Sub
If Target.Column <> 6 Or Target.Row = 1 Then Exit Sub
If Target.Value = "Free" Then
Target.Offset(0, 1).Value = Sheets("listes").Range("N14").Value
ElseIf Target.Value = "Orange" Then
Target.Offset(0, 1).Value = Sheets("listes").Range("N14").Value
ElseIf Target.Value = "Bouygues Tél" Then
Target.Offset(0, 1).Value = Sheets("listes").Range("N14").Value
ElseIf Target.Value = "Ecofleet" Then
Target.Offset(0, 1).Value = Sheets("listes").Range("N3").Value
Else
Target.Offset(0, 1).Value = ""
End If
End Sub