Bonjour,
Je voudrais rajouter une exception, c'est lorsque le numéro SIRET commence par 0, donc dans ce cas il faudrait prendre en compte que les 9 premiers numéros et pas le 0. Ex:
Soit le 0789456123, cela devrait copier que 789456123.
Merci d'avance
Le code actuel est le suivant:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim chn$, lng%
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 1 Then Exit Sub
If .Row = 1 Then Exit Sub
If Left$(.Value, 1) = "E" Then
chn = .Value
Else
lng = Len(.Value)
If lng >= 9 Then chn = Left$(.Value, 9)
End If
.Offset(, 2) = chn
End With
End Sub