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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

scoubidou35

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

Pièces jointes

Solution
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
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
 

Pièces jointes

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Bug sur une macro
Réponses
6
Affichages
348
Retour