Rem. —— Ajout d'une nouvelle dernière ligne à la plage "Tablo" d'une feuille
Sub AjoutDrnLigTablo(LAjté As Long, ByVal F As Worksheet)
Dim RgTab As Range, Cel As Range
Set RgTab = F.[Tablo]
LAjté = RgTab.Rows.Count
RgTab.Rows(LAjté).Copy
RgTab.Rows(LAjté).Insert xlShiftDown
LAjté = LAjté + 1
For Each Cel In Intersect(F.[Tablo].Rows(LAjté), F.UsedRange)
If Not Cel.HasFormula Then Cel.ClearContents
Next Cel
End Sub
'
Rem. —— Dispositif de sécurité pour préserver la plage "Tablo" d'une feuille
Function UnVandaleEstPasséParLà(ByVal Feuil As Worksheet) As Boolean
Dim NbL As Long
On Error Resume Next
NbL = Feuil.[Tablo].Rows.Count
If Err Then NbL = 0
On Error GoTo 0
UnVandaleEstPasséParLà = NbL < 2
If UnVandaleEstPasséParLà Then
MsgBox "La liste doit comporter au moins 2 lignes," & vbLf _
& "quitte à en vider la part saisissable." & vbLf _
& "Pour ne saccager aucune référence, formule," & vbLf _
& "ou format, votre manœuvre va être annulée.", _
vbExclamation, "Opération dangereuse pour l'intégrité du fichier"
Application.Undo
End If
End Function