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

lay57 · 2 Juin 2022

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 · 2 Juin 2022

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 · 2 Juin 2022

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

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

lay57

XLDnaute Nouveau

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires