Tabulation en VBA

Question

Bonjour à vous, j'ai un script qui trouve la dernière cellule d'un tableau et j'aimerai qu'ensuite le script fasse une tabulation pour créer une nouvelle ligne.

J'ai testé plusieurs solution sans succès.

Est ce que vous avez une idée de comment y arriver?

Merci beaucoup pour votre aide.

Voici le code :

Sub Derniereligne()
Feuil3.Range("b3").Select
ActiveCell.End(xlDown).Select
ActiveCell.Offset(0, 24).Select

End Sub

11bus-essais.xlsm (36.42 Ko)

Jean-Eric · Accepted Answer

Bonjour, Essaie ainsi : Public Sub InsertRowInTable() Dim lo As ListObject Set lo = Range("Principal").ListObject If lo.InsertRowRange Is Nothing Then lo.ListRows.Add End Sub...

Invité · Accepted Answer

Bonjour Sakuraya, Jean-Eric

J'avais ce code également si une ligne vierge est déjà existante

Sub DernièreLigneVide()
  Dim CelF As Range, Lig As Long
  ' Comme il s'agit d'un tableau structuré
  With ThisWorkbook.Sheets("Phases projets").ListObjects("Principal")
    ' Trouver la prochaine ligne vide du tableau
    Set CelF = .ListColumns("Designer").Range.Find("")
    ' Si aucune on ajoute une nouvelle ligne
    If CelF Is Nothing Or .ListRows.Count = 0 Then
      .ListRows.Add: Lig = .ListRows.Count
    Else
      Lig = CelF.Row - .HeaderRowRange.Row
    End If
    ' Inscrire New dans la 1ère colonne
    .DataBodyRange(Lig, 1) = "New"
  End With
End Sub

A+