Flèche mouvante

Bonjour, à nouveau

Je souhaite intégrer sur ma feuille excel, une flèche qui renvoie à la dernière ligne vierge d'un tableau.

J'avais mis en place une flèche et un lien hypertexte,renvoyant à une cellule précise, mais mon tableau s'est TRES agrandit !!

Et il va continuer !

Est ce possible ? Via une macro qui irait chercher la dernière LIGNE VIERGE du tableau.

Je vous joint un tableau exemple

Merci par avance.

Bonjour Sandrinemo

Voici le code à appeler comme tu le souhaite

Sub ModifLien()
  Dim Shp As Shape
  Dim dLig As Long
  ' Dernière ligne du tableau structuré
  dLig = ActiveSheet.ListObjects(1).ListColumns("Téléphone").Range.Find("").Row
  ' Définir le Shape à paramétrer
  Set Shp = ActiveSheet.Shapes("Flèche : bas 1")
  ' Supprimer le lien si existe
  On Error Resume Next
  Shp.Hyperlink.Delete
  On Error GoTo 0
  ' Créer le nouveau lien
  ActiveSheet.Hyperlinks.Add Anchor:=Shp, Address:="", SubAddress:="'[" & ThisWorkbook.Name & "]Feuil1'!$C$" & dLig
End Sub

A+

Bonjour à tous

Sachant que CTRL flèche bas depuis n'importe quelle cellule de la colonne B ou C ou un double clic sur le bas du cadre de sélection d'une cellule dans ces même colonnes fait cela nativement...

Petits rappels sur les bonne pratiques avec les tableaux structurés :

  1. il est déconseillé de laisser des trous dans la colonne A : le tableau ne pourra ni être trié et difficilement filtrable
  2. pas de ligne entièrement vide dans un tableau structuré
  3. ne pas laisser les noms automatiques type Tableau1 mais donner un nom signifiant

Si on respecte la règle 2, ceci suffit pour se placer sur une nouvelle ligne à remplir

With [Tableau1].ListObject.DataBodyRange
    .Cells(.Rows.Count + 1, 1).Select
End With
Rechercher des sujets similaires à "fleche mouvante"