Thomas_Abitbol
XLDnaute Nouveau
Bonjour à tous,
Ceci est très important pour moi et c'est pour cela que je me tourne vers vous après plusieurs heures de travail. J'arrive à une des dernières étapes qui est vraiment cruciale pour moi puisque cela va me permettre de terminer mon projet de 2eme année de BTS.
Voici mon problème : j'ai effectué une boucle (je ne suis pas expert en VBA) mais celle-ci m'informe un bug dont je ne comprends pas.
Private Sub UserForm_Activate()
Dim x As Integer
x = 2
While Worksheets("BaseMaintenance").Cells(x, 1) <> ""
If ListBox2.List(ListBox2.ListIndex) = Worksheets("BaseMaintenance").Cells(x, 1) Then
Sheets("EnregistrerMaintenance").Label13.Caption = Worksheets("BaseMaintenance").Cells(x, 4)
Sheets("EnregistrerMaintenance").Label12.Caption = Worksheets("BaseMaintenance").Cells(x, 5)
Sheets("EnregistrerMaintenance").Label11.Caption = Worksheets("BaseMaintenance").Cells(x, 6)
End If
x = x + 1
Wend
End Sub
En attendant vos réactions, à bientôt !
Thomas
Ceci est très important pour moi et c'est pour cela que je me tourne vers vous après plusieurs heures de travail. J'arrive à une des dernières étapes qui est vraiment cruciale pour moi puisque cela va me permettre de terminer mon projet de 2eme année de BTS.
Voici mon problème : j'ai effectué une boucle (je ne suis pas expert en VBA) mais celle-ci m'informe un bug dont je ne comprends pas.
Private Sub UserForm_Activate()
Dim x As Integer
x = 2
While Worksheets("BaseMaintenance").Cells(x, 1) <> ""
If ListBox2.List(ListBox2.ListIndex) = Worksheets("BaseMaintenance").Cells(x, 1) Then
Sheets("EnregistrerMaintenance").Label13.Caption = Worksheets("BaseMaintenance").Cells(x, 4)
Sheets("EnregistrerMaintenance").Label12.Caption = Worksheets("BaseMaintenance").Cells(x, 5)
Sheets("EnregistrerMaintenance").Label11.Caption = Worksheets("BaseMaintenance").Cells(x, 6)
End If
x = x + 1
Wend
End Sub
En attendant vos réactions, à bientôt !
Thomas