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

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 !

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

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

Problème résolu

Encore Merci à tous

Cordialement

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

Bonjour à tous,

J'ai trouvé un code qui fonctionne avec des liens hypertexte qui renvoient sur des pages Internet ou vers des fichiers.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$11" Then
    ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:=Target.Value, TextToDisplay:=Target.Value
  End If
End Sub

Malheureusement, ce code ne permet pas de sélectionner la cellule d'une autre feuille.

Je joins le fichier comme exemple.

Peut-être une idée de solution!

Bien cordialement à tous

Rebonjour Lcntrcld,

Bizarre, le clic sur le lien de téléchargement:

• Il me propose d'ouvrir le fichier et boom! impossible d'ouvrir le fichier
• Après un nouveau clic sur le lien, je choisis d'enregistrer le fichier sur le bureau et un petit double clic après, il est ouvert.

Les mystères de l'informatique sans doute !

Bien cordialement

Bonjour Lcntrcld et bonjour à Mytå,

Merci à tous les deux de votre gentillesse à me dépanner.

Le fichier se trouve à l'adresse http://www.cjoint.com/c/GArf0TE8hpq.

Il ne comporte que des données publiques qui concernent la nutrition.

Intéressant cette façon de partager un fichier !

Merci encore à vous 2

Bonsoir Lcntrcld et bonsoir à tous,

Merci de m'avoir répondu.

Pour le fichier, j'avais penser le joindre, mais il fait plus de 80 kb.

Peut-être sur ton mail !

Je donne le mien si cela peut-être utile.

pierrev@windowslive.com

Encore merci de ton aide.

Bien cordialement

Pierrev