Re: Liens hypertexte dans des listes déroulantes
#11
Débutant XLPages

Inscription: 16/01/2017
De Vulbens France

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007,2016
Posté le : 18-01-2017 17h54

Bonsoir Guy, Lcntrcld, Mytå,,

 

Tout semble fonctionner à merveille !

 

Ça a quelque chose de magique pour un débutant (même à 65 ans) comme moi, un second Noël en somme.

 

Merci infiniment de votre aide à tous les 3.

Bien cordialement

 

PS: Je mets le sujet en Résolu

 

Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#12
Débutant XLPages

Inscription: 16/01/2017
De Vulbens France

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007,2016
Posté le : 18-01-2017 17h56

Problème résolu

 

Encore Merci à tous

Cordialement

smiley

Edité par pierrev le 19/01/2017 08:37:14

Pierre
Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#13
Débutant XLPages

Inscription: 16/01/2017
De Vulbens France

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007,2016
Posté le : 18-01-2017 19h46

Re-bonsoir à tous,

 

La macro de Guy fonction bien mais j'ai un message d'erreur qui dit:

  • Erreur d'exécution 13
  • Incompatibilité de type

 

Et dans le code, en jaune:

If Len(Target) = 0 Or Not ValidOk Then Exit Sub

Merci de votre aide

Bien cordialement

 


Pierre
Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#14
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-01-2017 19h55

Bonjour Pierre,

 

Quand donc se produit cette erreur puisque tout semblait fonctionner correctement.

Est-ce bien le même fichier, le même code, as-tu copié le code ailleurs???

 

Des précisions, liste impliquée par exemple, seraient indiquées.

 

Cordialement,

 

Guy


Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#15
Débutant XLPages

Inscription: 16/01/2017
De Vulbens France

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007,2016
Posté le : 18-01-2017 20h28

Bonsoir Guy,

 

Le code fonctionne toujours, mais....

 

Aucun changement si ce n'est les lien hypertexte qui ne pointent pas sur les bonne cellules.

 

J'ai remarqué que le même message arrive lorsque je déplace, toujours dans la colonne "B" les liens hypertexte dans la feuille "table". Peut-être sans rapport.

 

Le fichier est téléchargeable à: http://www.cjoint.com/c/GAstAPT5eNq

 

Merci de ton aide.

Bien cordialement

 

 


Pierre
Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#16
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 18-01-2017 21h25

Re

 

Guy est passé, on va le laisser travaillé . . .

 

Mytå

 

 


Merci, de donner un retour à votre question, nous ne sommes pas des robots. [GMT - 5]
Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelqu'un d'autre.
Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#17
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 18-01-2017 21h26

Bonsoir Pierre,

 

Effectivement il y a un os, tout petit mais néanmoins.

 

Une solution à tester, modifier

 

If Len(Target) = 0 Or Not ValidOk Then Exit Sub

en

 

If Len(Target.Text) = 0 Or Not ValidOk Then Exit Sub

Sait-on jamais. smiley

 

Guy


Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#18
Débutant XLPages

Inscription: 16/01/2017
De Vulbens France

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007,2016
Posté le : 18-01-2017 21h48

Bonsoir Guy et Mytå et bonjour à tous

 

Le problème semble résolu !

 

2 problèmes annexes subsistent:

  • Lorsque le programme quitte et se recharge, les cellules qui avaient été remplies sont effacées, sauf celles de la page "présentation", les fameuses listes de liens hypertexte.
Private Sub Workbook_Deactivate()
Sheets("présentation").Range("E5:E37").ClearContents
Sheets("A").Range("B3:B1328").ClearContents
Sheets("B").Range("Effacement").ClearContents
'---------------- A activer après la mise en place du Ruban -----------
'ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayAlerts = False
End Sub
  • Si je change un lien hypertexte dans la feuille (normalement masquée) "table", les liens dans les listes déroulantes de la feuille "présentation" gardent les anciens liens comme s'ils avaient gardé quelque part ces références.
    Par exemple, dans "présentation", un lien renvoie sur la feuille "A" en A151 alors que le lien hypertexte de la feuille "table" renvoie sur la feuille "A" en B154.
    Je suppose, mais pas encore vérifié, que si je refais la validation des listes après les avoir effacées, elles seront alors mises à jour.

Je teste et vous redit.

 

Le fichier est téléchargeable ICI

 

Si une solution est possible....

 

A vous lire.

Bien cordialement

 

PS: quand je vous lis, je me dis que le monde est plein de gens formidables !

 

Edité par pierrev le 19/01/2017 08:38:43

Pierre
Hors Ligne
Rapport   Haut 

Re: Liens hypertexte dans des listes déroulantes
#19
Débutant XLPages

Inscription: 16/01/2017
De Vulbens France

Messages: 11

Système d'exploitation:
PC
Version Excel utilisée:
2007,2016
Posté le : 19-01-2017 09h49

Re-bonjour,

 

Je viens de tester sur la plage de cellules List22:

  • Effacer la validation des données.
  • Supprimer la plage de cellules Liste22.
  • Enregistrer le fichier.
  • Quitter.
  • Redémarrer l'application.
  • Recréer la plage Liste22.
  • Validation des données de liste en "présentation!D12"
  • Et........

 

Les données erronées sont toujours là !

 

Je re-test:

  • Je déplace la feuille "table" dans un nouveau classeur.
  • J'enregistre le fichier d'origine.
  • J'enregistre le nouveau classeur.
  • J'ouvre le fichier d'origine.
  • Je supprime les liaisons.
  • J'enregistre et quitte.
  • J'ouvre encore le fichier puis le nouveau chasseur.
  • Je déplace la feuille "table" dans le classeur d'origine.
  • Je supprime la validation des données.
  • Je supprime les noms de plage.
  • J'enregistre et redémarre.
  • Je recrée une plage de cellules.
  • Puis validation des données.
  • Et..........

 

Toujours erroné, les liens renvoient toujours à des cellules différentes des liens hypertexte contenus dans la feuille "table".

 

J'avoue, je sèche lamentablement !

 

Une idée peut-être ?

 

Bien cordialement


Pierre
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes