Discussion :

[Philippe76]

Bonjour
Voilà je souhaite ecrire dans la colonne A:A une référence et que dans la colonne B:B une formule en face la cellule renseignée qui est ecrite en VBA vienne dans cette cellule.
j'ecris en A1 "SC3200" il faut quand B2 cela mette "=si(gauche (A1;2)="SC";OK;NOK)
j'ecris en A2 etc...
Evidement la formule est un exemple
Merci

[QuestVba]

Hello

à mettre dans ta feuil - comme début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
if target.column = 1 Then
Cells(1, 2) = "la cellule A1 a changé"
 
End If
End Sub

[Philippe76]

Merci mais je voudrais quand j'ecris un autre réf. en A2 puis A3 etc.
Que la formule continu a ecrire
merci

[QuestVba]

Un peu mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
x = ActiveCell.Offset(-1, 0).Value
ActiveCell.Offset(-1, 1).Value = "-" & x
 
End If
End Sub

[Philippe76]

merci