XL 2016 Problème avec une macro

Dranreb

XLDnaute Barbatruc

• 7 Mai 2019

• #2

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.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 7 Mai 2019

• #3

Bonjour Mapat,
Essai comme ceci
Bruno

VB:

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

 

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 7 Mai 2019

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Mai 2019

• #5

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

 

Dernière édition: 7 Mai 2019

Vote positif 0 Vote négatif

Mapat

XLDnaute Occasionnel

• 7 Mai 2019

• #6

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

 

Vote positif 0 Vote négatif