Poroblème affichage de données

lironik · 10 Janvier 2009

Bonjour le forum
Voici mon code d'origine

Code:

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é:

Code:

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 · 10 Janvier 2009

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 · 10 Janvier 2009

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 · 10 Janvier 2009

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 · 10 Janvier 2009

Re : Poroblème affichage de données

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

soenda · 10 Janvier 2009

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:

Code:

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 · 10 Janvier 2009

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 · 10 Janvier 2009

Re : Poroblème affichage de données

Re,

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

Code:

i=nbprestations.value

Ajoute:

Code:

MsgBox i

Et dis nous...

A plus

lironik · 10 Janvier 2009

Re : Poroblème affichage de données

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

soenda · 10 Janvier 2009

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 · 10 Janvier 2009

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 · 10 Janvier 2009

Re : Poroblème affichage de données

Oui on est d'accord

lironik · 10 Janvier 2009

Re : Poroblème affichage de données

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

soenda · 10 Janvier 2009

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 · 10 Janvier 2009

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

Poroblème affichage de données

lironik

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

lironik

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

lironik

XLDnaute Nouveau

soenda

XLDnaute Accro

lironik

XLDnaute Nouveau

soenda

XLDnaute Accro

lironik

XLDnaute Nouveau

soenda

XLDnaute Accro

soenda

XLDnaute Accro

lironik

XLDnaute Nouveau

lironik

XLDnaute Nouveau

soenda

XLDnaute Accro

soenda

XLDnaute Accro

Discussions similaires