Message MsgBox

[un internaute]

Bonjour le forum,
Est-il possible de mettre un message dans la macro suivante ou dans l'Userform lorsque celle-ci trouve la même date?
Genre : "Il existe déjà une séance à cette date"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne As Long, Cel As Range, Couleur As Integer

If Target.Count > 1 Then Exit Sub
If Not Intersect(Range("B9:B" & Rows.Count), Target) Is Nothing Then
Range("A" & Target.Row) = IIf(Target = "", "", Date)
If Target = "" Then
Couleur = Target.Offset(-1, -1).Interior.ColorIndex
Ligne = Target.Row
While Left(Range("A" & Ligne), 5) <> "Série"
Ligne = Ligne - 1
Wend
Set Cel = Range("A3:A8").Find(what:=Range("A" & Ligne), LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Couleur = Cel.Interior.ColorIndex
End If

Unprotect
'Target.Interior.ColorIndex = Target.Offset(0, -1).Interior.ColorIndex
With Target.Offset(0, -1).Resize(1, 8)
.ClearContents
.Interior.ColorIndex = Couleur
End With
Protect
End If
End If
End Sub



Où dans l'userform?

Private Sub ComboBox1_Change()
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - AAAA" Then
Sheets("Levet-aaaa").Select
AjouteSeance
End If
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - BBBB" Then
Sheets("Levet-bbbb").Select
AjouteSeance
End If
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - CCCC" Then
Sheets("Levet-cccc").Select
AjouteSeance
End If
If ChoixMédecinOstéoKiné.ComboBox1 = "LEVET - DDDD" Then
Sheets("Levet-dddd").Select
AjouteSeance
End If
Unload Me
End Sub

 

[lupin]

Bonsoir,
Le code n'est pas très explicite et selon moi ce serait plutôt dans la partie AjouteSeance qu'il faudrait voir cela.
Rechercher dans la colonne date si la date à inscrire existe déjà et alorsafficher MsgBox ...
Cdlt

 

[un internaute]

Bonsoir,
Le code n'est pas très explicite et selon moi ce serait plutôt dans la partie AjouteSeance qu'il faudrait voir cela.
Rechercher dans la colonne date si la date à inscrire existe déjà et alorsafficher MsgBox ...
Cdlt

Bonjour lupin,
Je n'ai pas encore trouvé la solution.
Lorsque l'userform trouve la même date dans colonne A il le dit par une MsgBox.
Mais alors où?
Si quelqu'un a une idée je suis preneur.
Bonne journée à tous
cordialement

 

[lupin]

Bonsoir,
Si je suis bien, il y a donc déjà une boîte de dialogue qui s'affiche informant que la date existe déjà.
Que faudrait-il alors ? car la question "Mais alors où ?" n'explique pas le besoin que tu as.
Cdlt

 

[un internaute]

Bonsoir,
Si je suis bien, il y a donc déjà une boîte de dialogue qui s'affiche informant que la date existe déjà.
Que faudrait-il alors ? car la question "Mais alors où ?" n'explique pas le besoin que tu as.
Cdlt

Bonjour lupin,
C'est le contraire pas de boite de dialogue indiquant que le jour existe déjà.
Il en faut une.
Bonne journée à toi
Cordialement

 

[lupin]

OK, je pense que pour gagner du temps, il serait plus simple de poster le fichier (avec quelques données fictives si sensibles) ou me les envoyer par mail.