Poroblème affichage de données

skoobi

XLDnaute Barbatruc

• 10 Janvier 2009

• #2

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.

 

Vote positif 0 Vote négatif

L

lironik

Guest

• 10 Janvier 2009

• #3

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 10 Janvier 2009

• #4

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.

Cliquez pour agrandir...

As-tu fais le test?

 

Vote positif 0 Vote négatif

L

lironik

Guest

• 10 Janvier 2009

• #5

Re : Poroblème affichage de données

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 10 Janvier 2009

• #6

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

Cliquez pour agrandir...

- 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

 

Vote positif 0 Vote négatif

L

lironik

Guest

• 10 Janvier 2009

• #7

Re : Poroblème affichage de données

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

 

Dernière modification par un modérateur: 10 Janvier 2009

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 10 Janvier 2009

• #8

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

 

Vote positif 0 Vote négatif

L

lironik

Guest

• 10 Janvier 2009

• #9

Re : Poroblème affichage de données

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 10 Janvier 2009

• #10

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 10 Janvier 2009

• #11

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

 

Vote positif 0 Vote négatif

L

lironik

Guest

• 10 Janvier 2009

• #12

Re : Poroblème affichage de données

Oui on est d'accord

 

Vote positif 0 Vote négatif

L

lironik

Guest

• 10 Janvier 2009

• #13

Re : Poroblème affichage de données

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

 

Dernière modification par un modérateur: 11 Janvier 2009

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 10 Janvier 2009

• #14

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

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 10 Janvier 2009

• #15

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

 

Vote positif 0 Vote négatif