Code Array Nom Worksheet

JFLord · 9 Février 2011

Bonjour,

J'ai construit mon code et j'ai un problème avec un array pour le nom des worksheet et je ne comprends pas pourquoi ca bloque.

Le code suivant a été épuré mais devrait faire l'affaire pour démontratio.

Code:

Sub comparatifcoll()
Dim collaWB As Workbook

Workbooks.Open Filename:="L:\Home\colla.XLS", UpdateLinks:=False, ReadOnly:=True
Set collaWB = Workbooks("colla.XLS")

Dim OngletArray(5) As String
    OngletArray(0) = "NHL"
    OngletArray(1) = "NBC"
    OngletArray(2) = "TSN"
    OngletArray(3) = "RSN"
    OngletArray(4) = "RDS"

for i=0 to 5

    collaWB.Worksheets(OngletArray(i)).Activate
    With Range([A1], [BA100].End(xlUp))
        Set Suspend = .Find("SunArray(i)", LookIn:=xlValues)
        Suspend2 = Range(Suspend).Offset(1, 0).Value
    End with

next i

end sub

Les noms de l'Array correspondent au nom des onglets mais la fonction de worksheet ne les reconnait pas. Quelqu'un pourrait m'aider la dessus?

Merci beaucoup
JF

Compte Supprimé 979 · 9 Février 2011

Re : Code Array Nom Worksheet

Bonsoir JFLord,

Peut-être comme ça, en supprimant les guillemets autour de SunArray(I)

Code:

Option Explicit
Sub comparatifcoll()
  Dim collaWB As Workbook
  Dim OngletArray() As String
  Dim I As Integer
  Workbooks.Open Filename:="L:\Home\colla.XLS", UpdateLinks:=False, ReadOnly:=True
  Set collaWB = Workbooks("colla.XLS")
  ' Définir le tableau des feuilles
  OngletArray = Split("NHL,NBC,TSN,RSN,RDS", ",")
  ' Pour chaque feuille
  For I = 0 To 5
    collaWB.Worksheets(OngletArray(I)).Activate
    With Range([A1], [BA100].End(xlUp))
      Set Suspend = .Find(SunArray(I), LookIn:=xlValues)
      Suspend2 = Range(Suspend).Offset(1, 0).Value
    End With
  Next I
End Sub

J'ai également modifié ta façon d'attibuer le nom de tes feuilles au tableau 😉

A+

Hervé · 9 Février 2011

Re : Code Array Nom Worksheet

salut 🙂

on peut aussi ecrire le split comme ceci :

For Each c In Split("NHL,NBC,TSN,RSN,RDS", ",")

puis ecrire : collaWB.Worksheets(c).Activate

hein ? quoi ? qu'est ce que je fous là ?
ben j'aide, non ?
ok, je sors

a plus
😱

kjin · 10 Février 2011

Re : Code Array Nom Worksheet

Bonsoir,
Si je doute sur le fait qu'il y ait pb avec le nom des feuilles...

Set Suspend = .Find("SunArray(i)", LookIn:=xlValues)

...là je doute moins !
Et SunArray, c'est qui ?
A+
kjin

JFLord · 10 Février 2011

Re : Code Array Nom Worksheet

La partie avec SunArray fonctionne très bien... C'est mon Array de Soleil 😉

En passant les noms des onglets sont fictif. Désolé pour ceux que je décois 😛

JFLord · 10 Février 2011

Re : Code Array Nom Worksheet

J'ai essayé la nouvelle méthode... mais ca bloque encore à la même ligne...

collaWB.Worksheets(OngletArray(i)).Activate

ceci est la ligne problématique et je crois surtout que c'est le «worksheets» qui cause le problème.

JFLord · 18 Février 2011

Re : Code Array Nom Worksheet

J'ai trouvé mon problème. En fait, c'est très stupide. La raison de l'erreure est que je fermais le fichier correspondant à collaWB avant même de me rendre à cette section du code. Il ne reconnaissait pas la fonction. Maintenant que ce petit bug est réparé, la macro roule à merveille. Merci quand meme de votre aide

Code Array Nom Worksheet

JFLord

Guest

Compte Supprimé 979

Guest

Hervé

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

JFLord

Guest

JFLord

Guest

JFLord

Guest

Discussions similaires

Code Array Nom Worksheet

JFLord

Guest

Compte Supprimé 979

Guest

Hervé

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

JFLord

Guest

JFLord

Guest

JFLord

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency