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 je ne vois ou est l'erreur.
Si quelqu'un peut m'aider,merci d'avance
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 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
Partager