Sélection graphique dans un planning d'occupation

[Renaud75015]

Afin de fabriquer une interface utilisateur sympathique, je souhaiterais, pour l'application que je veux développer pour gérer un espace de stockage, permettre à l'utilisateur de réserver un espace de stockage de manière purement graphique en sélectionnant à la souris une zone, et récupérer - soit sur la feuille (de préférence) - soit dans une macro, les références de la zone sélectionnée. Voici mon interface utilisateur, et merci d'avance de vos nombreuses réponses

 

[phlaurent55]

Re : Sélection graphique dans un planning d'occupation

Bonjour Renaud,

...........permettre à l'utilisateur de réserver un espace de stockage de manière purement graphique en sélectionnant à la souris une zone..............

voir fichier joint pour ce qui concerne le coloriage des cellules

à+
Philippe

 

[Staple1600]

Re : Sélection graphique dans un planning d'occupation

Bonjour à tous

Renaud75015

Voici mon interface utilisateur

Avant de nous présenter ton interface, n'aurait-il pas fallu nous présenter un petit Bonjour ?

NB: Inscrit depuis 2011, tu ne peux pas prétendre ne pas connaitre ce b.a.ba du forum ...

 

[job75]

Re : Sélection graphique dans un planning d'occupation

Bonjour Renaud75015, Philippe, Jean-Marie,

Une autre solution pour les couleurs dans le fichier joint :

Dim mem As Range 'mémorise

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, C As Range
Set P = [D5:AB19]
Set C = [AG3:AG8]
If Intersect(Target, Union(P, C)) Is Nothing Then Set mem = Nothing
If Not Intersect(Target, P) Is Nothing Then Set mem = Intersect(Target, P)
If Not Intersect(Target, C) Is Nothing And Target.Count = 1 _
  And Not mem Is Nothing Then
  mem.Interior.Color = Target.Interior.Color
  mem.Font.Color = Target.Font.Color
  If Target = "Effacer" Then mem = "" Else mem = Target
  mem.Select
End If
End Sub

A=

 

[job75]

Re : Sélection graphique dans un planning d'occupation

Re,

En utilisant le nom défini mem (masqué) la mémorisation est durable :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, C As Range
Set P = [D5:AB19]: Set C = [AG3:AG8]
If Intersect(Target, Union(P, C)) Is Nothing _
  And Not IsError([mem]) Then ThisWorkbook.Names("mem").Delete
If Not Intersect(Target, P) Is Nothing Then _
  ThisWorkbook.Names.Add "mem", Intersect(Target, P), Visible:=False
If Not Intersect(Target, C) Is Nothing And Target.Count = 1 _
  And Not IsError([mem]) Then
  [mem].Interior.Color = Target.Interior.Color
  [mem].Font.Color = Target.Font.Color
  If Target = "Effacer" Then [mem] = "" Else [mem] = Target
  [mem].Select
End If
End Sub

Voyez ce fichier (2) où la plage D5:E9 est déjà sélectionnée.

On peut la modifier immédiatement en cliquant dans AG3:AG8.

A+

 

[Modeste geedee]

Re : Sélection graphique dans un planning d'occupation

Bonsour®

Bonjour Renaud,
voir fichier joint pour ce qui concerne le coloriage des cellules
à+
Philippe

un petit plus ... pour le fun

 

[Renaud75015]

Re : Sélection graphique dans un planning d'occupation

Merci pour ces réponses fort pertinentes, qui m'ont permis de progresser. J'ai trouvé un code qui correspond à ma recherche, le voici :

Sub reservation()

Dim Plage As Range
Set Plage = Application.InputBox("Sélectionnez la plage à réserver", "Sélection de cellules", Type:=8)
Range("AK11").Copy
Range(Plage.Address).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("A1").Select
Selection.ClearContents

End Sub