Re : Variable + Offset pour l'adresse d'une cellule...comment ça s'écrit ?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
e = Worksheets("Vision élargie").Range("AP1000").End(xlUp).Row + 1
'En DoubleCliquant un Bus dans les tâches, il passe en "Opérations à intégrer"-----------------------------
'j'applique cette macro que dans cette plage et nulle part ailleurs'
If Not Application.Intersect(Target, Range("B5:B64")) Is Nothing Then
Target(e, Target.Offset(0, 40)).Value = Target.Value
Target(e, Target.Offset(0, 41)).Value = Target.Value
Target(e, Target.Offset(0, 42)).Value = Target.Value
Target(e, Target.Offset(0, 43)).Value = Target.Value
Target(e, Target.Offset(0, 44)).Value = Target.Value
'J'ai mis toutes ces lignes en commentaires pour les "suspendre" le temps de résoudre mes lignes du dessus.
'Target.Offset(0, 40).Value = Target.Offset(0, 2).Value
'Target.Offset(0, 41).Value = Target.Offset(0, 1).Value
'Target.Offset(0, 42).Value = Target.Offset(0, 2).Value
'Target.Offset(0, 43).Value = Target.Offset(0, 3).Value
'Target.Offset(0, 44).Value = Target.Offset(0, 4).Value
'Target.Offset(0, 45).Value = 1
Target.ClearContents
Target.Offset(0, 1).ClearContents 'J'efface le Num Bus doublecliqué'
Target.Offset(0, 2).ClearContents 'J'efface la tâche du Num bus doublecliqué'
Target.Offset(0, 3).ClearContents 'J'efface la désignation de tâche de Num bus doublecliqué'
Target.Offset(0, 4).ClearContents 'J'efface le temps du Num Bus Doublecliqué'
J'ai vraiment du mal à m'expliquer...j'espère que vous allez pouvoir m'aider....