2 actions pour 1 macro, comment faire ?

[Halffy]

Bonjour à Tous,

Apparemment il n'y a pas de soleil partout vu le nombre de personnes sur le forum 🙄 Ou alors vous êtes avec un pastaga à l'ombre 😀 ??

Sinon... je reviens vers vous afin de vous exposer un p'tit problème:
1 macro pour inserér le date J-1 en colonne "C"
1 macro pour insérer une croix en "B" par double-clic (entre autre; puisque cette même macro fait apparaitre un USF également par double-clic / le tout régit par des plages de cellules)

Problème: Comment insérer la date J-1 suite à l'insertion de la croix (pour une même ligne) / Comment modifier la macro par double-clic pour arriver au résultat ? 😱

Pour de plus amples explications, je vous joins un fichier.
Par avance, tous mes Remerciements à Tous.
Halffy /.

 

[pierrejean]

Re : 2 actions pour 1 macro, comment faire ?

bonjour Halffy

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
.......
"x" dans Cellule Double-Clickée + Validation par déplacement vertical l-1
   If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
      If ActiveCell.Value = "" Then ActiveCell.FormulaR1C1 = "x": ActiveCell.Offset(1, 0).Range("A1").Select
      [COLOR=blue]Target.Offset(0, 1) = Format(Now - 1, "dd.mm.yyyy")
[/COLOR]   End If
End Sub

 

[Halffy]

Re : 2 actions pour 1 macro, comment faire ?

Bonsoir PierreJean,

Quelle rapidité 😉 et en plus, ça marche comme demandé 😀
Tous mes Remerciements PierreJean / Toujours aussi efficace!
Félicitations et encore Merci.
Bonne soirée, Halffy /.