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 Mise en forme de cellule

Mise en forme de cellule

8 réponses
Avatar
JEAN-PAUL
Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais que:
je selectionne une cellule (A1), en cliquant sur un bouton "matin" , la
cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite avec
"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul
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
ThierryP
Bonjour Jean-Paul,

peut-être ceci à adapter :

Sub Bouton1_QuandClic()
Selection.Interior.ColorIndex = 24
Selection.value="Nuit"
End Sub

Tu crées autant de boutons que de cas et hop !!

Si tu veux la liste des colorindex, cette macro le fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

@+ thierryp


Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais que:
je selectionne une cellule (A1), en cliquant sur un bouton "matin" , la
cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite avec
"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul






Avatar
Jacky
Bonsoir,

Un début de piste ici:
http://cjoint.com/?ljs2WIrPIq

Salutations
JJ

"JEAN-PAUL" a écrit dans le message de
news:%
Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais que:
je selectionne une cellule (A1), en cliquant sur un bouton "matin" , la
cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite avec
"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul






Avatar
JEAN-PAUL
Merci Thierry. C'est exactement ce que je cherchais. Mais en plus, je
voudrais que la cellule supérieure prenne le même fond que sa voisine du
dessous. Toujours dans le même planing.
Ex:
A1 a un fond rouge A2 aussi.
B1 a un fond jaune A2 aussi.
A3 jaune B2
D'autre part, je n'en sors pas avec la palette (index). La macro ne
fonctionne pas ou je suis un ...
Merci
Jean-Paul

"ThierryP" a écrit dans le message de
news:
Bonjour Jean-Paul,

peut-être ceci à adapter :

Sub Bouton1_QuandClic()
Selection.Interior.ColorIndex = 24
Selection.value="Nuit"
End Sub

Tu crées autant de boutons que de cas et hop !!

Si tu veux la liste des colorindex, cette macro le fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

@+ thierryp


Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais
que:


je selectionne une cellule (A1), en cliquant sur un bouton "matin" , la
cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite
avec


"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul








Avatar
ThierryP
De rien Jean-Paul :-))

Pour la macro colorindex, tu choisis la cellule de départ et tu
double-cliques dessus (la macro est déclenchée par l'évènement
double_click).

Pour ta première question, la macro le fait déjà, car tu peux
sélectionner une plage de plusieurs cellules et la lancer. Toutes les
cellules sélectionnées prennent la même valeur et la même couleur.

@+ thierryp

Merci Thierry. C'est exactement ce que je cherchais. Mais en plus, je
voudrais que la cellule supérieure prenne le même fond que sa voisine du
dessous. Toujours dans le même planing.
Ex:
A1 a un fond rouge A2 aussi.
B1 a un fond jaune A2 aussi.
A3 jaune B2
D'autre part, je n'en sors pas avec la palette (index). La macro ne
fonctionne pas ou je suis un ...
Merci
Jean-Paul

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

Bonjour Jean-Paul,

peut-être ceci à adapter :

Sub Bouton1_QuandClic()
Selection.Interior.ColorIndex = 24
Selection.value="Nuit"
End Sub

Tu crées autant de boutons que de cas et hop !!

Si tu veux la liste des colorindex, cette macro le fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

@+ thierryp



Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais



que:

je selectionne une cellule (A1), en cliquant sur un bouton "matin" , la
cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite



avec

"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul













Avatar
JEAN-PAUL
Oui, j'ai bien remarqué avec la selection de plusieurs cellules mais ce que
je désire c'est que la cellule voisine garde son contenu original et que
seule la couleur de fond s'adapte.

Merci
"ThierryP" a écrit dans le message de
news:
De rien Jean-Paul :-))

Pour la macro colorindex, tu choisis la cellule de départ et tu
double-cliques dessus (la macro est déclenchée par l'évènement
double_click).

Pour ta première question, la macro le fait déjà, car tu peux
sélectionner une plage de plusieurs cellules et la lancer. Toutes les
cellules sélectionnées prennent la même valeur et la même couleur.

@+ thierryp

