Bonjour,

J'ai le problème suivant avec l'objet requis par with:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test()
 
        Worksheets("Feuil1").Select
 
        With Worksheets("Feuil2").Range(Cells(1, 1), Cells(5, 1))        
            '...                
        End With
 
End Sub
ne marche pas ..
ça ne passe pas la ligne With Worksheets ...

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
et :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test()
 
        Worksheets("Feuil2").Select
 
        With Worksheets("Feuil2").Range(Cells(1, 1), Cells(5, 1))        
            '...                
        End With
 
End Sub
marche.

J'aimerais ne pas être obligé de faire un .activate ou un .select sur la Feuil2 afin que le With marche (pour la rapidité d'exécution).

Je n'ai pas fait d'erreur dans l'écriture de l'objet du With, et donc je ne comprends pas pourquoi il ne veut pas le prendre.

Est-ce intrinsèque au With , c'est-à-dire, faut-il absolument être dans la feuille active pour utiliser un With ? ça me paraît étonnant.

Merci si vous avez une solution.

A noter que:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub test()
 
        Worksheets("Feuil1").Select
 
        With Worksheets("Feuil2").Range("a1:a5")        
            '...                
        End With
 
End Sub
marche, mais je n'utilise pas ce système de notation pour les cellules