Bonjour,
J'utlise la macro suivante pour surligner. Le probl=E8me c'est que je
perd le copier/coller. Que faut-il ajouter pour =E9viter cette g=EAne?
Merci d'avance pour les r=E9ponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long
If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then
Application.ScreenUpdating =3D False
Range("a3:h320").Interior.ColorIndex =3D xlNone
iR =3D ActiveCell.Row
Range("a" & iR & ":h" & iR).Interior.ColorIndex =3D 37
End If
End Sub
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
delta7253
Bonjour,
Est-ce que tu as essayé de mettre "iR = ActiveCell.Row" juste après le "then" ?
a écrit dans le message de news:
Bonjour, J'utlise la macro suivante pour surligner. Le problème c'est que je perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iR As Long If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then Application.ScreenUpdating = False Range("a3:h320").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37 End If End Sub
Bonjour,
Est-ce que tu as essayé de mettre "iR = ActiveCell.Row" juste après le
"then" ?
<jpierrethillard@orange.fr> a écrit dans le message de news:
e308c3da-f27f-4e2d-a14f-03972c1e798c@h11g2000prf.googlegroups.com...
Bonjour,
J'utlise la macro suivante pour surligner. Le problème c'est que je
perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long
If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then
Application.ScreenUpdating = False
Range("a3:h320").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37
End If
End Sub
Est-ce que tu as essayé de mettre "iR = ActiveCell.Row" juste après le "then" ?
a écrit dans le message de news:
Bonjour, J'utlise la macro suivante pour surligner. Le problème c'est que je perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iR As Long If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then Application.ScreenUpdating = False Range("a3:h320").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37 End If End Sub
LSteph
Bonjour,
Remplace ce code Utilise ceci et une mefc
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveWorkbook.Names("macell").RefersTo = Target End Sub
Sélectionne b3:h20 dans la MEFC
laformuleest =LIGNE(B3)=LIGNE(macell)
Cordialement.
-- lSteph
Bonjour, J'utlise la macro suivante pour surligner. Le problème c'est que je perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iR As Long If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then Application.ScreenUpdating = False Range("a3:h320").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37 End If End Sub
Bonjour,
Remplace ce code
Utilise ceci et une mefc
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names("macell").RefersTo = Target
End Sub
Sélectionne b3:h20
dans la MEFC
laformuleest =LIGNE(B3)=LIGNE(macell)
Cordialement.
--
lSteph
Bonjour,
J'utlise la macro suivante pour surligner. Le problème c'est que je
perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long
If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then
Application.ScreenUpdating = False
Range("a3:h320").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveWorkbook.Names("macell").RefersTo = Target End Sub
Sélectionne b3:h20 dans la MEFC
laformuleest =LIGNE(B3)=LIGNE(macell)
Cordialement.
-- lSteph
Bonjour, J'utlise la macro suivante pour surligner. Le problème c'est que je perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iR As Long If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then Application.ScreenUpdating = False Range("a3:h320").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37 End If End Sub
jpierrethillard
Bonsoir delta, je viens d'essayer ça ne change rien.
JP
On 27 jan, 17:42, "delta7253" wrote:
Bonjour,
Est-ce que tu as essayé de mettre "iR = ActiveCell.Row" juste après le "then" ?
a écrit dans le message de news:
Bonjour, J'utlise la macro suivante pour surligner. Le problème c'est que je perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iR As Long If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then Application.ScreenUpdating = False Range("a3:h320").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37 End If End Sub
Bonsoir delta,
je viens d'essayer ça ne change rien.
JP
On 27 jan, 17:42, "delta7253" <didierblan...@club-internet.fr> wrote:
Bonjour,
Est-ce que tu as essayé de mettre "iR = ActiveCell.Row" juste après le
"then" ?
<jpierrethill...@orange.fr> a écrit dans le message de news:
e308c3da-f27f-4e2d-a14f-03972c1e7...@h11g2000prf.googlegroups.com...
Bonjour,
J'utlise la macro suivante pour surligner. Le problème c'est que je
perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long
If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then
Application.ScreenUpdating = False
Range("a3:h320").Interior.ColorIndex = xlNone
iR = ActiveCell.Row
Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37
End If
End Sub
Bonsoir delta, je viens d'essayer ça ne change rien.
JP
On 27 jan, 17:42, "delta7253" wrote:
Bonjour,
Est-ce que tu as essayé de mettre "iR = ActiveCell.Row" juste après le "then" ?
a écrit dans le message de news:
Bonjour, J'utlise la macro suivante pour surligner. Le problème c'est que je perd le copier/coller. Que faut-il ajouter pour éviter cette gêne?
Merci d'avance pour les réponses
JP
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim iR As Long If Not Intersect(ActiveCell, [a3:h320]) Is Nothing Then Application.ScreenUpdating = False Range("a3:h320").Interior.ColorIndex = xlNone iR = ActiveCell.Row Range("a" & iR & ":h" & iR).Interior.ColorIndex = 37 End If End Sub
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph,
Je vien d'essayer mais j'ai un bug en ligne:
ActiveWorkbook.Names("macell").RefersTo = Target
JP
jpierrethillard
lSteph
Bien cette fois-ci c'est oK. MAis, il y a un mais. Je viens de voir que le CTRL+Z ne fonctionne plus non plus. Je regarde. de mon coté pour voir si le problème ne vient pas d'ailleurs et je te dis.
Merci JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph,
Je vien d'essayer mais j'ai un bug en ligne:
ActiveWorkbook.Names("macell").RefersTo = Target
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
lSteph
Bien cette fois-ci c'est oK. MAis, il y a un mais.
Je viens de voir que le CTRL+Z ne fonctionne plus non plus.
Je regarde. de mon coté pour voir si le problème ne vient pas
d'ailleurs et je te dis.
Merci
JP
On 27 jan, 18:34, LSteph <lecocost...@frite.fr> wrote:
Il faut avoir déjà défini un nom macell
mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target
End Sub
Bien cette fois-ci c'est oK. MAis, il y a un mais. Je viens de voir que le CTRL+Z ne fonctionne plus non plus. Je regarde. de mon coté pour voir si le problème ne vient pas d'ailleurs et je te dis.
Merci JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph,
Je vien d'essayer mais j'ai un bug en ligne:
ActiveWorkbook.Names("macell").RefersTo = Target
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
jpierrethillard
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci clavier y compris. Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph,
Je vien d'essayer mais j'ai un bug en ligne:
ActiveWorkbook.Names("macell").RefersTo = Target
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci
clavier y compris.
Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph <lecocost...@frite.fr> wrote:
Il faut avoir déjà défini un nom macell
mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target
End Sub
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci clavier y compris. Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph,
Je vien d'essayer mais j'ai un bug en ligne:
ActiveWorkbook.Names("macell").RefersTo = Target
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
LSteph
Re,Bonjour,
l'annulation fonctionne toujours! MAIS Ce qu'il faut savoir en revanche c'est que lorsqu'on execute une macro une fois celle-ci terminée elle rend la main à l'application et depuis qu'elle a rendu la main,il n'y a eu aucune action donc il n'y a rien à annuler.
@+
lSteph
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci clavier y compris. Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph, Je vien d'essayer mais j'ai un bug en ligne: ActiveWorkbook.Names("macell").RefersTo = Target JP- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -
Re,Bonjour,
l'annulation fonctionne toujours!
MAIS
Ce qu'il faut savoir en revanche
c'est que lorsqu'on execute une macro
une fois celle-ci terminée elle rend la main à l'application et depuis
qu'elle a rendu la main,il n'y a eu aucune action donc il n'y a rien à
annuler.
@+
lSteph
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci
clavier y compris.
Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph <lecocost...@frite.fr> wrote:
Il faut avoir déjà défini un nom macell
mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target
End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph,
Je vien d'essayer mais j'ai un bug en ligne:
ActiveWorkbook.Names("macell").RefersTo = Target
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
l'annulation fonctionne toujours! MAIS Ce qu'il faut savoir en revanche c'est que lorsqu'on execute une macro une fois celle-ci terminée elle rend la main à l'application et depuis qu'elle a rendu la main,il n'y a eu aucune action donc il n'y a rien à annuler.
@+
lSteph
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci clavier y compris. Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph, Je vien d'essayer mais j'ai un bug en ligne: ActiveWorkbook.Names("macell").RefersTo = Target JP- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -
jpierrethillard
lSteph
Ok, merci pour tout!
JP
On 27 jan, 19:18, LSteph wrote:
Re,Bonjour,
l'annulation fonctionne toujours! MAIS Ce qu'il faut savoir en revanche c'est que lorsqu'on execute une macro une fois celle-ci terminée elle rend la main à l'application et depuis qu'elle a rendu la main,il n'y a eu aucune action donc il n'y a rien à annuler.
@+
lSteph
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci clavier y compris. Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph, Je vien d'essayer mais j'ai un bug en ligne: ActiveWorkbook.Names("macell").RefersTo = Target JP- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
lSteph
Ok, merci pour tout!
JP
On 27 jan, 19:18, LSteph <lecocost...@frite.fr> wrote:
Re,Bonjour,
l'annulation fonctionne toujours!
MAIS
Ce qu'il faut savoir en revanche
c'est que lorsqu'on execute une macro
une fois celle-ci terminée elle rend la main à l'application et depuis
qu'elle a rendu la main,il n'y a eu aucune action donc il n'y a rien à
annuler.
@+
lSteph
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci
clavier y compris.
Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph <lecocost...@frite.fr> wrote:
Il faut avoir déjà défini un nom macell
mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target
End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph,
Je vien d'essayer mais j'ai un bug en ligne:
ActiveWorkbook.Names("macell").RefersTo = Target
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
l'annulation fonctionne toujours! MAIS Ce qu'il faut savoir en revanche c'est que lorsqu'on execute une macro une fois celle-ci terminée elle rend la main à l'application et depuis qu'elle a rendu la main,il n'y a eu aucune action donc il n'y a rien à annuler.
@+
lSteph
lSteph,
Je confirme la fonction annulée ne fonctionne plus. Icone et raccourci clavier y compris. Dur, dur. Lol!
JP
On 27 jan, 18:34, LSteph wrote:
Il faut avoir déjà défini un nom macell mea culpa essaie ainsi:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names.Add Name:="macell", RefersTo:=Target End Sub
'dans la mefc dans format choisis un motif
@+
Bonsoir lsteph, Je vien d'essayer mais j'ai un bug en ligne: ActiveWorkbook.Names("macell").RefersTo = Target JP- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -