Poroblème affichage de données

[lironik]

Bonjour le forum
Voici mon code d'origine

Dim i%, j as integer

i=nbprestations.value

For j = 1 to 12
     quantite.visible = True
     designation.visible = true
     controls("labelP" & j).visible = (j <= i)
     Controls("designationP" & j).Visible = (j <= i)
     Controls("quantiteP" & j).visible = (j <= i)
Next

Désormais je voudrais que le quantite et Controls("quantiteP" & j) ne soit visible que si Controls("designationP" & j) prend la valeur "Remplacement soufflet de cardan". Voilà le code que j'ai élaboré:

Dim i%, j as integer

i=nbprestations.value

For j = 1 to 12
     quantite.visible = True
     designation.visible = true
     controls("labelP" & j).visible = (j <= i)
     Controls("designationP" & j).Visible = (j <= i)     
            If Controls("designationP" & j).value = "Remplacement de soufflet de cardan" Then
                  quantite.visible = True
                  Controls("quantiteP" & j).visible = true
            End if
Next

Mais ce code ne marche pas donc je sollicite votre aide

 

[lironik]

Re : Poroblème affichage de données

Erreur d'exécution "438": Propriété ou méthode non gérée par cet objet

 

[soenda]

Re : Poroblème affichage de données

Re,

Effectivement, le control designationPx n'est pas un Label, mais un TextBox.

J'ai pu le constater sur l'exemple...

A plus

 

[lironik]

Re : Poroblème affichage de données

Personne d'autre n'a de solutions à mon problème

 

[soenda]

Re : Poroblème affichage de données

Bonsoir lironik, le fil

Un petit fichier sur le lien suivant, dis nous si cela te convient:

Cijoint.fr - Service gratuit de dépôt de fichiers

J'ai un peu débroussaillé...

A plus

 

[soenda]

Re : Poroblème affichage de données

Bonsoir à tous

@lironic
Je me suis un peu embarqué avec ton problème, mais il y avait tellement de choses à voir...
Alors pour répondre à la question initiale effectue les modif suivantes (à partir de ton programme initial):

Ajoute la sub suivante

Private Sub Position(ByVal p%)
    
    If Controls("designationP" & p).Value = "Remplacement soufflet de cardan" Then
        quantite.Visible = True
        Controls("quantiteP" & p).Visible = True
    End If
    
End Sub

Dans les Sub designationPx_Change, ajoute la ligne en bleu

Private Sub designationP[COLOR=Red][B]2[/B][/COLOR]_Change()
    If flag = True Then Exit Sub
    [COLOR=Blue][B]Position[/B][/COLOR] [COLOR=Red][B]2[/B][/COLOR]
    Call maj(designationP2.Value, 2)
End Sub

Dans la sub nbprestations_Change(), modifie comme suit

...
[COLOR=Blue]designation.Visible[/COLOR] [COLOR=Blue]= True[/COLOR] 'Déplacer cette ligne ici
For j = 1 To 12
    Controls("LabelP" & j).Visible = (j <= i)
    Controls("designationP" & j).Visible = (j <= i)
    [COLOR=Blue]Supprimer le if.[/COLOR]..
Next j

Là, théoriquement ça marche...

Edit : Le programme que j'ai posté précédemment, est sacrément bogué.

A plus