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

 

[skoobi]

Re : Poroblème affichage de données

Bonjour,

c'est-à-dire?
Tu as un message d'erreur ou il ne fait pas ce que tu veux?
Pour comprendre ce qui se passe, je te conseille de tester le code en "pas à pas" (tu mets un bouton "stop" dans la marge avant la boucle puis touche F8.

 

[lironik]

Re : Poroblème affichage de données

Il me fait pas ce que je veux et je n'ai aucun message d'erreur donc je ne sais pas si c'est mon code qui est faux ou s'il y a un problème dans le fichier

 

[skoobi]

Re : Poroblème affichage de données

Re,

Pour comprendre ce qui se passe, je te conseille de tester le code en "pas à pas" (tu mets un bouton "stop" dans la marge avant la boucle puis touche F8.

As-tu fais le test?

 

[lironik]

Re : Poroblème affichage de données

J'ai fait le pas à pas mais il n'y a rien d'anormal

 

[soenda]

Re : Poroblème affichage de données

Bonsoir lironik, skoobi, le fil

@lironik

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

- Les 2 lignes en bleu ne doivent pas se trouver dans la boucle

- Et de ce fait, la ligne en rouge est en trop

Ce qui nous donnerait:

Dim i%, j as integer

i=nbprestations.value

quantite.visible = True
designation.visible = true

For j = 1 to 12

     controls("labelP" & j).visible = (j <= i)
     Controls("designationP" & j).Visible = (j <= i)
     
     If Controls("designationP" & j).value = "Remplacement de soufflet de cardan" Then Controls("quantiteP" & j).visible = true

Next

Pour pouvoir comprendre ce que tu veux, un fichier exemple serait le benvenu.

A plus

 

[lironik]

Re : Poroblème affichage de données

Connaissez vous un site ou je puisse stocker mon fichier sachant qu'il fait 2.26 Mo

 

[soenda]

Re : Poroblème affichage de données

Re,

@lironik
Un test à faire, après la ligne suivante:

i=nbprestations.value

Ajoute:

MsgBox i

Et dis nous...

A plus

 

[lironik]

Re : Poroblème affichage de données

Bein j'obtiens une msgbox avec le nombre de prestations que j'ai choisie

 

[soenda]

Re : Poroblème affichage de données

Re,

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

Mais penses tout de même à compresser ton fichier.

Si tu obtiens le nombre souhaité, il faut cherché l'erreur ailleur

A plus

 

[soenda]

Re : Poroblème affichage de données

Re,

@lironik:
Sommes nous d'accord sur le fait que la ligne suivante

Controls("labelP" & j)...

Désigne le Nom du Label et pas son Caption ?

A plus

 

[lironik]

Re : Poroblème affichage de données

Oui on est d'accord

 

[lironik]

Re : Poroblème affichage de données

Voilà le fichier et merci pour m'avoir fait découvrir cijoint

 

[soenda]

Re : Poroblème affichage de données

Re,

@lironiK

La ligne suivante, semble posait problème

If Controls("designationP" & j).value = "Remplacement de soufflet de cardan" Then Controls("quantiteP" & j).visible = true

Je regarderai cela demain

A plus

 

[soenda]

Re : Poroblème affichage de données

Re,

@lironiK

Il faut remplacer Value par Caption,
dans la ligne suivante

If Controls("designationP" & j).Value = "Remplacement de soufflet de cardan" Then Controls("quantiteP" & j).visible = true

A plus