Changement de feuille

Le
Guy72
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #17349141
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)))
Jacky
Le #17348531
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" eJctGs$
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



Guy72
Le #17349061
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" uWcDF1$
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" eJctGs$
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







LSteph
Le #17349481
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) ...


Publicité
Poster une réponse
Anonyme