Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro selection coouleur et déplacement de cellule

Macro selection coouleur et déplacement de cellule

8 réponses
Avatar
Golgevit Michel
Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose suivante :

1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher quelle que
soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de manière
justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel
Signaler un problème avec ce contenu

8 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
LeSteph
Bonjour,
Valable sauf dernière ligne ou dernière colonne

Sub colorok()
With ActiveCell
Rows(.Row).Interior.ColorIndex = 6
.Offset(0, 1) = "OK"
.Offset(1, 0).Select
End With
End Sub

LeSteph

"Golgevit Michel" a écrit dans le message de
news:40d3f42c$0$29200$
Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose suivante :

1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher quelle
que

soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de
manière

justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel




Avatar
Golgevit Michel
Goaaaaaaaaaaaaaaaaaaal !!

Merci LeSteph...

"LeSteph" a écrit dans le message de news:
40d3f7c6$0$296$
Bonjour,
Valable sauf dernière ligne ou dernière colonne

Sub colorok()
With ActiveCell
Rows(.Row).Interior.ColorIndex = 6
.Offset(0, 1) = "OK"
.Offset(1, 0).Select
End With
End Sub

LeSteph

"Golgevit Michel" a écrit dans le message de
news:40d3f42c$0$29200$
Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose suivante
:



1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher quelle
que

soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de
manière

justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel








Avatar
Philippe.R
Bonjour Michel,
Ceci convient il ?

Sub coulok()
ActiveCell.EntireRow.Interior.ColorIndex = 6
ActiveCell.Offset(0, 1).Value = "OK"
ActiveCell.Offset(1, 0).Select
End Sub

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

"Golgevit Michel" a écrit dans le message de
news:40d3f42c$0$29200$
Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose suivante :

1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher quelle que
soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de manière
justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel




Avatar
LeSteph
C'est un plaisir
Sinon on devrait pouvoir différemment revenir
sur la première colonne/ligne si on est sur la dernière
mais doute que ce soit souhaitable.

:-)
LeSteph

"Golgevit Michel" a écrit dans le message de
news:40d3f8f7$0$29199$
Goaaaaaaaaaaaaaaaaaaal !!

Merci LeSteph...

"LeSteph" a écrit dans le message de news:
40d3f7c6$0$296$
Bonjour,
Valable sauf dernière ligne ou dernière colonne

Sub colorok()
With ActiveCell
Rows(.Row).Interior.ColorIndex = 6
.Offset(0, 1) = "OK"
.Offset(1, 0).Select
End With
End Sub

LeSteph

"Golgevit Michel" a écrit dans le message
de


news:40d3f42c$0$29200$
Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose
suivante



:

1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher
quelle



que
soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de
manière

justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel












Avatar
sabatier
utilise plutôt ColorIndex = 36, michel : il est beaucoup plus tendre aux
yeux (c'est isabelle qui me l'a dit...)

jps



Golgevit Michel a écrit:
Goaaaaaaaaaaaaaaaaaaal !!

Merci LeSteph...

"LeSteph" a écrit dans le message de news:
40d3f7c6$0$296$

Bonjour,
Valable sauf dernière ligne ou dernière colonne

Sub colorok()
With ActiveCell
Rows(.Row).Interior.ColorIndex = 6
.Offset(0, 1) = "OK"
.Offset(1, 0).Select
End With
End Sub

LeSteph

"Golgevit Michel" a écrit dans le message de
news:40d3f42c$0$29200$

Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose suivante


:


1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher quelle


que

soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de


manière

justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel












Avatar
LeSteph
Bonjour Jps,

C'est vrai le 6 flashe un peu,
aujourd'hui le ciel est plutôt 15 à tendance 24
mais avec un peu de 8 de ci de là.
:-)

"sabatier" a écrit dans le
message de news:
utilise plutôt ColorIndex = 36, michel : il est beaucoup plus tendre aux
yeux (c'est isabelle qui me l'a dit...)

jps



Golgevit Michel a écrit:
Goaaaaaaaaaaaaaaaaaaal !!

Merci LeSteph...

"LeSteph" a écrit dans le message de news:
40d3f7c6$0$296$

