Application.ScreenUpdating et Select
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:
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:
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:
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 ?
