@Matt. VH
------------------------------------------------------------------------------------------
dans la sub Init, il faut :
[M4:O52, M57:O105, M110:O128, M133:O152] = Empty
ceci afin de ne plus effacer en colonne P.
------------------------------------------------------------------------------------------
dans la sub WriteLig() :
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
A) il y a ces 2 lignes de code VBA :
c = IIf(p < 4, 13, 2)
With Cells(k, c)
rappel : c = IIf(p < 4, 13, 2) est pareil que :
If p < 4 Then c = 13 Else c = 2
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
B) plus bas, il y a ces 3 lignes VBA :
With .Offset(, 3)
.NumberFormat = fmt2: .Value = t(p)
End With
c'est ça qui écrit en colonne P (quand c = 13) ; mais attention :
ça écrit aussi en colonne E (quand c = 2) ; d'où :
1) SI tu veux NI écriture en P, NI écriture en E, alors supprime
entièrement les 3 lignes de code VBA du point B).
2) SI tu veux que ça n'écrive pas en colonne P (quand c = 13)
mais que ça continue d'écrire en colonne E (quand c = 2),
alors ajoute 2 lignes de code VBA comme suit :
If c = 2 Then
With .Offset(, 3)
.NumberFormat = fmt2: .Value = t(p)
End With
End If
rhodo