Bonjour à toutes et tous
je voudrais que sur un tableau on ne peut écrire que dans une cellule précise,j'ai trouvé sur le forum un code
Worksheet_SelectionChange qui fonctionne très bien sauf que j'utilise déjà un code Worksheet_Change et les 2 codes bien sur se contraries
mes codes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("F2").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As Range
If Target.CountLarge > 1 Then Exit Sub
If Target.Address = "$F$2" And Target(1, 1) <> "" Then
Range("A500").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "=LEFT(F2,8)*1"
End If
Range("F2").Select
End Sub
quel modif au 2è code pour imposser la cellule F2 dès le departs et imposer la non sélection d'une autre
possible ou pas ??????
merci
phil69
je voudrais que sur un tableau on ne peut écrire que dans une cellule précise,j'ai trouvé sur le forum un code
Worksheet_SelectionChange qui fonctionne très bien sauf que j'utilise déjà un code Worksheet_Change et les 2 codes bien sur se contraries
mes codes
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("F2").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As Range
If Target.CountLarge > 1 Then Exit Sub
If Target.Address = "$F$2" And Target(1, 1) <> "" Then
Range("A500").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "=LEFT(F2,8)*1"
End If
Range("F2").Select
End Sub
quel modif au 2è code pour imposser la cellule F2 dès le departs et imposer la non sélection d'une autre
possible ou pas ??????
merci
phil69
Dernière édition: