Discussion :

[stdonat]

Bonjour

J'ai trouvé pleins de discussion sur le sujet.. mais pas de réponse à mon pb

je souhaite remplir rapidement une variable tableau, en accédant à une feuille par son codeName, mais pour cela je dois selectionner la feuille, or un "select" fait repasser le screenUptading à true....

Comme cela ça marche

Code :

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

1
2
3
4
5
6
7
 
Sub essai2()
Dim CFG() As Variant
    F5.Select
    Application.ScreenUpdating = False
    CFG = F8.Range("A1:D12")
End Sub

Comment puis-je résoudre se problème?
J'ai essayer avec la function qui me retourne le nom de feuille à partir du CodeName , voir sur ce Forummais sans succes

Mais je souhaiterai le faire via cells et comme cela ça ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub essai()
Dim CFG() As Variant
x = 1
y = 1
i = 4
j = 12
    F5.Select
    Application.ScreenUpdating = False
    CFG = F8.Range(Cells(x, y), Cells(i, j))
End Sub

je suis obligé de remettre un select... qui plombe le screeUptading

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub essai3()
Dim CFG() As Variant
x = 1
y = 1
i = 4
j = 12
    F5.Select
    Application.ScreenUpdating = False
    F8.Select
    CFG = F8.Range(Cells(x, y), Cells(i, j))
End Sub

J'ai essayé la function qui retourne le nom de la feuille à partir de son code Name voir sur ce forum mais sans succés!

Une idée pour résoudre mon probléme ?

[Jean-Philippe André]

Salut,

je n'arrive pas à comprendre en quoi un .Select serait nécessaire dans ton code.

L'utilisation des Cells() et Range sans préciser leur feuille d'appartenance pose effectivement problème, mais pouruqoi ne pas passer par :

Code :

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

F8.Range(F8.Cells(x, y), F8.Cells(i, j))

[stdonat]

Merci, vu ainsi le problème et en effet résolu, puisque je me passe allégrement du .select