Discussion :

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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...

[Invité]

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

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabelX.caption

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

[Invité]

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

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
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.

[Jean-Philippe André]

OK,

je propose ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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