Forums XLPages

Excel & VBA Espace Débutants [résolu] Liste déroulante avec message

Liste déroulante avec message
#1
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 01-02-2009 16h35
Bonjour,
J'ai un fichier de réservation de salles de réunions que vous trouverez ci-joint avec des listes déroulantes et je souhaiterais lorsque je réserve un matériel qui est déjà réservé pour ce même jour qu'un message affiche "Ce matériel est déjà réservé pour ce jour !".
Est-ce possible ??
Une autre petite question subsidiaire : est-il possible de fusionner les deux cellules dans la journée si on choisit pour la "journée" ??
Merci d'avance pour votre aide.


Pièce jointe:
zip PROJET Réservation salles réunions.zip   [ Taille: 20.87 Ko - Téléchargements: 439 ]
Hors Ligne
 Rapport   Haut 

Re: Liste déroulante avec message
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 01-02-2009 18h30
Bonsoir Kelly, le Forum,

Pour ta première question (matériel déjà réservé pour le même jour), tu peux essayer la procédure évènementielle ci-dessous dans le module de code de la feuille (voir exemple joint) :
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target(1).Value = "" Then Exit Sub
    If Not Application.Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        If Target.Validation.Formula1 = "=Matériel" Then
            If Application.CountIf(Target.EntireRow, Target.Value) > 1 Then
                MsgBox "Ce matériel est déjà réservé pour ce jour !"
                Application.Undo
            End If
        End If
    End If
End Sub

Concernant la fusion des cellules automatique, oui, bien sûr c'est possible (tout est possible, ou presque, avec VBA). Toutefois, les cellules fusionnées sont toujours sources de plantages VBA en tout genre et représentent bien souvent une contrainte très lourde à gérer dans les projets. Je te déconseille donc fortement leur recours...

Cordialement,


Pièce jointe:
zip PourKelly.zip   [ Taille: 24.04 Ko - Téléchargements: 403 ]
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Liste déroulante avec message
#3
JCGL
Accro XLPages

Inscription: 23/05/2007
De Chamrousse

Messages: 309

Système d'exploitation:
PC
Version Excel utilisée:
2013
Posté le : 01-02-2009 19h59
Bonjour à tous,
Bonjour mDF,

Un essai avec un Plan et une MeFC.
Se servir des + ou - si Journée ou pas

A+ à tous


Pièce jointe:
zip JC Resa Salles Reunions.zip   [ Taille: 30.64 Ko - Téléchargements: 438 ]

Cordialement
Hors Ligne
 Rapport   Haut 

Re: Liste déroulante avec message
#4
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 01-02-2009 20h30
Bonsoir,
Merci infiniment pour votre aide ! C'est exactement ce que je voulais !!!!!!!!!!!
Ce site est vraiment formidable !!!!!!!
Merci encore !!
Hors Ligne
 Rapport   Haut 

Re: Liste déroulante avec message
#5
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 01-02-2009 20h43
Désolé c'est encore moi !
Je viens de faire des essais sur mon fichier et c'est formidable, c'est exactement ce que je voulais !
Cependant, si une personne réserve le matériel le matin et pas l'après-midi, comment faire pour que le message ne s'affiche pas et que la personne voulant le matériel l'après-midi puisse le faire !
Merci d'avance.
Hors Ligne
 Rapport   Haut 

Re: Liste déroulante avec message
#6
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 01-02-2009 23h11
Re Kelly,
Bonsoir JCGL,

C'est exactement ce que tu voulais, tant mieux Kelly... l'ennui pour ta demande de modification, vois-tu ,c'est que tu ne précises pas quelle solution tu as retenue, celle de JCGL ou la mienne ?

Dans le doute donc, je te poste une solution sur la base de ma proposition précédente :
Option Explicit
'myDearFriend! - www.mdf-xlpages.com

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Byte
Dim KO As Boolean
    If Target(1).Value = "" Then Exit Sub
    If Not Application.Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
        With Target
            If .Validation.Formula1 = "=Matériel" Then
                Select Case Application.CountIf(.EntireRow, .Value)
                Case Is > 2
                    KO = True
                Case Is > 1
                    For C = 3 To 13
                        If Cells(.Row, C).Value = .Value And C <> .Column Then
                            KO = Cells(2, C).Value = Cells(2, .Column).Value
                            Exit For
                        End If
                    Next C
                End Select
            End If
        End With
    End If
    If KO Then
        MsgBox "Ce matériel est déjà réservé sur cette période !"
        Application.Undo
    End If
End Sub
Attention : par souci de simplification, cette procédure ne tient pas compte du choix "journée entière" dans les horaires, mais surveille uniquement le contenu des colonnes "Matin" et "Après-midi" pour le matériel réservé.

Par ailleurs, pour que ça fonctionne, il faut impérativement que les entêtes de colonnes "Matin" ou "Après-midi" soit strictement identiques pour toutes les colonnes. Ce n'était pas le cas dans ton exemple : en C2, il y avait "Matin" et en "E2" il y avait un espace de trop à la fin de "Matin ". J'ai rectifié dans l'exemple ci-joint en retour.

Cordialement,
Pièce jointe:
zip PourKelly2.zip   [ Taille: 25.12 Ko - Téléchargements: 447 ]
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Liste déroulante avec message
#7
kelly
Régulier XLPages

Inscription: 05/11/2008

Messages: 53

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 02-02-2009 02h02

Re MyDearFriend,
Désolé, c'est vrai que je n'ai pas précisé. J'ai opté pour ta solution !!
Je vais me plonger dans le code et essayer de comprendre, ce qui n'est pas évident car je suis loin d'être une pro comme toi...maleureusement !
Merci encore infiniment !!!
Je sais que je vais me répéter mais je tiens à dire que ce site est vraiment formidable!!!!!!!!!!!!
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes