Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Modeste
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)))
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)
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
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" a écrit dans le message de news: 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
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
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" a écrit dans le message de news: 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
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" a écrit dans le message de news: 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" a écrit dans le message de news: 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
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
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" a écrit dans le message de news: 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" a écrit dans le message de news: 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
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) ...
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