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 SubA+
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 :
- il est déconseillé de laisser des trous dans la colonne A : le tableau ne pourra ni être trié et difficilement filtrable
- pas de ligne entièrement vide dans un tableau structuré
- 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