XL 2019 Ajouter une valeur par défaut sous condition de remplissage d'une autre cellule

[nelson29]

Bonjour, je recherche une formule ou macro pour ajouter une valeur défaut (ex "1") des que je rentre un nombre dans une autre cellule
Ex si je rentre 120 dans B3 alors "1" s'affiche en D3 ceci pour les lignes qui suivent et que mon tableau comporte plusieurs séries de 3 colonnes. Je mets un fichier en PJ
D'avance merci

 

[nelson29]

Eureka Pour le coup j'ai trouvé :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then

Cells(Target.Row, 4).Value = "1"

Cells(Target.Row, 7).Value = "1"

End If

End Sub

 

[nelson29]

Bonjour, pour le coup la formule ne fonctionne pas avec mon groupe de colonne (3 colonnes par groupe indépendante); Je mets la formule en dessous mais ça bug!!
Si quelqu'un peut apporter une solution merci


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Cells(Target.Row, 6).Value = "1"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
Cells(Target.Row, 9).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 10 Then
Cells(Target.Row, 12).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then
Cells(Target.Row, 15).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then
Cells(Target.Row, 18).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 Then
Cells(Target.Row, 21).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 22 Then
Cells(Target.Row, 24).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 25 Then
Cells(Target.Row, 27).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 28 Then
Cells(Target.Row, 30).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 31 Then
Cells(Target.Row, 33).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 34 Then
Cells(Target.Row, 36).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 37 Then
Cells(Target.Row, 39).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 40 Then
Cells(Target.Row, 42).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 43 Then
Cells(Target.Row, 45).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 46 Then
Cells(Target.Row, 48).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 49 Then
Cells(Target.Row, 51).Value = "1"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 52 Then
Cells(Target.Row, 54).Value = "1"
End If
End Sub