Discussion :

[nekcorp]

Bonjour,

j'ai des feuilles de calculs qui se nomment :

DATA
CHEMIN
RESUME

J'ai d'autres feuilles qui ne m'intéresse pas

J'ai créé une fonction qui retourne une liste contenant les noms des feuilles ci dessus :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function DNRefSheetsListing()
 
    Dim listing As Object
 
    Set listing = CreateObject("System.Collections.ArrayList")
 
    listing.Add "DATA"
    listing.Add "CHEMIN"
    listing.Add "RESUME"
 
    Set DNRefSheetsListing = listing
 
End Function

Ensuite dans un autre code j'appel cette fonction pour balayer ces différentes feuilles à l'aide d'une boucle for :

Code :

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

1
2
3
4
5
6
7
 
            For Each sheetName In DNRefSheetsListing
 
                Debug.Print (sheetName)
                Worksheets(sheetName).Columns("A:A").Select
 
            Next

Mon soucis intervient lorsque sheetName prend le nom CHEMIN de la liste, j'ai le message d'erreur suivant :

erreur d'excecution '1004':

La méthode Select de la classe Range a échoué.

Une idée ?

Merci d'avance pour votre aide.

[Philippe Tulliez]

Bonjour,

Set listing = CreateObject("System.Collections.ArrayList")

Personnellement, je n'ai jamais utilisé ce type d'instruction
L'erreur provient du fait que tu tentes de sélectionner un objet Range (colonne) d'une feuille qui n'est pas active

Traiter une plage de cellules en VBA ne nécessite pas de sélectionner celle-ci donc y a t'il une raison de sélectionner cette colonne ?

[Qwazerty]

Salut

Code :

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

1
2
3
4
For Each sheetName In array("Data","Chemin","Resume")
     Debug.Print (sheetName) 
     Worksheets(sheetName).Columns("A:A").Select
Next

Ce code revient au même sans avoir besoin d'utiliser un complèment.
Mais je rejoins Philippe sur la nécessité d'en savoir plus sur ce que tu souhaites faire.

++
Qwaz

[Philippe Tulliez]

Bonjour Qwaz,
Attention : La boucle For Each Object In Colection .... Next ne peut pas utiliser une variable "classique" mais bien une variable objet et ne parcoure donc que les éléments d'une collection ou une plage de cellules
et je rappelle que la sélection d'une plage de cellules (ici une colonne) ne peut se faire que si la feuille parente est active

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
  Dim sht As Worksheet
  For Each sht In Worksheets(Array("Data","Chemin","Resume"))
    With sht
     Debug.Print .Name
    .Activate
    .Columns("A:A").Select
    End With
  Next
  Set sht = Nothing
End Sub

[Qwazerty]

Objet ou variant

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim sheetName As Variant
For Each sheetName In Array("Feuil1", "Feuil2", "Feuil3")
     Debug.Print (sheetName)
     Worksheets(sheetName)....
Next
End Sub

Pour le reste je suis d'accord j'aurais du mettre des ....

++
Qwaz

[nekcorp]

Traiter une plage de cellules en VBA ne nécessite pas de sélectionner celle-ci donc y a t'il une raison de sélectionner cette colonne ?

Alors pour être honnête je ne sais pas s'il y une réelle utilité à la sélectionner, mais comme j'avance à tâtons je fais des tests pour être sûr de ce que je fais.

Mon but est de faire la recherche d'une référence préalablement donnée par l'utilisateur dans les feuilles DATA, CHEMIN et RESUME. Cette référence se trouve dans la colonne A:A de chaque feuille.

Si la référence existe alors je dois créer un userForm qui va se remplir en fonction des colonnes qui sont remplies dans la sheet en question.

Si la référence n'existe pas alors je dois créer un userForm pour que l'utilisateur renseigne les informations du document lié à la référence.

J'espère avoir été clair.

[Philippe Tulliez]

Bonjour,
Donc, il n'y a aucune raison de faire la sélection ni de la feuille, ni des cellules.