Discussion :

[pasterlouis]

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

[EngueEngue]

Je répondrais à ta question par une autre question:
Est ce que "1"=1 ?
Est ce qu'une pomme = un mamouth?

Comparons des choses comparables.
Passons tout en string avant de comparer ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If cstr(Cells(i, "C")) = TextBox1.Value And cstr(Cells(i, "N")) = TextBox2.Value And cstr(Cells(i, "V")) = ComboBox1.Value Then

[pasterlouis]

merci beaucoup ça marche nickel
merci, merci