XL 2016 Problème avec une macro

[Mapat]

Bonjour

J'ai trouvé sur ce forum une petite macro qui permet de créer un nouvel onglet suivant un modèle.
et la date de création de l’événement.
Or, cette macro fonctionne bien sur certains mois et pas avec d'autres ( j'ai mis les onglets en vert pour bon fonctionnement)
Je ne vois pas ce qu'il peut y avoir de mal fait
Peut-être un œil averti trouvera-t-il ce problème
Merci et bonne soirée

 

[Dranreb]

Le calcul de ligDate part du principe que les paquets ont 9 lignes, or ils n'en ont que 8 en comptant bien la ligne masquée et la ligne de séparation entre les paquets.

 

[youky(BJ)]

Bonjour Mapat,
Essai comme ceci
Bruno

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim NomFeuille As String, Ville As String
   Dim MaDate As Date
    MaDate = Cells(Target.Row - 2, Target.Column).Value
    Ville = Cells(Target.Row, 1).Value
    NomFeuille = Ville
    Sheets("Modele").Select
    Sheets("Modele").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = NomFeuille
    Sheets(NomFeuille).Range("b1").Value = Ville
    Sheets(NomFeuille).Range("b2").Value = MaDate
End Sub

 

[Mapat]

Re

Ok j'ai compris ou se situait l'erreur
Par contre, supprimer cette ligne ne pose pas de problème.
Quel est l'avantage de la programmer ?
Bonne soirée et merci à vous deux pour vos réponses

 

[Dranreb]

Je ne sais pas l'avantage qu'il y avait à pouvoir faire un double clic sur n'importe quelle ligne du paquet.
Cependant si on doit double-cliquer sur la cellule contenant la date il conviendrait peut être de vérifier If Vartype(Target.Value) <> vbDate Then Exit Sub
En revanche s'il peut y avoir plusieurs villes et qu'il faut double-cliquer sur la bonne mais toujours retrouver le numéro de ligne où se trouve la date vous pouvez faire LigDate = Target .Row - (Target.Row - 2) Mod 8

 

[Mapat]

Entendu, et merci pour ce supplément d'explication
J'essaie avec 8 au lieu de 9
Bonne soirée