Merci Thierry. C'est exactement ce que je cherchais. Mais en plus, je
voudrais que la cellule supérieure prenne le même fond que sa voisine du
dessous. Toujours dans le même planing.
Ex:
A1 a un fond rouge A2 aussi.
B1 a un fond jaune A2 aussi.
A3 jaune B2
D'autre part, je n'en sors pas avec la palette (index). La macro ne
fonctionne pas ou je suis un ...
Merci
Jean-Paul

"ThierryP" a écrit dans le message
de


news:

Bonjour Jean-Paul,

peut-être ceci à adapter :

Sub Bouton1_QuandClic()
Selection.Interior.ColorIndex = 24
Selection.value="Nuit"
End Sub

Tu crées autant de boutons que de cas et hop !!

Si tu veux la liste des colorindex, cette macro le fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

@+ thierryp



Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais



que:

je selectionne une cellule (A1), en cliquant sur un bouton "matin" , la
cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite



avec

"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul















Avatar
ThierryP
Cette modif fonctionne de la manière suivante :
tu sélectionnes une cellule, tu lances la macro via le bouton, le
cellule sélectionnée prend la couleur et la valeur définie dans la
macro,la cellule du dessus prend la même couleur
Sub Bouton1_QuandClic()
range(ActiveCell,activecell.offset(-1,0)).Interior.ColorIndex = 24
Activecell.value="Nuit"
End Sub

@+ thierryp


Oui, j'ai bien remarqué avec la selection de plusieurs cellules mais ce que
je désire c'est que la cellule voisine garde son contenu original et que
seule la couleur de fond s'adapte.

Merci
"ThierryP" a écrit dans le message de
news:

De rien Jean-Paul :-))

Pour la macro colorindex, tu choisis la cellule de départ et tu
double-cliques dessus (la macro est déclenchée par l'évènement
double_click).

Pour ta première question, la macro le fait déjà, car tu peux
sélectionner une plage de plusieurs cellules et la lancer. Toutes les
cellules sélectionnées prennent la même valeur et la même couleur.

@+ thierryp


Merci Thierry. C'est exactement ce que je cherchais. Mais en plus, je
voudrais que la cellule supérieure prenne le même fond que sa voisine du
dessous. Toujours dans le même planing.
Ex:
A1 a un fond rouge A2 aussi.
B1 a un fond jaune A2 aussi.
A3 jaune B2
D'autre part, je n'en sors pas avec la palette (index). La macro ne
fonctionne pas ou je suis un ...
Merci
Jean-Paul

"ThierryP" a écrit dans le message



de

news:


Bonjour Jean-Paul,

peut-être ceci à adapter :

Sub Bouton1_QuandClic()
Selection.Interior.ColorIndex = 24
Selection.value="Nuit"
End Sub

Tu crées autant de boutons que de cas et hop !!

Si tu veux la liste des colorindex, cette macro le fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

@+ thierryp




Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais



que:


je selectionne une cellule (A1), en cliquant sur un bouton "matin" , la
cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite



avec


"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul















--
@+ thierryp





Avatar
JEAN-PAUL
Génial!
Pile poil ce que je voulais.
Merci infiniment.
JPaul

"ThierryP" a écrit dans le message de
news:
Cette modif fonctionne de la manière suivante :
tu sélectionnes une cellule, tu lances la macro via le bouton, le
cellule sélectionnée prend la couleur et la valeur définie dans la
macro,la cellule du dessus prend la même couleur
Sub Bouton1_QuandClic()
range(ActiveCell,activecell.offset(-1,0)).Interior.ColorIndex = 24
Activecell.value="Nuit"
End Sub

@+ thierryp


Oui, j'ai bien remarqué avec la selection de plusieurs cellules mais ce
que


je désire c'est que la cellule voisine garde son contenu original et que
seule la couleur de fond s'adapte.

Merci
"ThierryP" a écrit dans le message
de


news:

De rien Jean-Paul :-))

Pour la macro colorindex, tu choisis la cellule de départ et tu
double-cliques dessus (la macro est déclenchée par l'évènement
double_click).

