Ou est l'erreur ?

[zeltron24]

Bonjour le Forum,
Voici mon code :

Private Sub BtnCalc_Click()
Resul1.Value = Val(Val01.Value) * Val(Bas01.Value)
Resul2.Value = Val(Val02.Value) * Val(Bas02.Value)
Resul3.Value = Val(Val03.Value) * Val(Bas03.Value)
Resul4.Value = Val(Val04.Value) * Val(Bas04.Value)
Resul5.Value = Val(Val05.Value) * Val(Bas05.Value)
Resul6.Value = Val(Val06.Value) * Val(Bas06.Value)

End Sub

Private Sub BtnEff_Click()
Dim n As Integer

For n = 1 To 6
    n = 0
Me.Resul(n).Value = ""
Next n

End Sub

L'erreur "Membre de méthode ou de donnée introuvable"

je ne vois pas à quoi cela corespond Bien que la zone est mise en grise "Me.Result(n)
Merci de m'éclairer.

 

[job75]

Re : Ou est l'erreur ?

Bonjour zeltron24,

Ma boule de cristal a supposé qu'il s'agissait d'un UserForm 🙄

Private Sub BtnEff_Click()
Dim n As Byte
For n = 1 To 6
Controls("Resul" & n) = ""
Next
End Sub

A+

 

[Staple1600]

Re : Ou est l'erreur ?

Bonjour

Essaies
Me.Controls("Resul" & n)


EDITION: Bing ! salutations, job75 😉

 

[Gorfael]

Re : Ou est l'erreur ?

Salut zeltron24 et le forum
Toujours pas de devin ou de télépathe sur ce site, à ma connaissance.
Me.Resul(n) C'est cencé signifier quoi, pour toi ?
"Me" fait référence à l'objet support (feuille ou USF)
Result(n) ferait référence à une collection de n objets se trouvant sur le support

Soit plus laconique, les réponses fournies n'en seront que plus explicites (si elles arrivent)
A+

 

[zeltron24]

Re : Ou est l'erreur ?

Salut Gorfael, Staple1600 ,job75 et les autres,

En effet job75l, ta boule de cristal a deviné qu'il s'agissat d'un userform.
Me. Pour moi je pensais que cela me donné référence à la zone Texte "Resul" placée dans l'user form.
Pour etre clair j'ai 1 zone text Val01 que je multiplie par Bas01 le résultat étant dans Resul1 et cela 6 fois.

 

[mécano41]

Re : Ou est l'erreur ?

Bonjour,

Peut-être ainsi ...

Private Sub BtnCalc_Click()
Resul1.Value = 1 * Val01.Value * Bas01.Value
Resul2.Value = 1 * Val02.Value * Bas02.Value
'etc ...
End Sub

Cordialement

 

[job75]

Re : Ou est l'erreur ?

Bonsoir mécano41,

Hum, que crois-tu qu'il va se passer si l'on entre des lettres [Edit : ou rien] dans Val01 ou Bas01 ?

Par contre bien sûr il faut simplifier la 1ère macro :

Private Sub BtnCalc_Click()
Dim n As Byte
For n = 1 To 6
Controls("Resul" & n) = Val(Controls("Val0" & n)) * Val(Controls("Bas0" & n))
Next
End Sub

A+

 

[zeltron24]

Re : Ou est l'erreur ?

Bonjour à tous,

Je constate que vous avez travaillé tard sur mon projet et je vous en remercie.
Le but de la manoeuvre et grace à un BtnEffacer de justement effacer le résultat des controls Resul01 à resul06 via une formule simple.
Je le fait mais avec Resul01 = "" ; Resul02 = "" Mais le problème est que j'ai cinquante Resul donc je ne vous dit pas la longueur du code.
D'ou l'idée d'un For Next mais je n'arrive pas à le formuler correctement.
Enfin, après recherche le résultat final est celui ci:

Private Sub BtnEff_Click()
Dim n

For n = 1 To 6
  
Controls("Resul" & n) = ""
Next n

End Sub

Un grand merci à vous tous pour votre aide et Bonne Journée.
Cordialement
zeltron24

 

[job75]

Re : Ou est l'erreur ?

Enfin, après recherche le résultat final est celui ci:

Private Sub BtnEff_Click()
Dim n

For n = 1 To 6
  
Controls("Resul" & n) = ""
Next n

End Sub

Pourtant mon post #2 n'a pas été supprimé 😕

Mes sincères félicitations 😀

A+

 

[zeltron24]

Re : Ou est l'erreur ?

APRES RECHERCHE je voulait simplement dire que c'est en revoyant les posts et en particulier celui de job75 que j'ai trouvé la solution.
Car il y avait encore un blèm j'y avait laissé aprés la ligne For n =...... la ligne suivante n = 0 ce qui ne fontionnait pas.
Donc je le dit haut et fort
MERCI JOB75
Allez à plus Bonne fin d'après midi à tous