XL 2016 Insertion d'un ligne avec coloration et ajout automatique d'un lien hypertexte

[lay57]

Bonjour,

Lorsque je veux insérer une ligne sur la ligne 9 j'aimerais que celle ci soit colorié en blanc. En effet lorsque je rajoute une ligne celle ci se colorie automatiquement de la couleur verte qui est la couleur de la ligne 8 et je ne comprends pas pourquoi.
De plus j'aimerais affecter un lien hypertexte en D9 automatiquement lorsqu'on rajoute la ligne. (je sais déjà ce que je dois mettre dans la fonction Lien_Hypertexte)

Je suis pas très alaise sur Excel et vba, pourriez vous m'aider ?

Merci d'avance

 

[job75]

Bonjour lay57, bienvenue sur XLD,

Cette macro insère une ligne incolore au-dessus de la cellule active :

Sub InsereLigne()
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Interior.ColorIndex = xlNone
End Sub

A+

 

[job75]

Pour la formule du lien en colonne D je vous laisse adapter :

Sub InsereLigneLien()
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Interior.ColorIndex = xlNone
ActiveCell.EntireRow.Cells(1, 4) = "=HYPERLINK(""aa"",""bb"")"
End Sub