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

Problème résolu

Encore Merci à tous

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

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

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

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

Mytå

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.

Guy

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 !

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