Changement de feuille

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

J'ai cette ligne dans mon code.
Range("AW4:BG4").Select
Que dois-je rajouter pour la même chose, mais en Feuil2 ?

l'instruction telle que décrite est non qualifiée et s'applique à la feuille active
Sub guy()
Sheets("Feuil1").Activate
Range("AW4:BG4").Select
MsgBox Selection.Address(True, True)
Sheets("Feuil2").Activate
Range("AW4:BG4").Select
MsgBox Selection.Address(True, True)

End Sub









--
--
@+
;o)))

Bonsoir,

Pour appliquer la méthode "sélection" souvent inutile (LSteph ne dira pas le
contraire) la feuille doit être active
Donc
Sheets("Feuil2").Activate
Range("AW4:BG4").Select

Sauf si ton code est dans un module de feuille

--
Salutations
JJ


"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
eJctGs$HJHA.4232@TK2MSFTNGP03.phx.gbl...

Bonjour,
J'ai cette ligne dans mon code.
Range("AW4:BG4").Select
Que dois-je rajouter pour la même chose, mais en Feuil2 ?
--
Cordialement
Guy

Oui, ça se trouve dans les code de la Feuil1.
J'ai les lignes de code suivantes, pour tout ce qui concerne ces cellules,

1er code : Range("AW4:BG4").Select
2ème code : Range("AW4:BG4").Select
3ème code: For Each XCELL In [AW4,AY4,BA4,BC4,BE4,BG4,BI4,BK4].Cells
4ème code : If Intersect(Target, Range("AW4:BK4")) Is Nothing Then Exit Sub

j'essais de trouver une solution en changeant de feuille car ces cellules
sont masquées et mon code suivant bloc à : Loop Until XFIND.Address =
XCELL.Address

Private Sub Nouvelle_Click()
For Each XCELL In [AW4,AY4,BA4,BC4,BE4,BG4,BI4,BK4].Cells
Do
XCELL.Value = Int(8 * Rnd) + 1
Set XFIND = Range([AW4], XCELL).Find(XCELL, after:=XCELL, LookIn:=xlValues,
_
lookat:=xlWhole)
Loop Until XFIND.Address = XCELL.Address
Next XCELL
End Sub

Si je pouvais les masquer, je préférerais.

Merci de ton aide.
--
Cordialement
Guy
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
uWcDF1$HJHA.3548@TK2MSFTNGP05.phx.gbl...

Bonsoir,

Pour appliquer la méthode "sélection" souvent inutile (LSteph ne dira pas
le contraire) la feuille doit être active
Donc
Sheets("Feuil2").Activate
Range("AW4:BG4").Select

Sauf si ton code est dans un module de feuille

--
Salutations
JJ


"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
eJctGs$HJHA.4232@TK2MSFTNGP03.phx.gbl...

Bonjour,
J'ai cette ligne dans mon code.
Range("AW4:BG4").Select
Que dois-je rajouter pour la même chose, mais en Feuil2 ?
--
Cordialement
Guy

Bonsoir Jacky,

Certes !..je dirais même presque toujours!
Vu ce que je lis dans la suite confirmation, tu fais bien de le remarquer!

;-)


Amicales salutations

--
lSteph


Jacky a écrit :
... "sélection" souvent inutile (LSteph ne dira pas le

contraire) ...