Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Déplacer une cellule colorée

Déplacer une cellule colorée

9 réponses
Avatar
Florian
Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les
flèches jouxtant le pavé num et choisir la vitesse de déplacement de
celle-ci.
Merci beaucoup
Flo riant
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
Philippe.R
Bonsoir Florian,
Dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:
Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les flèches jouxtant le pavé num
et choisir la vitesse de déplacement de celle-ci.
Merci beaucoup
Flo riant




Avatar
Philippe.R
Re,
Voici une version améliorée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
'suppose qu'aucune couleur de fond n'ait été appliquée
'auparavant à la zone parcourue
ActiveCell.Interior.ColorIndex = 3
On Error Resume Next
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:
Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les flèches jouxtant le pavé num
et choisir la vitesse de déplacement de celle-ci.
Merci beaucoup
Flo riant




Avatar
Florian
Bonjour Philippe et merci pour ta célérité, mais la procédure plante
dès que l'on arrive au bord.
Flo riant


"Philippe.R" a écrit dans le message de news:

Bonsoir Florian,
Dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:

Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les
flèches jouxtant le pavé num et choisir la vitesse de déplacement de
celle-ci.
Merci beaucoup
Flo riant







Avatar
Florian
Euh, merci Philippe, mais si on part du bord, il y a parfois plusieurs
cellules, et parfois, on se trouve avec plusieurs cellules rouges.
Flo riant

"Philippe.R" a écrit dans le message de news:

Re,
Voici une version améliorée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
'suppose qu'aucune couleur de fond n'ait été appliquée
'auparavant à la zone parcourue
ActiveCell.Interior.ColorIndex = 3
On Error Resume Next
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:

Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les
flèches jouxtant le pavé num et choisir la vitesse de déplacement de
celle-ci.
Merci beaucoup
Flo riant







Avatar
Philippe.R
L'autre fonctionne, sous réserve de corriger la ligne :

ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

par :

ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:
Bonjour Philippe et merci pour ta célérité, mais la procédure plante
dès que l'on arrive au bord.
Flo riant


"Philippe.R" a écrit dans le message de news:

Bonsoir Florian,
Dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
ActiveCell.Interior.ColorIndex = 3
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:

Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les flèches jouxtant le pavé
num et choisir la vitesse de déplacement de celle-ci.
Merci beaucoup
Flo riant











Avatar
Philippe.R
Re,

Il faut juste, à la fin, remplacer :

ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

par :

ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:
%
Euh, merci Philippe, mais si on part du bord, il y a parfois plusieurs cellules, et parfois, on se
trouve avec plusieurs cellules rouges.
Flo riant

"Philippe.R" a écrit dans le message de news:

Re,
Voici une version améliorée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
'suppose qu'aucune couleur de fond n'ait été appliquée
'auparavant à la zone parcourue
ActiveCell.Interior.ColorIndex = 3
On Error Resume Next
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:

Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les flèches jouxtant le pavé
num et choisir la vitesse de déplacement de celle-ci.
Merci beaucoup
Flo riant











Avatar
Florian
Merci beaucoup et bonne soirée
Flo riant

"Philippe.R" a écrit dans le message de news:
%
Re,

Il faut juste, à la fin, remplacer :

ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

par :

ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:
%
Euh, merci Philippe, mais si on part du bord, il y a parfois plusieurs
cellules, et parfois, on se trouve avec plusieurs cellules rouges.
Flo riant

"Philippe.R" a écrit dans le message de news:

Re,
Voici une version améliorée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
'suppose qu'aucune couleur de fond n'ait été appliquée
'auparavant à la zone parcourue
ActiveCell.Interior.ColorIndex = 3
On Error Resume Next
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:

Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec
les flèches jouxtant le pavé num et choisir la vitesse de déplacement
de celle-ci.
Merci beaucoup
Flo riant














Avatar
Philippe.R
C'était avec plaisir, Florian !
--
Amicales Salutations

"Florian" a écrit dans le message de news:
Merci beaucoup et bonne soirée
Flo riant

"Philippe.R" a écrit dans le message de news:
%
Re,

Il faut juste, à la fin, remplacer :

ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

par :

ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:
%
Euh, merci Philippe, mais si on part du bord, il y a parfois plusieurs cellules, et parfois, on se
trouve avec plusieurs cellules rouges.
Flo riant

"Philippe.R" a écrit dans le message de news:

Re,
Voici une version améliorée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
'suppose qu'aucune couleur de fond n'ait été appliquée
'auparavant à la zone parcourue
ActiveCell.Interior.ColorIndex = 3
On Error Resume Next
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:

Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec les flèches jouxtant le pavé
num et choisir la vitesse de déplacement de celle-ci.
Merci beaucoup
Flo riant


















Avatar
Florian
Je reconnais le très grand Philippe.R n'en déplaise à JPS ;-)
Bonne soirée
Flo riant


"Philippe.R" a écrit dans le message de news:

C'était avec plaisir, Florian !
--
Amicales Salutations

"Florian" a écrit dans le message de news:

Merci beaucoup et bonne soirée
Flo riant

"Philippe.R" a écrit dans le message de news:
%
Re,

Il faut juste, à la fin, remplacer :

ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

par :

ActiveCell.Offset(0, -1).Interior.ColorIndex = xlNone

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:
%
Euh, merci Philippe, mais si on part du bord, il y a parfois plusieurs
cellules, et parfois, on se trouve avec plusieurs cellules rouges.
Flo riant

"Philippe.R" a écrit dans le message de news:

Re,
Voici une version améliorée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MPFE le 15/11/2004 Philippe.R
'suppose qu'aucune couleur de fond n'ait été appliquée
'auparavant à la zone parcourue
ActiveCell.Interior.ColorIndex = 3
On Error Resume Next
ActiveCell.Offset(-1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(-1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 1).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, 0).Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Interior.ColorIndex = xlNone
ctiveCell.Offset(0, -1).Interior.ColorIndex = xlNone
End Sub

--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Florian" a écrit dans le message de news:

Bonsoir
Est-ce possible ?
Je souhaite faire déplacer une cellule ex : A1 de couleur rouge avec
les flèches jouxtant le pavé num et choisir la vitesse de déplacement
de celle-ci.
Merci beaucoup
Flo riant