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

nelson29

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
299 845
Messages
1 979 513
Membres
206 755
dernier inscrit
So78310