Discussion :

[Colasa]

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 :

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

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...

[zyhack]

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 :

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

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

[Colasa]

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!!!