Date dans plusieurs cellules

[Bruce68]

Bonsoir à tous

Dans le fichier ci joint( Trouvé sur le net) je voudrais pouvoir mettre la date dans 2 cellules par un double clic dans la cellule active en appelent le calendrier.
dans la cellule C5 cela fonctionne je voudrais faire de meme dans la cellule H5, en renommant l'UserForm pour la 2° cellule cela ne fonctionne pas.

je vous remercie de votre aide.

 

[mth]

Re : Date dans plusieurs cellules

Bonsoir,

peut-être en rajoutant ceci:

If Target.Address = "$C$5" [B][COLOR=darkslateblue]Or Target.Address = "$H$5"[/COLOR][/B] Then

mth

 

[Bruce68]

Re : Date dans plusieurs cellules

Bonsoir MTH et le forum

Merci cela fonctionne tres bien pour mes 2 cellules , je me posais la question comment faire au delà de 2 cellules.

Merci de votre aide

 

[mth]

Re : Date dans plusieurs cellules

re,

Par exemple pour une plage de cellules de C5 à H10:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("C5:H10")) Is Nothing Then
    G_calendrier1dateTableur.Show
  End If
  Cancel = True
End Sub

Bonne soirée,

mth

 

[Bruce68]

Re : Date dans plusieurs cellules

Re bosoir MTH

Merci pour la solution, bonne soirée à toi