copié cellules selectionnées

[Asti]

Bonjour
je voudrai savoir si il est possible que lorsque on selectionne une cellule, la valeur ou l'heure de cette cellule se reporte sur une autre cellule.
Par exemple pour reservation de plusieurs salles
sur toute la semaine et plusieurs horaires
et tout resumer par salles en une seule cellule ( dans l exemple M4 et 5)
(car il ya bcp de salle et d horraire differente)😱
je ne sais pas si je suis clair
un exemple (mais sans formule car j ai rien trouvai)
Regarde la pièce jointe reservation salle.xls
voila et merci d avance

 

[kjin]

Re : copié cellules selectionnées

Bonsoir,
Une formule perso à adapter
Il y a sans doute mieux
A+
kjin

 

[Asti]

Re : copié cellules selectionnées

😀😀😀😀😀
merci merci🙂🙂
c est bien mieux comme ca que de tout faire a la main
je suis preneur😛🙂
encore merci

 

[Asti]

Re : copié cellules selectionnées

😕
je n arrive pas a la reproduire ca me marque #NOM?
et je n arrive pas a comprendre comment ca fait la relation avec le premier tableau??😕😕😕
desolé

 

[kjin]

Re : copié cellules selectionnées

Bonsoir,
Si #NOM? apparait, c'est que la fonction n'est pas reconnue
As tu copier la macro dans ton classeur ?
A+
kjin

 

[Asti]

Re : copié cellules selectionnées

J espere que tu est patient
eeeeeee comment je copie la macro????
j ai recopier la fonction
mais c tout😱😱😱😱😱

 

[kjin]

Re : copié cellules selectionnées

Re,
Je me disais bien aussi...😀
L'explication est dans le fichier et necessite qq manipulations
Reviens si tu as des soucis
A+
kjin

 

[Asti]

Re : copié cellules selectionnées

ok j essaye
et encore un merci bien mérité pour kjin
merci
allez je tente

 

[Asti]

Re : copié cellules selectionnées

ok ca a l air bon pour moi😱
encore une question, oui je sais encore une question😱😱
est ce qu il est possible de ne pas repeter les jours et les heures a chaque salle?
un exemple pour etre plus clair..........😛
merci d avance

 

[kjin]

Re : copié cellules selectionnées

Bonjour,
Si j'ai bien compris, tu ne souhaites pas voir se répèter le nom du jour si plusieurs horaires sont saisis pour ce même jour ?
Si c'est le cas :

Function RES(Salle)
Application.Volatile
Dim Jour As New Collection, i As Variant
Dim C As Range, Cel As Range, j As Integer, k As Integer
    For Each Cel In Range("A4:A500")
        If Cel = Salle Then Set Plage = Range("B" & Cel.Row & ":J" & Cel.Row)
    Next
i = 0
For Each C In Plage
    If C.Value <> "" Then
        i = i + 1
        Jour.Add Item:=Cells(2, C.Column).Value & ": " & Cells(3, C.Column)
        If i > 1 Then
            For i = 1 To Jour.Count - 1
                For j = i + 1 To Jour.Count
                    If Left(Jour(i), InStr(Jour(i), " ")) = Left(Jour(j), InStr(Jour(j), " ")) Then
                        Jour.Add Jour(i) & " " & Mid(Jour(j), InStr(Jour(j), " ")), before:=i
                            Jour.Remove i + 1
                            Jour.Remove j
                            i = i
                    End If
                Next j
            Next i
        End If
    End If
Next
If Jour.Count = 0 Then
    RES = "Libre"
Else
    For k = 1 To Jour.Count
        Résultat = Résultat & Jour(k) & " - "
    Next
    RES = Left(Résultat, Len(Résultat) - 3)
End If

End Function

A+
kjin