Bonjour à toutes et tous,

Ma version d’Excel
Microsoft® Excel® pour Microsoft 365 MSO (Version 2309 Build 16.0.16827.20014) 64 bits

Ma demande est la suivante, je souhaite avec un double-clic dans une cellule insérer automatiquement la phrase « Pré réservation du : 21 09 2023 ».
Les cellules appartiennent à la colonne « G » mais elles sont fractionnées en plusieurs plages.
Exemple :
Plage 1 = [G5:G19]
Plage 2 = [G25:G39]
Plage 3 = [G45:G59]
Plage 4 = [G65:G079]
Plage 5 = [G85:G99]
Plage 6 = [G105:G119]
Plage 7 = [G125:G139]
Plage 8 = [G145:G159]
Plage 9 = [G165:G179]
Plage 10 = [G185:G199]
Plage 11 = [G205:G219]
Plage 12 = [G225:G239]
Pour le moment, j’arrive tant bien que mal à faire fonctionner une petite macro qui me permet d’agir sur le premier segment de colonne [G5:G19].
Ma question est comment insérer dans mon code les autres segments ?
Merci d'avance à toutes et tous.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect([G5:G20], Target) Is Nothing Then
  Target = Date
  Target = "pré réservation du : " & Chr(13) & Chr(10) & Format(Target.Value, "dd mm yyyy")
  Range("B2").Select
  Else
  ActiveCell.Select
  End If
End Sub
VOICI LE FICHIER :
RESERVATION SALLE.xlsm