[XL-2010] And If sans bloc If

And If sans bloc If

bonjour le forum
j'ai un message dans le code çi-dessous qui me dit"And If sans bloc If" et n'étant pas doué en vba :aie: je ne vois ou est l'erreur.
Si quelqu'un peut m'aider,merci d'avance:D

Code:

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
 
Private Sub ComboBox2_Change()
 
Dim rRange As Range
Dim vI As Variant
Set rRange = Worksheets("Teile-DB").Range([C2], [C300])
For Each vI In rRange
 
  If ComboBox2.Text = vI Then MsgBox (vI.Row)
    Exit For
  End If
Next vI
'Initialiser les données des Labels Positionen
Dim no_ligne As Integer
'on prend la variable de la ligne qui se trouve dans MsgBox
no_ligne = vI.Row
'no_ligne = ComboBox2.ListIndex + 2
    'on définit la valeure de TextBox1 avec la cellule de la memme lige de ComboBox2 et la colonne 3
    UserForm1.Label25.Caption = Worksheets("Teile-DB").Cells(no_ligne, 4).Value
    UserForm1.Label26.Caption = Worksheets("Teile-DB").Cells(no_ligne, 5).Value
    UserForm1.Label27.Caption = Worksheets("Teile-DB").Cells(no_ligne, 6).Value
    UserForm1.Label28.Caption = Worksheets("Teile-DB").Cells(no_ligne, 7).Value
    UserForm1.Label29.Caption = Worksheets("Teile-DB").Cells(no_ligne, 8).Value
    UserForm1.Label30.Caption = Worksheets("Teile-DB").Cells(no_ligne, 9).Value
    UserForm1.Label31.Caption = Worksheets("Teile-DB").Cells(no_ligne, 10).Value
 
End Sub

Bonjour,

As-tu essayé de déplacer MsgBox (vI.Row) ?

Code:

1
2
3
4
5
6
7
 
For Each vI In rRange
  If ComboBox2.Text = vI Then 
     MsgBox (vI.Row)
     Exit For
  End If
Next vI

Ça marche enfin...
Merci à vous, pour la solution.
Suis trop content, vais pouvoir enfin continuer mon projet.

A+