Problème appel sub

Bonjour,
Une erreur d'"incompatibilité de type" survient lors de mon appel de Sub.
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Remplissage_Situation(indice As Integer, Label1 As Label, Label2 As Label, Label3 As Label, Label4 As Label, Label5 As Label, Label6 As Label, Label7 As Label, Label8 As Label) Label1.Caption = Label5.Caption = 1 'indice Label2.Caption = Trim$(Mid$(szEcran, indice, 9)) 'montant appel Label3.Caption = Trim$(Mid$(szEcran, indice + 11, 10)) 'date appel Label4.Caption = Trim$(Mid$(szEcran, indice + 22, 1)) 'etat appel Label6.Caption = Trim$(Mid$(szEcran, indice + 35, 9)) 'montant encaissement Label7.Caption = Trim$(Mid$(szEcran, indice + 46, 10)) 'date encaissement Label8.Caption = Trim$(Mid$(szEcran, indice + 57, 1)) 'etat encaissement End Sub

---

Et l'appel:

Code:

---

Remplissage_Situation i, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, Me.Label6, Me.Label7, Me.Label8

---

Donc rien de compliqué. J'ai bien un appel basique du sub, mes 9 paramètres (un integer et 8 Label). Je ne comprends pas où est le problème

salut,

j'ai du mal à saisir, tu utilises des Label. Est-ce voulu ou bien tu souhaites juste utiliser une chaine de caractères (String) ?

Je douterais de l'intérêt de passer des label en parametres... :koi:

Oui c'est voulu, c'est juste pour simplifier le code vu que cette tache est répété environ dix fois pour des labels différents passé en paramètre.

C'est donc pour mettre à jour les Label d'un UserForm

Bon déjà j'ai oublié les ".Caption" pour chaque Label dans le Sub. J'édite le premier post

pour mettre à jour un label, c'est le caption qu'il faut modifier

Code:

---

LabelX.caption

---

reste que je ne vois pas l'intérêt de les passer en paramètre, seul l'integer suffirait ;)

Voici mon code. Peut être que vous auriez des propostitions d'améliorations à me donner.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

If i = 1132 Then 'Pour le premier montant Remplissage_Situation i, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, Me.Label6, Me.Label7, Label8 ElseIf i = 1212 Then Remplissage_Situation i, Me.Label9, Me.Label10, Me.Label11, Me.Label12, Me.Label13, Me.Label14, Me.Label15, Me.Label16 ElseIf i = 1292 Then Remplissage_Situation i, Me.Label17, Me.Label18, Me.Label19, Me.Label20, Me.Label21, Me.Label22, Me.Label23, Me.Label24 ElseIf i = 1372 Then Remplissage_Situation i, Me.Label25, Me.Label26, Me.Label27, Me.Label28, Me.Label29, Me.Label30, Me.Label31, Me.Label32 ElseIf i = 1452 Then Remplissage_Situation i, Me.Label33, Me.Label34, Me.Label35, Me.Label36, Me.Label37, Me.Label38, Me.Label39, Me.Label40 ElseIf i = 1532 Then Remplissage_Situation i, Me.Label41, Me.Label42, Me.Label43, Me.Label44, Me.Label45, Me.Label46, Me.Label47, Me.Label48 ElseIf i = 1612 Then Remplissage_Situation i, Me.Label49, Me.Label50, Me.Label51, Me.Label52, Me.Label53, Me.Label54, Me.Label55, Me.Label56 End If

---

L'utilité était donc de factoriser un peu mon code.

OK,

je propose ceci :

Code:

---

1 2 3 4 5 6 7 8

Select Case i Case 1132 : Remplissage_Situation i, 1 Case 1212 : Remplissage_Situation i, 9 Case 1292 : Remplissage_Situation i, 17 Case 1372 : Remplissage_Situation i, 25 Case 1532 : Remplissage_Situation i, 41 Case 1612 : Remplissage_Situation i, 49 End Select

---

avec

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Remplissage_Situation(indice As Integer, i As Integer me.controls("Label" & i).Caption = me.controls("Label" & i + 4).Caption = 1 'indice me.controls("Label" & i+1).Caption = Trim$(Mid$(szEcran, indice, 9)) 'montant appel me.controls("Label" & i+2).Caption = Trim$(Mid$(szEcran, indice + 11, 10)) 'date appel me.controls("Label" & i+3).Caption = Trim$(Mid$(szEcran, indice + 22, 1)) 'etat appel me.controls("Label" & i+5).Caption = Trim$(Mid$(szEcran, indice + 35, 9)) 'montant encaissement me.controls("Label" & i+6).Caption = Trim$(Mid$(szEcran, indice + 46, 10)) 'date encaissement me.controls("Label" & i+7).Caption = Trim$(Mid$(szEcran, indice + 57, 1)) 'etat encaissement End Sub

---