Bonjour à tous.
J'ai un problème lorsque je valide un formulaire d'un Userform. Je précise que je suis sous 2003.
Le problème apparait lorsque "result" doit etre remplis avec la recherche.
Merci d'avances pour vos préciseuses réponses.
Aussi, le problème est apparus début de semaine, la semaine passée (même code) tout fonctionnais.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub CommandButton1_Click()

With Sheets("Productivité")

Dim nomCherche As String
nomCherche = Range("A2").Value /////// dans A2 nous trouverons une  date jj/mm/aaa
Set result = ActiveSheet.Columns(44).Cells.Find(nomCherche, , xlValues) ////// dans col(44) nous trouverons une liste de date jj/mm/aaa
If result Is Nothing Then
MsgBox nomCherche
MsgBox ("erreur")
MsgBox result.Row
Else
z = result.Row
MsgBox ("ok")
End If

    If ComboBox2.Value = "Matin" Then
Range("G" & z).Value = ComboBox1.Value
Range("H" & z).Value = TextBox1.Value
Range("I" & z).Value = TextBox16.Value
Range("J" & z).Value = TextBox3.Value
Range("k" & z).Value = TextBox4.Value
Range("l" & z).Value = TextBox5.Value
Range("m" & z).Value = TextBox6.Value
Range("n" & z).Value = TextBox7.Value
Range("o" & z).Value = TextBox8.Value
Range("s" & z).Value = TextBox9.Value
Range("t" & z).Value = TextBox10.Value
Range("u" & z).Value = TextBox11.Value
Range("y" & z).Value = TextBox15.Value
Range("AE" & z).Value = ComboBox3.Value
Range("AF" & z).Value = ComboBox4.Value
Range("AG" & z).Value = ComboBox5.Value
Range("AI" & z).Value = ComboBox6.Value
Range("AH" & z).Value = ComboBox7.Value
Range("AJ" & z).Value = ComboBox8.Value
Range("AK" & z).Value = ComboBox9.Value
Range("Al" & z).Value = ComboBox10.Value
Range("Am" & z).Value = ComboBox11.Value
Range("An" & z).Value = ComboBox12.Value
Range("Ao" & z).Value = ComboBox13.Value

    Else
j = z + 1
Range("G" & j).Value = ComboBox1.Value
Range("H" & j).Value = TextBox1.Value
Range("I" & j).Value = TextBox16.Value
Range("J" & j).Value = TextBox3.Value
Range("k" & j).Value = TextBox4.Value
Range("l" & j).Value = TextBox5.Value
Range("m" & j).Value = TextBox6.Value
Range("n" & j).Value = TextBox7.Value
Range("o" & j).Value = TextBox8.Value
Range("s" & j).Value = TextBox9.Value
Range("t" & j).Value = TextBox10.Value
Range("u" & j).Value = TextBox11.Value
Range("y" & j).Value = TextBox15.Value
Range("AE" & j).Value = ComboBox3.Value
Range("AF" & j).Value = ComboBox4.Value
Range("AG" & j).Value = ComboBox5.Value
Range("AH" & j).Value = ComboBox6.Value
Range("AI" & j).Value = ComboBox7.Value
Range("AJ" & j).Value = ComboBox8.Value
Range("AK" & j).Value = ComboBox9.Value
Range("Al" & j).Value = ComboBox10.Value
Range("Am" & j).Value = ComboBox11.Value
Range("An" & j).Value = ComboBox12.Value
Range("Ao" & j).Value = ComboBox13.Value
    End If
    Unload Me
    
    UserForm2.Hide
    End With
    
End Sub