Test sur variable pour Userform

skoobi

XLDnaute Barbatruc

• 21 Février 2008

• #2

Re : Test sur variable pour Userform

Bonjour,

Si tu écris ".Controls", il faut une structure With... End With:

With Userform1
If .Controls(....
.........
........
End With

Est-ce le cas?

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 21 Février 2008

• #3

Re : Test sur variable pour Userform

bonjour à tous,

en plus de la remarque judicieuse de Skoobi, je rajouterai que tu n'as pas besoin de convertir ta variable de boucle i en cstr(i)
Me.Controls("Theme_Sec" & i) devrait fonctionner très bien

 

Vote positif 0 Vote négatif

G

GillesC

XLDnaute Occasionnel

• 21 Février 2008

• #4

Re : Test sur variable pour Userform

skoobi à dit:

Bonjour,

Si tu écris ".Controls", il faut une structure With... End With:

With Userform1
If .Controls(....
.........
........
End With

Est-ce le cas?

Cliquez pour agrandir...

Bonjour Skoobi
Oui mon usf se nomme Tableau_Saisie, et j'ai bien un "With Tableau_Saisie"
D'ailleurs auparavant ce programme fonctionnait très bien quand je stockais ces variables dans une Textbox de mon Usf.
Mais je l'ai modifié et je ne rapatrie plus ces données, je veux juste faire un test sur les valeurs de mon tableau et non sur celles stockées dans un Textbox.
Voilà

 

Vote positif 0 Vote négatif

G

GillesC

XLDnaute Occasionnel

• 21 Février 2008

• #5

Re : Test sur variable pour Userform

mutzik à dit:

bonjour à tous,

en plus de la remarque judicieuse de Skoobi, je rajouterai que tu n'as pas besoin de convertir ta variable de boucle i en cstr(i)
Me.Controls("Theme_Sec" & i) devrait fonctionner très bien

Cliquez pour agrandir...

Bonjour Mutzik,
merci de ta réponse,
mais Me.Controls("Theme_Sec" & i) ne marche pas non plus.
Tant que je stockais mes variables dans des textbox (nommées F_Theme_Sec (i) ) il n'y avait pas de problème, mais maintenant que je les cherche directement dans mon tableau le ".Controls" plante, cela me met : "Objet spécifié introuvable"

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 21 Février 2008

• #6

Re : Test sur variable pour Userform

Re,

envoie le fichier qu'on y voit plus clair

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 21 Février 2008

• #7

Re : Test sur variable pour Userform

Bonjour

Quels sont les contrôles de l'USF nommé "Theme_Sec" & i ?

Pour tester des variables hors USF il faut que les variables soient des variables publiques. dans ce cas il ne faut pas les considérer comme des contrôles.
Il faut modifier
If .Controls("Theme_Sec" & CStr(i)) <> "" Then
par If Theme_Sec(i) <> "" Then
avec pour Theme_Sec(i) une déclaration de ce type
Public Theme_Sec(10) as string
et
Theme_Sec(1) = ActiveCell.Offset(0, 31)

JP

 

Dernière édition: 21 Février 2008

Vote positif 0 Vote négatif

G

GillesC

XLDnaute Occasionnel

• 21 Février 2008

• #8

Re : Test sur variable pour Userform

Re
Une version expurgée de mon fichier en annexe.
J'ai mis quelques annotations de mon problème dans Module1

Merci en tout cas de votre aide

 

Pièces jointes

• GillesC.zip

  45.4 KB · Affichages: 27

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 21 Février 2008

• #9

Re : Test sur variable pour Userform

Bonjour

Pour renseigner les différents contrôles il faut que l'USF soit ouvert.
Il faut modifier la séquence d'appel des procédures.
Remplacer : Call Saisie_Visites_2007 par
Tableau_Saisie.Show
supprimer .show dans Saisie_Visites_2007
et rajouter la procédure
Private Sub UserForm_Initialize()
Call Saisie_Visites_2007
End Sub


JP

 

Vote positif 0 Vote négatif

G

GillesC

XLDnaute Occasionnel

• 21 Février 2008

• #10

Re : Test sur variable pour Userform

Re bonjour,
Merci à tous de vos aides, même si je n'ai pas réussi à solutionner mon problème.
J'ai contourné le souci en insérant des Textbox dans mon Userform et en les alimentant avec mes variables. J'ai réduit ces textbox pour qu'ils n'apparaissent pas et, si ce n'est pas très satisfaisant intellectuellement, au moins CA MARCHE!

 

Vote positif 0 Vote négatif