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

Bonjour pierrev, Lcntrcld, Mytå,

Le code de Didier a été copié dans diverses procédures de ThisWorkbook, malheureusement ces procédures, au nombre de 32(!!) sont inopérantes et ne sont jamais déclenchées...

• Private Sub Workbook_SheetChange38
• Private Sub Workbook_SheetChange15
• ...
• Private Sub Workbook_SheetChange24_3

Seule la procédure Private Sub Workbook_SheetChange est active. Mais celle-ci portait à l'origine la contrainte : ActiveCell.Validation.Formula1 = "=ListAbats". Voilà pourquoi seule cette liste est prise en compte.

J'ai modifié la procédure pour prendre en compte toutes les listes et pas seulement ListAbats.

'-------------------------------------------------------------------------
Option Explicit

' Procédure : Workbook_SheetChange
' Auteur    : Guy Courville
' Date      : 2017-01-18
'
' Référence : Didier FOURGEOT (monCherAmi!)
'             2006-03-06
'
' Détails   : Modification de la procédure pour tenir compte de listes multiples.
'
'-------------------------------------------------------------------------
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

  Dim ValidOk As Boolean
  Dim ChainePlageCible As String ' Porte la chaîne de caractères du nom de la plage ciblée.
  Dim PlageCible As Range        ' Porte la plage ciblée.
  Dim CelluleCible As Range      ' Porte la cellule ciblée.
  
  On Error Resume Next
  ChainePlageCible = Target.Validation.Formula1 ' Chaîne sous la forme "=Toto"
  ChainePlageCible = Right(ChainePlageCible, Len(ChainePlageCible) - 1) ' Chaîne précédente privé de "=" : "Toto"
  
  Set PlageCible = Range(ChainePlageCible) ' La plage ciblée est prise en référence.
  
  ValidOk = (Err.Number = 0) ' Est valide si l'erreur est à zéro.
  
  On Error GoTo 0
  If Len(Target) = 0 Or Not ValidOk Then Exit Sub
  
  Set CelluleCible = PlageCible.Find(what:=Target.Value, LookIn:=xlValues) ' La cellule ciblée est prise en référence.
  
  On Error Resume Next
  
  Sh.Hyperlinks.Add Anchor:=Target, Address:=CelluleCible.Hyperlinks(1).Address ' Le lien de CelluleCible est ajouté
  If Err.Number > 0 Then
    MsgBox "La CelluleCible ne porte aucun lien", vbInformation, "Oups, il manque quelque chose!"
    Exit Sub
  End If
  
  On Error GoTo 0
  Target.Hyperlinks(1).SubAddress = CelluleCible.Hyperlinks(1).SubAddress
  
End Sub

Il faudra sûrement peaufiner mais je t'invite à tester la chose et à nous tenir au courant des résultats.

À noter la directive Option Explicit à ajouter à toutes les en-têtes de module. Plus là-dessus sous peu.

Cordialement,

Guy

Bonjour gaeliloo et bienvenue dans ce forum,

Préambule
Dans le forum Apache OpenOffice* un certain gaeliloo s'est inscrit le 4 mars 2016 à 13:15h et suite
à sa demande d'aide dont le sujet est "Timeur inversé" a terminé par ces mots :

"Je n'ai pas le temps ni le goût d'apprendre à écrire des codes macros pour faire des choses

simples.  Je vais donc arrêter de vous embêter et demander à quelqu'un de le faire à ma place."

Un autre(?) gaeliloo s'est inscrit au site XLPages le 5 mars 2016 à 13:48h avec un demande fort semblable "Créer un timer"

Heureusement qu'il y a des bénévoles magnanimes qui ne s'offusquent pas trop de cette sorte de pêche au chalut et qui, de surcroît, font les choses à sa place...

Fin du préambule.

Donc, petit classeur portant un formulaire qui affiche un chrono de décompte.
La valeur de départ est fixée par défaut à quarante minutes.
On peut modifier cette valeur à la volée.

La chose est une ébauche et s'il survient des incidents ou des questions il me fera plaisir d'y répondre.

Cordialement,

Guy

* https://forum.openoffice.org/fr/forum/ ... mp;hilit=gaeliloo#p273190

Bonjour mots-croises,

Tu devrais prendre l'habitude d'utiliser la compilation du projet VBA.
Dans l'éditeur de code, menu Débogage/Compiler VBAProject.
Avec cette simple manipulation tu aurais vu qu'il manquait un End If à ton code.

Sub Infos()
Dim Msg As String
Dim Reponse As Integer

    Reponse = MsgBox("Pour enregistrer, cliquer n'importe où sur le graphique", vbExclamation + vbOKOnly, "Infos")
    If Reponse = vbOK Then
    
        Reponse = MsgBox("Pour quitter, cliquer sur l'image (lac & montagne)", vbExclamation + vbOKOnly, "Infos")
        If Reponse = vbOK Then

               Reponse = MsgBox("Avec cette phrase, ça ne fonctionne plus)", vbExclamation + vbOKOnly, "Infos")
        End If
        If Reponse = vbOK Then
               
            Reponse = MsgBox("Bien le bonjour chez vous", vbExclamation + vbOKOnly, "Infos")
        End If
    End If
    
End Sub

Cordialement,

Guy

Bonjour Romain_LH_76 et bienvenue dans ce forum,

Deux petites questions :

1- Comment fait-on pour distinguer les plages horaires 1X8, 2X8 et 3X8, où se trouve cette information?

2- Le paramètre optionel jours_fériés de la fonction

    SERIE.JOUR.OUVRE(date_début; nb_jours;[jours_fériés])

    fait référence à une plage située dans un autre classeur :

    '[draft Suivi activité Conditionnement.xls]JF'!$A$2:$A$45

    qui se trouve en :

    G:\Users\ev22473\Desktop\tests condi\

Sans mise à jour de cette référence externe, difficile de travailler avec ton classeur.

En attendant des précisions.

Cordialement,

Guy

Bonjour marslive26 et bienvenue dans ce forum,

Petit classeur qui, je l'espère, répondra à tes attentes.

Le code est assez correctement commenté je crois et porte deux fonctions dont la principale porte le nom de MaccaferriDimensions().

N'hésite pas à poser toute question sur ce sujet.

Cordialement,

Guy

Bonjour mots-croises et bienvenue dans ce forum,

Il n'est pas nécessaire d'apprendre l'Anglais pour utiliser VBA.

Suffit de se familiariser avec environ deux cents mots réservé.

Tâche assez simple en y mettant du sien.

If Then Else End If (Si Alors Sinon FinSi)

For Each Next (Pour Chacun Suivant)

etc.

Quelle est la langue de ton installation d'Office?

En plus la  documentation, accessible avec la touche F1, est disponible en Français.

Cordialement,

Guy

À mon cher ami, mth et tous les participants à ce forum mes meilleurs voeux pour cette nouvelle année, qu'elle nous ramène la paix et à défaut du bonheur un peu de tranquillité.

Très cordialement,

Guy

Bonjour motaxien09 et bienvenue dans ce forum,

Je crois qu'il vaudrait mieux démarrer un nouveau fil pour examiner ta demande celui-ci est déjà surchargé.

Cordialement,

Guy

Bonjour Walter (cartedemembre) et bienvenue dans ce forum,

Dans ta requête tu parles d'un exemple de plage contenant dates et nombres s'étendant en D5:W68. Cette plage porte 1280 cellules... Il serait indiqué que tu fournisses un petit classeur en exemple, histoire d'y voir plus clair.

Cordialement,

Guy