XL 2016 Problème avec la macro qui s'arrête

scoubidou35 · 19 Juillet 2021

Bonjour à tous,
J'ai un problème avec la macro pour les liens hypertextes de la feuille 1. En fait quand je rentre l'adresse d'un site ou d'un document pdf j'ai bien la petite fiche qui apparait en bleu (c'est le lien) mais je n'ai pas le titre du document ou site sur la colonne suivante. Pour cela je dois faire un clic droit sur la fiche bleu.
Je pense que cela est dû au fait que mon code est fractionné en deux partie.
Est il possible d'intégrer le code du before click dans la première partie selecte change si oui à quel niveau ?
Et j'aimerai également que si je supprime la fiche que le titre du document s'efface automatiquement
J'ai essayé avec la commande delete et clearcontent mais ca ne marche pas. Du moins pas avec moi.
Merci beaucoup et bonne journée

ALS35 · 5 Août 2021

scoubidou35 à dit:
Bonjour à tous,
je suis toujours sur mon problème mais je pense avoir trouvé mais je ne suis pas sur que ce soit bon au niveau du code.
Mais il me reste un point que je n'arrive pas à résoudre. J'aimerai que si je supprime le lien hypertexte
de la colonne Liens alors l'intitulé du document qui se trouve dans la table "colonne 1" s'efface également.
Merci d'avance

Bonjour,

À essayer :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau1[Liens]")) Is Nothing Then
        If Target.Value = "" Then Target.Offset(0, 1).ClearContents
    End If
End Sub

Cordialement

scoubidou35 · 21 Juillet 2021

Personne pour m'aiguiller ?
Je fais remonter mon post

scoubidou35 · 5 Août 2021

Bonjour à tous,
je suis toujours sur mon problème mais je pense avoir trouvé mais je ne suis pas sur que ce soit bon au niveau du code.
Mais il me reste un point que je n'arrive pas à résoudre. J'aimerai que si je supprime le lien hypertexte
de la colonne Liens alors l'intitulé du document qui se trouve dans la table "colonne 1" s'efface également.
Merci d'avance

ALS35 · 5 Août 2021

scoubidou35 à dit:
Bonjour à tous,
je suis toujours sur mon problème mais je pense avoir trouvé mais je ne suis pas sur que ce soit bon au niveau du code.
Mais il me reste un point que je n'arrive pas à résoudre. J'aimerai que si je supprime le lien hypertexte
de la colonne Liens alors l'intitulé du document qui se trouve dans la table "colonne 1" s'efface également.
Merci d'avance

Bonjour,

À essayer :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau1[Liens]")) Is Nothing Then
        If Target.Value = "" Then Target.Offset(0, 1).ClearContents
    End If
End Sub

Cordialement

scoubidou35 · 6 Août 2021

ALS35 à dit:

Bonjour,

À essayer :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("Tableau1[Liens]")) Is Nothing Then
        If Target.Value = "" Then Target.Offset(0, 1).ClearContents
    End If
End Sub

Cordialement

Bonjour ALS35.
C'est super !!!! Je viens de l'essayer et ça fonctionne bien comme je cherchais à faire. merci beaucoup
Bonne journée
Cordialement

XL 2016 Problème avec la macro qui s'arrête

scoubidou35

XLDnaute Occasionnel

Pièces jointes

ALS35

scoubidou35

XLDnaute Occasionnel

scoubidou35

XLDnaute Occasionnel

Pièces jointes

ALS35

XLDnaute Impliqué

scoubidou35

XLDnaute Occasionnel

Discussions similaires