Pour ta première question, la macro le fait déjà, car tu peux
sélectionner une plage de plusieurs cellules et la lancer. Toutes les
cellules sélectionnées prennent la même valeur et la même couleur.

@+ thierryp


Merci Thierry. C'est exactement ce que je cherchais. Mais en plus, je
voudrais que la cellule supérieure prenne le même fond que sa voisine
du




dessous. Toujours dans le même planing.
Ex:
A1 a un fond rouge A2 aussi.
B1 a un fond jaune A2 aussi.
A3 jaune B2
D'autre part, je n'en sors pas avec la palette (index). La macro ne
fonctionne pas ou je suis un ...
Merci
Jean-Paul

"ThierryP" a écrit dans le message



de

news:


Bonjour Jean-Paul,

peut-être ceci à adapter :

Sub Bouton1_QuandClic()
Selection.Interior.ColorIndex = 24
Selection.value="Nuit"
End Sub

Tu crées autant de boutons que de cas et hop !!

Si tu veux la liste des colorindex, cette macro le fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As





Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

@+ thierryp




Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais



que:


je selectionne une cellule (A1), en cliquant sur un bouton "matin" ,
la






cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite



avec


"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul















--
@+ thierryp







Avatar
Thierry
Ca fait toujours plaisir d'être l'expert de quelqu'un :-))))) surtout
quand on n'en est pas vraiment un !!!

@+ thierryp

Génial!
Pile poil ce que je voulais.
Merci infiniment.
JPaul

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

Cette modif fonctionne de la manière suivante :
tu sélectionnes une cellule, tu lances la macro via le bouton, le
cellule sélectionnée prend la couleur et la valeur définie dans la
macro,la cellule du dessus prend la même couleur
Sub Bouton1_QuandClic()
range(ActiveCell,activecell.offset(-1,0)).Interior.ColorIndex = 24
Activecell.value="Nuit"
End Sub

@+ thierryp



Oui, j'ai bien remarqué avec la selection de plusieurs cellules mais ce



que

je désire c'est que la cellule voisine garde son contenu original et que
seule la couleur de fond s'adapte.

Merci
"ThierryP" a écrit dans le message



de

news:


De rien Jean-Paul :-))

Pour la macro colorindex, tu choisis la cellule de départ et tu
double-cliques dessus (la macro est déclenchée par l'évènement
double_click).

Pour ta première question, la macro le fait déjà, car tu peux
sélectionner une plage de plusieurs cellules et la lancer. Toutes les
cellules sélectionnées prennent la même valeur et la même couleur.

@+ thierryp



Merci Thierry. C'est exactement ce que je cherchais. Mais en plus, je
voudrais que la cellule supérieure prenne le même fond que sa voisine





du

dessous. Toujours dans le même planing.
Ex:
A1 a un fond rouge A2 aussi.
B1 a un fond jaune A2 aussi.
A3 jaune B2
D'autre part, je n'en sors pas avec la palette (index). La macro ne
fonctionne pas ou je suis un ...
Merci
Jean-Paul

"ThierryP" a écrit dans le message



de


news:



Bonjour Jean-Paul,

peut-être ceci à adapter :

Sub Bouton1_QuandClic()
Selection.Interior.ColorIndex = 24
Selection.value="Nuit"
End Sub

Tu crées autant de boutons que de cas et hop !!

Si tu veux la liste des colorindex, cette macro le fait :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel






As

Boolean)
For i = 0 To 56
ActiveCell.Offset(i, 1).Value = i
ActiveCell.Offset(i, 0).Interior.ColorIndex = i
Next
End Sub

@+ thierryp





Bonsoir,

Dans le but de faire mon planing mensuel de travail, je souhaiterais



que:



je selectionne une cellule (A1), en cliquant sur un bouton "matin" ,







la

cellule A1 prenne un format rouge avec l' indication "nuit".
Avec B1, idem mais avec "apres-midi "et format bleu et ainsi de suite



avec



"nuit", "formation", "repos", "congé", "maladie"...
J'ai tenté en vain avec exelabo, faq, ... mais rien ne me convient.
Merci d'avance

Jean-paul












--

@+ thierryp