problème range et .cell

Bonjour à tous

Dans un code, j'ai extrait mon problème. J'ai réécris en plus simple :

Mon excel est comme à l'ouverture d'un nouvelle excel, avec juste un bouton de commande. voici mon soucis :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() MsgBox "exemple 1 : " & Sheets("Feuil1").Range("$B$10:$F$10").Address MsgBox "exemple 2 : " & Sheets("Feuil2").Range("$B$10:$F$10").Address MsgBox "exemple 3 : " & Sheets("Feuil1").Range(Cells(10, 2), Cells(10, 6)).Address MsgBox "exemple 4 : " & Sheets("Feuil2").Range(Cells(10, 2), Cells(10, 6)).Address End Sub

---

pourquoi le msgbox 4 ne marche pas??? il faut faire un .activate ou un .select sur la feuil2 avant le 4ième msgbox??

j'ai besoin de cette dernière formulation dans mon développement...

merci d'avance...

Bonjour

le 4eme test echoue car le focus est sur la Feuil1, si tu met le bouton sur la feuille 2 avec le même code c'est le test 3 qui echouera

le problème viens de Cells(10, 2), Cells(10, 6) à l'intérieur du range car chaque cells doit être lié à la même feuille que le Range

comme un exemple vaut mieux qu'un long discourt, surtout que ce n'est pas facile à expliquer

essaye

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() Dim wsh1 As Worksheet, wsh2 As Worksheet Set wsh1 = Worksheets("Feuil1") Set wsh2 = Worksheets("Feuil2") MsgBox "exemple 1 : " & wsh1.Range("$B$10:$F$10").Address MsgBox "exemple 2 : " & wsh2.Range("$B$10:$F$10").Address MsgBox "exemple 3 : " & wsh1.Range(wsh1.Cells(10, 2), wsh1.Cells(10, 6)).Address MsgBox "exemple 4 : " & wsh2.Range(wsh2.Cells(10, 2), wsh2.Cells(10, 6)).Address   Set wsh1 = Nothing: Set wsh2 = Nothing End Sub

---

Nickel! ça marche... je me doutais bien que c'était un truc à la con... du coup mon programme marche comme il faut!!

merci bcp zyhack!!!