Discussion :

[touche_a_tout]

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

[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/

[Invité]

Bonjour

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

Starec

[LeForestier]

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

[touche_a_tout]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lucfrfr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub ZoneTravail(byval i as integer)

[Pierre Fauconnier]

Bonjour Pierruel,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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