macro résa salles réunions

[KELLY]

Bonjour,
J'ai un fichier de salles de réunions avec les noms, les heures et le matériel mais je souhaiterais que lorsqu'une personne a réservé un matériel le matin par exemple, l'autre personne qui réserve également ce même matériel pour le même jour et le matin également, qu'un message apparaisse "CE MATERIEL EST DEJA RESERVE POUR CETTE PERIODE !".
Je ne sais si je suis assez claire !
Je vous joins mon fichier avec un exemple sur la feuille "janvier".
Merci d'avance pour votre aide car je suis novice en la matière !

 

[CBernardT]

Re : macro résa salles réunions

Bonsoir Kelly,

Une solution qui utilise une macro évènementielle.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C3:Z112")) Is Nothing Then
If Application.CountIf(ActiveCell.EntireRow.Range("C1:Z1"), ActiveCell.Value) > 1 Then
MsgBox "CE MATERIEL EST DEJA RESERVE POUR CETTE PERIODE !"
ActiveCell.ClearContents
End If
End If
End Sub

Détail :
1- Elle est uniquement réactive sur le tableau des réservations.
2- Elle compte combien de fois l'objet à réserver est réservé.
3- Elle affiche le message d'alerte si l'objet est réservé plus d'une fois.
4- Elle efface la cellule active si l'objet est réservé plus d'une fois.

A noter que cette macro est à recopier dans le module de feuille de chaque mois.

Cordialement

Bernard

 

[KELLY]

Re : macro résa salles réunions

Bonsoir,
Merci de m'avoir répondu aussi vite.
Cependant, si une personne réserve le "PC1" et une autre souhaite le "PC1+sono", cela n'affiche pas le message alors que c'est le même matériel (PC1)!
Je souhaiterais que cela s'affiche à chaque fois qu'une autre personne qui souhaite réserver le même matériel (PC1, PC1+sono, PC1+rétro) ou (pC2, PC2+sono, PC2+rétro) que le message s'affiche.
Comment faire ? 🙁
Merci d'avance.

 

[CBernardT]

Re : macro résa salles réunions

Bonjour Kelly,

Macro évènementielle dans le module de feuille de la feuille du mois de janvier.
Cette macro est à recopier dans le module de feuille de chaque mois ou....

Les détails techniques :

1- La macro est uniquement réactive sur le tableau des réservations.
2- La fonction Split individualise et met en tableau les matériels réservés dans une même cellule. A noter que les cellules sont fusionnées, ce qui ne facilite pas le travail ;
3- La Méthode Find pour rechercher les occurences de chaque matériel détecté dans la plage du tableau de la ligne de la cellule active.
4- Affichage du message d'alerte si l'objet est réservé plus d'une fois.
5- Effacement de la cellule active si l'objet est réservé plus d'une fois.

Cordialement

Bernard

 

[KELLY]

Re : macro résa salles réunions

Bonsoir Bernard,
Je viens d'essayer le fichier et je t'en remercie.
Malheureusement, il me met "Erreur de compilation - variable non définie" pour "For i = 0 To uBound (Tablo)" 🙁
Que faut-il ajouter ?
Merci d'avance.

 

[jeanpierre]

Re : macro résa salles réunions

Bonsoir KELLY, Bernard,

Bernard étant déconnecté, soit tu supprimes "Option Explicit" au début de ton code, soit tu définies toutes tes variables.

Le plus simple pour l'instant est la première solution.

Bonne nuit.

Jean-Pierre

 

[CBernardT]

Re : macro résa salles réunions

Bonjour Kelly, Jean Pierre et le forum,

Jeanpierre, que je félicite très chaleureusement pour le boulot réalisé sur XLD, a vu juste comme d'habitude 🙂🙂

A Kelly, je te propose de changer la ligne de code suivante :

Dim Plage As Range, Valeur As String, Tablo, C As Range, firstAddress As String, X As Byte

par la ligne :

Dim Plage As Range, i As Integer, Valeur As String, Tablo, C As Range, firstAddress As String, X As Byte

Cordialement

Bernard

 

[KELLY]

Re : macro résa salles réunions

Bonjour Bernard, Jean-Pierre et le forum,
Merci beaucoup pour vos réponses, cela fonctionne ! Cependant, il met également le même message pour les horaires et les noms alors qu'il ne faut le message que pour le matériel !🙁🙁🙁🙁
Merci d'avance.

 

[CBernardT]

Re : macro résa salles réunions

Bonjour Kelly et le forum,

Quelques modifications afin de limiter l'interdiction de doublons aux lignes concernant le matériel.

Cordialement

Bernard

 

[KELLY]

Re : macro résa salles réunions

Bonjour à tous,
Bonjour Bernard,

Merci infiniment pour votre aide !🙂
C'est absolument parfait comme toujours !🙂

Merci encore !

 

[KELLY]

Re : macro résa salles réunions

Bernard,
C'est parfait sauf que je viens de m'apercevoir qu'il ne fait pas la différence entre le matin et l'après-midi !
Si une personne réserve le PC1 (par exemple) le matin et qu'une autre réserve le PC1+sono l'après-midi; cela inscrit le message !

Merci d'avance pour votre aide !

 

[CBernardT]

Re : macro résa salles réunions

Bonjour Kelly et le forum,

Quelques modifications afin d'interdire les doublons de matériel dans les périodes matins et après-mdis.

La feuille d'avril a été supprimé pour des questions de poids (Ko).

Cordialement

Bernard

 

[KELLY]

Re : macro résa salles réunions

Bonjour à tous,
Bonjour Bernard,

Merci infiniment c'est parfait !!!!! 🙂
C'est absolument ce que je voulais !
Merci encore pour votre aide !!!

Cordialement

Kelly