Salle Occupants

[patine]

Bonjour,

J'ai un fichier exccel avec deux onglets, un Salle et le second Plan.

Le premier onglet Salle gere les occupants par salle. 4 salles et le nom des ocuppants, exemple salla A : Andre, Paul, Patrick Pierre. Salle B : ... Salle C : .... Salle D : .......

Sur l'onglet plan, lorsque je passe ma souris (ou un double clic), j'aimerai que ca m'affiche les occupants des salles.

Merci beaucoup pour votre aide.

Patine

 

[R@chid]

Re : Salle Occupants

Salut,
voir ce fichier si ca te convient?
tu peux aller à la feuil Salle et ajouter des occupants au salles et reviens voir ce qui se passe sur la feuil plan.
@+
Rachid

 

[Hulk]

Re : Salle Occupants

Hello Patine, Rachid,

Une autre version avec macros de Boisgontier pour les Label, merci à lui !

À mélanger avec le fichier de Rachid si besoin pour l'incrémentation des cellules concernées.

 

[BOISGONTIER]

Re : Salle Occupants

Bonsoir,

Voir PJ

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A2:D20], Target) Is Nothing And Target.Count = 1 Then
    salle = Cells(1, Target.Column)
    Set result = Sheets("plan").Cells.Find(what:=salle, LookAt:=xlPart)
    If Not result Is Nothing Then
      With result
       If .Comment Is Nothing Then .AddComment
       n = Application.CountA(Columns(Target.Column)) - 1
       For Each c In Cells(2, Target.Column).Resize(n)
           temp = temp & c & Chr(10)
       Next c
       .Comment.Text Text:=temp & Chr(10) & n & " Places"
       .Comment.Shape.TextFrame.AutoSize = True
      End With
      result.Value = salle & ":" & n & " Places"
    End If
  End If
End Sub

JB

 

[Papou-net]

Re : Salle Occupants

Bonsoir patine, les participants,

Comme ma solution est différente de celles de mes prédécesseurs, et ne voulant pas avoir travaillé pour rien, je l'ajoute à la liste.

A patine de choisir.

Cordialement à tous.

 

[poulie]

Re : Salle Occupants

Bonjour patine, bonjour à tous,

Peut-être hors sujet, mais j'ai compris que patine souhaite les noms des occupants.

" ...j'aimerai que ca m'affiche les occupants des salles..."

La proposition jointe est limitée si le nombre d'occupants par salle est important.

Bonne journée

 

[patine]

Re : Salle Occupants

Merci beaucoup pour ta réponse.

 

[patine]

Re : Salle Occupants

Merci a tous pour vos réponses, vous etes vraiment très bon. Encore merci

 

[patine]

Re : Salle Occupants

Hulk, merci ta solution me convien, mais est il possible de faire à l'identique en laissant les salles sur la collone B. Possible en noment des zonne de plage ? exemple Salle A : de la page b2:b5 ?
Merci beaucoup

 

[Celeda]

Re : Salle Occupants

Bonjour,

Interessée par la question, veuillez m'excuser de m'insérer dans le fil, je me ferais toute petite....promis.

Dans la macro de BOISGONTIER
Re : Salle Occupants

quand on enlève tous les noms pour remettre à zéro les salles, dans le plan, il conserve le nombre d'occupants.....en passant le commentaire ne revient pas vide.

????
Merci si on peut améliorer.

 

[BOISGONTIER]

Re : Salle Occupants

Bonjour,

C'est à cause de Target.Count=1

Voir modif en pj

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A2:D20], Target) Is Nothing Then
    For Each cel In Target
      salle = Cells(1, cel.Column)
      Set result = Sheets("plan").Cells.Find(what:=salle, LookAt:=xlPart)
      If Not result Is Nothing Then
         If result.Comment Is Nothing Then result.AddComment
         n = Application.CountA(Columns(Target.Column)) - 1
         temp = ""
         If n > 0 Then
           For Each c In Cells(2, cel.Column).Resize(n)
             temp = temp & c & Chr(10)
           Next c
         End If
         result.Comment.Text Text:=temp & Chr(10) & n & " Places"
         result.Comment.Shape.TextFrame.AutoSize = True
         result.Value = salle & ":" & n & " Places"
      End If
    Next cel
  End If
End Sub

JB

 

[Celeda]

Re : Salle Occupants

Bonjour,


Merci super!!!!!et très pratique surtout.