MsgBox sous condition

Voila mon Code:


Private Sub CommandButton1_Click()
Dim trouve, trouve1, trouve2, trouve3 As Range
Dim premcol, dercol, col, premlig, derlig, i As Integer
Dim Rng As String
If UserForm1.ComboBox3.Value = "" Or UserForm1.ComboBox4.Value = "" Or UserForm1.ComboBox5.Value = "" Or UserForm1.ComboBox6.Value = "" Then
MsgBox "Tous les champs sont obligatoires"
Exit Sub
End If
With Sheets(UserForm1.ComboBox3.Value).Rows(3)
Set trouve = .Cells.Find(UserForm1.ComboBox6.Value)
If trouve Is Nothing Then
MsgBox "Utilisateur non trouvé"
Else
premcol = trouve.Column
dercol = trouve.Offset(0, 1).Column - 1
End If
End With
With Sheets(UserForm1.ComboBox3.Value)
Rng = .Range(.Cells(4, premcol), .Cells(4, dercol)).Address
End With
With Sheets(UserForm1.ComboBox3.Value).Range(Rng)
Set trouve1 = .Cells.Find(UserForm1.ComboBox4.Value)
If trouve1 Is Nothing Then
MsgBox "Matériel non trouvé"
Else
col = trouve1.Column
End If
End With
With Sheets(UserForm1.ComboBox3.Value).Columns(3)
Set trouve2 = .Cells.Find(CDate(UserForm1.TextBox1.Value))
If trouve2 Is Nothing Then
MsgBox "erreur de date de retrait"
Else
premlig = trouve2.Row
End If
Set trouve3 = .Cells.Find(CDate(UserForm1.TextBox2.Value))
If trouve3 Is Nothing Then
MsgBox "erreur de date de restitution"
Else
derlig = trouve3.Row
End If
End With
With Sheets(UserForm1.ComboBox3.Value)
For i = premlig To derlig
.Cells(i, col).Value = CInt(UserForm1.ComboBox5.Value)
Next i
End With



If UserForm1.ComboBox6.Value = "Réparation" Or UserForm1.ComboBox6.Value = "Etalonnage" Or UserForm1.ComboBox6.Value = "Prêt" Then
UserForm2.Show
End If

Set trouve = Nothing
Set trouve1 = Nothing
Set trouve2 = Nothing
Set trouve3 = Nothing



Unload UserForm6
End Sub

C pas grave je v me débrouiller autrement

Merci pour votre aide mais j ai décider de faire autrement avec un système plus facile

Par contre j ai un autre problème sur une de mes comBobox qui n a rien avoir a celui la es que vous pourriez m aider ?

je voudrais comparer la date Système au date qui apparaisse dans une de mes comboBox.
C est a dire si la date est antérieur a la date système elle n apparait pas dans la comboBox mais si elle n est pas encore passer alors la elle apparait .

Je voudrais connaître le code pour pouvoir réaliser ceci

J ai un message d erreur qui apparait avec marquer: erreur de compilation Projet ou bibliothèque introuvable .
Et ComboBox1 surligner en BLEU

Sur cette phrase:: If CDate(Me.ComboBox1) < Date Then

sa ne marche toujours pas y a le même messages d erreur

Mais j ai une des cases de cocher ou y a marquer: MANQUANT: Microsoft calendar control 11.0

Es que vous auriez une solution a mon problème ?

Voici le lien je veut faire ce que je vous ai demandées sous l userform 4 . ComboBox11

http://www.cijoint.fr/cjlink.php?file=cj201006/cijOTUtPQM.xls

Voila actuellement en restitution anticipé j ai toutes les dates qui apparaisse ou il y a eu du retrait de matériel et donc je veut juste qu il n y ai que les dates postérieurs a la dates systèmes qui apparaisse dans la comboBox 11 .
Bien sur si c possible.
Sans votre code mon système marche et la comboBox 11 aussi mais j ai toutes les dates de l année ou y a eu du matériel retiré qui apparaisse.

Merci

J ai placer votre code sous l userform 4-comboBox 11 la partie restitution anticipée sert a restituée du matériel a une dates antérieur a la date de restitution initialement prévu .
Donc dans la partie restitution anticipée a date de retrait il va apparaître toutes les dates ou il y a eu du matériel retiré pour toutes l année.

Mais moi je veut juste que dans cette comboBox n apparaisse que les dates qui seront postérieurs a la dates systèmes pour ne pas avoir toutes les dates de l années

Ok merci bon courage

Désoler mais sa ne marche pas y a un truc qui bloque y a marquer : la méthode sheets de l objet global a échouer

Laissez tombé j ai réussi merci