P
PierreB77
Guest
Bonjour à tous
J'ai un petit probleme avec ce bout de code:
For i = 1 To 10
'si la valeur de la cellule est différente à la valeur de JE1_A1
If ActiveCell.Offset(i, 0).Value <> JE1_A1.Value Then
'alors je met cette valeur dans la liste JE1_B1
'JE1_B1.AddItem i
If i = 1 Then
JE1_B1.AddItem Sheets('Nom').Range('C2')
ElseIf i = 2 Then
JE1_B1.AddItem Sheets('Nom').Range('C3')
ElseIf i = 3 Then
JE1_B1.AddItem Sheets('Nom').Range('C4')
ElseIf i = 4 Then
JE1_B1.AddItem Sheets('Nom').Range('C5')
ElseIf i = 5 Then
JE1_B1.AddItem Sheets('Nom').Range('C6')
ElseIf i = 6 Then
JE1_B1.AddItem Sheets('Nom').Range('C7')
ElseIf i = 7 Then
JE1_B1.AddItem Sheets('Nom').Range('C8')
ElseIf i = 8 Then
JE1_B1.AddItem Sheets('Nom').Range('C9')
ElseIf i = 9 Then
JE1_B1.AddItem Sheets('Nom').Range('C10')
ElseIf i = 10 Then
JE1_B1.AddItem Sheets('Nom').Range('C11')
End If
End If
Next i
le probleme vient de mon 1er IF.
Je viens en fait comparer une valeur (qui se trouve etre le nom et le prenom d'une personne, donc du text) dans une liste se trouvant sur une feuille Excel avec une valeur que je rentre grace à un combobox se rapportant à cette liste.
Hors quand la valeur est identique ma condition ne fonctionne pas et elle considere que ces 2 valeurs ne le sont pas. :?:
Est ce que quelqu'un aurait une solution à mon probleme.
Merci d'avance de votre aide
Pierre
PS: Ci-joint un fichier pouvant permettre une meilleur comprehension de mon probleme. [file name=ListeD.zip size=14517]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListeD.zip[/file]
J'ai un petit probleme avec ce bout de code:
For i = 1 To 10
'si la valeur de la cellule est différente à la valeur de JE1_A1
If ActiveCell.Offset(i, 0).Value <> JE1_A1.Value Then
'alors je met cette valeur dans la liste JE1_B1
'JE1_B1.AddItem i
If i = 1 Then
JE1_B1.AddItem Sheets('Nom').Range('C2')
ElseIf i = 2 Then
JE1_B1.AddItem Sheets('Nom').Range('C3')
ElseIf i = 3 Then
JE1_B1.AddItem Sheets('Nom').Range('C4')
ElseIf i = 4 Then
JE1_B1.AddItem Sheets('Nom').Range('C5')
ElseIf i = 5 Then
JE1_B1.AddItem Sheets('Nom').Range('C6')
ElseIf i = 6 Then
JE1_B1.AddItem Sheets('Nom').Range('C7')
ElseIf i = 7 Then
JE1_B1.AddItem Sheets('Nom').Range('C8')
ElseIf i = 8 Then
JE1_B1.AddItem Sheets('Nom').Range('C9')
ElseIf i = 9 Then
JE1_B1.AddItem Sheets('Nom').Range('C10')
ElseIf i = 10 Then
JE1_B1.AddItem Sheets('Nom').Range('C11')
End If
End If
Next i
le probleme vient de mon 1er IF.
Je viens en fait comparer une valeur (qui se trouve etre le nom et le prenom d'une personne, donc du text) dans une liste se trouvant sur une feuille Excel avec une valeur que je rentre grace à un combobox se rapportant à cette liste.
Hors quand la valeur est identique ma condition ne fonctionne pas et elle considere que ces 2 valeurs ne le sont pas. :?:
Est ce que quelqu'un aurait une solution à mon probleme.
Merci d'avance de votre aide
Pierre
PS: Ci-joint un fichier pouvant permettre une meilleur comprehension de mon probleme. [file name=ListeD.zip size=14517]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListeD.zip[/file]