Bonjour,
je reviens encore vers vous car j'ai un soucis avec mon code, j'arrive pas à le régler. voici le code
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
Private Sub CommandButton1_Click()
 
Dim derl As Integer
Dim i As Integer
Dim num As Integer
 
    num = Application.Max(Columns(7)) + 1 'le plus grand nom de la colonne G +1: la colonne G contient les numéros etudes
    derl = Range("A65536").End(xlUp).Row + 1
For i = 2 To derl
 If Cells(i, "G") = "" Then
    If Cells(i, "C") = TextBox1.Value And Cells(i, "N") = TextBox2.Value And Cells(i, "V") = ComboBox1.Value Then
        Cells(i, "G") = num
        'MsgBox "ok"
    End If
 End If
Next i
 
UsfNum.Hide
Unload Me
 
End Sub
Ce code marche si toutes les cellules utilisées par la macro sont en text, si ces cellules sont en valeur alors la condition ne se vérifie jamais et elle ne fait rien. En sachant que dans les testbox et combobox je marque bien ce qui est inscrit dans les cellules respectifs
Savais vous pourquoi? et comment contourner ce problème?
Merci d'avance