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

lay57

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour lay57, bienvenue sur XLD,

Cette macro insère une ligne incolore au-dessus de la cellule active :
VB:
Sub InsereLigne()
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Interior.ColorIndex = xlNone
End Sub
A+
 

job75

XLDnaute Barbatruc
Pour la formule du lien en colonne D je vous laisse adapter :
VB:
Sub InsereLigneLien()
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.Interior.ColorIndex = xlNone
ActiveCell.EntireRow.Cells(1, 4) = "=HYPERLINK(""aa"",""bb"")"
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 885
Messages
2 093 259
Membres
105 660
dernier inscrit
moi46