XL 2016 Ajout de lignes et bordures

[Lemidi34]

Bonsoir à tous

J'ai réussi à créer un code me permettant d'ajouter des lignes au fur et à mesure de remplissage de mon tableau, je souhaite savoir si à chaque entrée supplémentaire, les bordures peuvent être intégrées à l'ajout de ligne

Je joins un fichier pour plus d'explications

Merci de votre aide

 

[soan]

Bonsoir Lemidi34,

oui, ta demande concernant des bordures est très facilement faisable : c'est très simple, il suffit de ne pas chercher midi à 34 heures (surtout s'il fait nuit). bon, sérieux, je te laisse essayer le fichier joint. ​

Option Explicit

Private Sub CommandButton1_Click()
  Dim lig&: Application.ScreenUpdating = 0
  lig = Cells(Rows.Count, 1).End(3).Row + 1
  With Cells(lig, 1)
    If lig > 2 Then _
      .Offset(-1).Resize(, 3).Borders(9).Weight = 2
    .Value = UCase$(TextBox1)
    .Offset(, 1) = TextBox2
    .Offset(, 2) = TextBox3
    With .Resize(, 3)
      .Borders(9).Weight = 3: .Borders(7).Weight = 3
      .Borders(10).Weight = 3: .Borders(11).Weight = 2
    End With
  End With
  ActiveCell.Select: Application.ScreenUpdating = -1
End Sub

soan

 

[chris]

Bonjour à tous

Depuis 17 ans que les tableaux structurés existe pour quoi écrire du code alors qu'il suffit une fois pour toutes de définir le style voulu du tableau...

 

[Lemidi34]

Merci à tous les 2
LE code fonctionne nickel, pour le tableau structuré je vais regardé pour éviter des questions inutiles.