Rapport de message :*
 

Re: Liste déroulante avec message

Titre du sujet : Re: Liste déroulante avec message
par myDearFriend! le 01/02/2009 18:30:16

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,