portée des variables

Version imprimable

29/08/2007, 02h20
touche_a_tout

portée des variables

Bonsoir,
C'est du b, a, ba. Si on veut qu'une variable soit reprise dans toutes les sub d'un module, il faut la déclarer en tête de module, avant la première sub. C'est ce que je fais mais les sub secondaires que la sub main appelle me donnent "variable non définie". Quelque chose d'élémentaire m'échappe, mais quoi ? Il y a des exceptions à la règle ?
Merci d'avance de vos lumières.
Cordialement
Pierre
29/08/2007, 03h36
tirex28

Bonsoir,

Pas facile de répondre sans code, mais s'il s'agit d'une variable objet assure toi qu'une valeur lui a été affecté avant de l'utiliser.

Cordialement,

Tirex28/
29/08/2007, 03h47
Invité

Bonjour

As-tu bien mit Public devant la déclaration de ta variable au lieu de Dim.

Starec
29/08/2007, 03h50
LeForestier

Bonsoir,
Tu parle de Sub Main, tu est bien en VBA ? pas plutôt en VB6 ?
A+

Bonjour et merci à tous,
Oui, je suis bien en VBA, je voulais dire que j'ai une sub principale qui appelle des routines répétitives (pléonasme ;)). J'ai fait l'essai avec Dim et avec Public: même bide. Ma variable est un indice (integer, mais j'ai aussi essayé Variant) de sheets(), pas un objet (Mais est-ce qu'elle devient objet parce qu'elle est associée à sheets(), ah ?). J'essaie de citer du code sans encombrer la bande passante; i est défini aléatoirement ici (avant appel à une sous-routine):
Code:

1 2 3 4 5 6 7 8 Workbooks("des_mots.xls").Activate 'On va dans le classeur " des_mots " ActiveWorkbook.Sheets("resultats").Select 'feuille résultats Range("C5").Select ActiveCell.FormulaR1C1 = "=INT(RAND()*10)" ' créer un indice aléatoire de feuille i = ActiveCell.Value Range("C5").Value = Empty Call ZoneTravail
(entre nous il y a sûrement un moyen plus élégant d'affecter la valeur aléatoire à mon indice i, mais j'ai pas trouvé, et vous ?)

Ensuite le message "L'indice n'appartient pas à la sélection" apparaît ici (mais aussi dans d'autres sous-routines):
Code:

1 2 3 4 5 6 7 Sub ZoneTravail() Dim i As Variant 'j'ai aussi essayé sans re-déclarer i ActiveSheet.Select With Sheets(i).UsedRange b = .Row + .Rows.Count - 1 End With End Sub
Si quelqu'un voit par où ça pèche ?
Merci de vos avis
Pierre

Citation:

Envoyé par pierruel

Code:

1
2
3
4
5
6
7
8
     Workbooks("des_mots.xls").Activate 'On va dans le classeur " des_mots "
                ActiveWorkbook.Sheets("resultats").Select 'feuille résultats
                Range("C5").Select
                ActiveCell.FormulaR1C1 = "=INT(RAND()*10)"   ' créer un indice aléatoire de feuille
                i = ActiveCell.Value
                Range("C5").Value = Empty
 
 Call ZoneTravail

Au moment ou tu fais call ZoneTravail, tu devrais plutot faire ZoneTravail(i)
et
ensuite

Code:

Sub ZoneTravail(byval i as integer)

29/08/2007, 15h37
Pierre Fauconnier

Bonjour Pierruel,

Dans la procédure ZoneTravail, tu ne dois pas avoir la ligne

Code:

dim i as integer

sinon, la variable locale est utilisée et la variable déclarée en début de module est "masquée" au sein de la procédure ZoneTravail

Citation:

Envoyé par Starec

Bonjour

As-tu bien mit Public devant la déclaration de ta variable au lieu de Dim.

Starec

La variable peut être déclarée

Code:

dim i as integer

en tête de module, si on veut qu'elle soit privée au niveau du module... Si les procédures appelées sont toutes dans le module dans lequel la variable i a été déclarée, point n'est besoin de rendre cette variable publique
29/08/2007, 15h51
lucfrfr

Le plus simple serait que tu nous poste ton code en entier car effectivement, t'as variable est certainement re-déclaré ailleur.
29/08/2007, 16h57
touche_a_tout

portée des variables

Bonjour,
Merci de votre sollicitude. Sincèrement.
Pour Pierre Fauconnier: j'ai effectivement besoin de Public en tête de module parce que cet i apparaît dans 6 ou 7 procédures sub. A part ça, je dois épouiller mon code car j'ai fait des tas d'essais et il reste des expressions comme celle que tu signales. Je vais faire le nettoyage !
Pour lucfrfr à 12 h 8: Bingo, il fallait byvar... dans les parenthèses de toutes les procédures appelées (les débutants, c'est comme ça !). Byvar a résolu ce problème. Merci.
Quant à vous balancer tout mon code, pas pour l'instant: au stade actuel, j'ai un problème de boucles imbriquées et mon code tourne en rond. A moi de numéroter les for et les next :?
Encore merci. Le sujet "portée des variables" est clos, mais à bientôt tout de même !
Cordialement
Pierre