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 ?