Bonjour,
Valable sauf dernière ligne ou dernière colonne

Sub colorok()
With ActiveCell
Rows(.Row).Interior.ColorIndex = 6
.Offset(0, 1) = "OK"
.Offset(1, 0).Select
End With
End Sub

LeSteph

"Golgevit Michel" a écrit dans le message
de



news:40d3f42c$0$29200$

Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose
suivante





:


1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher
quelle





que

soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de


manière

justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel















Avatar
sabatier
salut LeSteph
tu me fais rire avec tes chiffres que je vais m'empresser de jouer au
tiercé et si je gagne, fifty/fifty...je veux dire fifity pour moi et
fifty pour...
jps

LeSteph a écrit:
Bonjour Jps,

C'est vrai le 6 flashe un peu,
aujourd'hui le ciel est plutôt 15 à tendance 24
mais avec un peu de 8 de ci de là.
:-)

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

utilise plutôt ColorIndex = 36, michel : il est beaucoup plus tendre aux
yeux (c'est isabelle qui me l'a dit...)

jps



Golgevit Michel a écrit:

Goaaaaaaaaaaaaaaaaaaal !!

Merci LeSteph...

"LeSteph" a écrit dans le message de news:
40d3f7c6$0$296$


Bonjour,
Valable sauf dernière ligne ou dernière colonne

Sub colorok()
With ActiveCell
Rows(.Row).Interior.ColorIndex = 6
.Offset(0, 1) = "OK"
.Offset(1, 0).Select
End With
End Sub

LeSteph

"Golgevit Michel" a écrit dans le message


de



news:40d3f42c$0$29200$


Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose


suivante




:


1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher


quelle




que


soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de


manière


justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel

















Avatar
LeSteph
Joues les plutôt au Loto
il n'y aura que 18 partants
donc tapes plutôt sur le 6 (Jaune)
c'est C.PIEUX il ne devrait
pas être loin des 5 premières Cases.
Mais avec ce temps là, à Auteuil,
un tocard pourrait faire surprise.
:-)
LeSTeph


"sabatier" a écrit dans le
message de news:
salut LeSteph
tu me fais rire avec tes chiffres que je vais m'empresser de jouer au
tiercé et si je gagne, fifty/fifty...je veux dire fifity pour moi et
fifty pour...
jps

LeSteph a écrit:
Bonjour Jps,

C'est vrai le 6 flashe un peu,
aujourd'hui le ciel est plutôt 15 à tendance 24
mais avec un peu de 8 de ci de là.
:-)

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

utilise plutôt ColorIndex = 36, michel : il est beaucoup plus tendre aux
yeux (c'est isabelle qui me l'a dit...)

jps



Golgevit Michel a écrit:

Goaaaaaaaaaaaaaaaaaaal !!

Merci LeSteph...

"LeSteph" a écrit dans le message de news:
40d3f7c6$0$296$


Bonjour,
Valable sauf dernière ligne ou dernière colonne

Sub colorok()
With ActiveCell
Rows(.Row).Interior.ColorIndex = 6
.Offset(0, 1) = "OK"
.Offset(1, 0).Select
End With
End Sub

LeSteph

"Golgevit Michel" a écrit dans le
message






de



news:40d3f42c$0$29200$


Bonjour à tous.
Merci de votre aide

Je suis sur une cellule variable et je cherche à faire la chose


suivante




:


1 Mettre la ligne de la cellule en couleur 6 (jaune)
2 Selectionner la colonne à droite de la cellule initialement
selectionnée
3 inscrire dans cette cellule "OK"
4 revenir sur la cellule initiale
5 Aller à la ligne suivante
Et le tout de manière variable, c a dire que le tout doit marcher


quelle




que


soit l'emplacement de ma cellule initiale.

Exemple :
Je selectionne la case A1 et j'active la macro :
1 La ligne A est mise en couleur
3 Dans la cellule A2, s'inscrit le texte "OK"
5 Placement du curseur dans la cellule B1
Et voila
Merci de votre aide car je n'arrive pas à lui indiquer ce procédé de


manière


justement variable (cad quelle que soit l'emplacement de ma cellule
initiale)

A bientôt
Michel