Ajouter une ligne sans liens

[Bulis]

Bonjour

Essayons d'être claire , j'ai un fichier Excel avec x lignes et y colonnes et un bouton " Ajouter une ligne " .
Donc sur la dernière ligne il y à des informations avec des liens hypertexte sur plusieurs cellules.
Quand je fais ajouter une ligne en cliquant sur mon bouton , il duplique la dernière ligne écrite et la vide tout fonctionne à merveille le seul problème c'est sur le nouvelle ligne quand la personne écrit il reste des liens de l'avant dernière ligne celle qui à été dupliquer.

Voici mon code

Sub AjouterLigne()
Range("A65536").End(xlUp).EntireRow.Copy Destination:=Range("A65536").End(xlUp).Offset(1, 0)
Range("A65536").End(xlUp).EntireRow.ClearContents
Selection.Hyperlinks.Delete
End Sub

Mais cela ne fonctionne pas il reste toujours des liens actives dans les cellules.
Il faudrait qu'il vide tout les liens actives lors de la création de la nouvelle ligne.

Merci et bonne journée

Bulis

 

[@+Thierry]

Bonjour Bulis, le Forum

Essaie plutot de juste copier le format puisque c'est tout ce dont tu as besoin...

Sub CopyFormat()

Range("A65536").End(xlUp).EntireRow.Copy
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub


Bonne Journée
@+Thierry

 

[Bulis]

Bonjour

Merci Tierry pour ta macro

J'ai mis le format c'est OK

Mais le problème persiste j'ai toujours des liens hypertexte dans les cellules.


Merci pour ton aide

Bulis