Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Colorer l'intérieur d'une cellule sélectionnée

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

ReneDav14000

XLDnaute Occasionnel
Bonjour le forum,
Pourriez-vous me dire où dois-je insérer cette instruction dans le code ci-dessous s'il vous plaît ?
L'instruction est censée colorer en vert la cellule sélectionnée ensuite je dois ajouter une autre instruction pour annuler la couleur lorsqu'une autre cellule est sélectionnée.
Je vous en remercie par avance

Instruction :
VB: 
Selection.Interior.Color = RGB(0,255,0) 'Vert'

Code où doit-être insérée cette instruction :
Code: 
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pos As Integer
Dim sem As String
    Application.ScreenUpdating = False
    
    If Target.Row = 5 Or Target.Row = 14 Then 'Ligne des mois
        Range("B24") = Target.Offset(0, -1).Value 'maj mois
        Range("B26").Value = Target.Offset(0, -1).Value 'début mois choisi
    End If
    
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row >= 7 And Target.Row <= 21 Then
        Range("B24") = Target.Value  'maj mois
        
        sem = CStr(Application.IsoWeekNum(Target.Value)) 'semaine
        
        Range("B26").Value = DateSerial(Year(Target.Value), Month(Target.Value), 1)  ' début mois choisi
        
        With Worksheets(sem)  'sélection feuille
            .Visible = True
            .Activate
            pos = 1 'sélection date
            While .Range("A2").Offset(0, pos).Value <> Target.Value
                pos = pos + 1
            Wend
            .Range("A2").Offset(0, pos).Activate 'position colonne
        End With
    End If
    Application.ScreenUpdating = True
End Sub
 
Trier par date Trier par votes
Bonjour,
une possibilité, parmi plein d'autres, qui a l'avantage de mémoriser la cellule à "dépeindre", en supposant que les cellules Z1 et Z2 soient "libres" (sinon adapter avec deux autres cellules, éventuellement dans une autre feuille dédiée) :
VB: 
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pos As Integer
Dim sem As String
Dim AncienneAdresse, AncienneCouleur
   
    Application.ScreenUpdating = False
   
    If Target.Row = 5 Or Target.Row = 14 Then 'Ligne des mois
        Range("B24") = Target.Offset(0, -1).Value 'maj mois
        Range("B26").Value = Target.Offset(0, -1).Value 'début mois choisi
    End If
   
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Row >= 7 And Target.Row <= 21 Then
        Range("B24") = Target.Value  'maj mois
       
        sem = CStr(Application.IsoWeekNum(Target.Value)) 'semaine
       
        Range("B26").Value = DateSerial(Year(Target.Value), Month(Target.Value), 1)  ' début mois choisi
       
        With Worksheets(sem)  'sélection feuille
            .Visible = True
            .Activate
            pos = 1 'sélection date
            While .Range("A2").Offset(0, pos).Value <> Target.Value
                pos = pos + 1
            Wend
            .Range("A2").Offset(0, pos).Activate 'position colonne
        End With
    End If
    Target.Interior.Color=RGB(0,255,0)
    AncienneAdresse=Range("Z1").value
    AncienneCouleur=Range("Z2").value
    if Range("Z1") <>"" Then Range(AncienneAdresse).Interior.Color=AncienneCouleur
    AncienneAdresse=Target.Address
   Range("Z1")=AncienneAdresse   
 AncienneCouleur=Target.Interior.Color
Range("Z2")=AncienneCouleur
    Application.ScreenUpdating = True
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Bonsoir Gégé-45550,

Merci pour votre participation. Toutefois, cela ne fonctionne pas comme je le souhaiterai.
Dans la feuille "Calendrier" je clique sur une date qui ouvre la feuille où se trouve cette date, et c'est précisément dans cette feuille que je souhaite que la cellule sélectionné soit mise en vert.
Merci par avance
Voici le fichier
 

Pièces jointes

Vote positif 0 Vote négatif
bonsoir @ReneDav14000
là encore la conception est bien mal réfléchi
déjà quand je sélectionne ailleurs que dans les carré du calendirier ça déclenche forcement une erreur
soit parce qu'elle est vide soit par ce qu'elle vaut zero (voir capture plus bas )
corriger cela reviendrait a repérer chaque carré mois en les nommant par exemple (je parle de name)
ensuite
quelle est l'utilité de colorer la cellule dans le carré mois choisi puisque ca te conduit directement vers la feuille semaine correspondante



tu devrais réfléchir un peu plus dans la conception avant de te lancer dans sa construction
je ne vais pas parler des mises en forme conditionnelles bien trop nombreuse a mon goût
quand j'ai ouvert ton fichier mon écran a fait sapin de noel il m'a créé 52 feuilles
j'ai cru faire une crise d'épilepsie

1° sans code on peut très bien faire un seul carré calendrier pour tout les mois et années

2° les mise en forme conditionnelles pour les fériés ou date qui te sont particulieres
tu n'en a besoins de 3 ou 4 pas des dizaines

3° la création des feuilles ne pourrait être fait que si clique dans un carré calendrier
(on évite ainsi d'alourdir le fichier de plus de 50 feuilles)

4°les tableau cachés est ce bien nécessaire, alors que déterminer le scrollarea de la feuille suffirait
et ça te permettrait quand même d'y avoir accès pour d’éventuelles modifications

etc...etc....

sinon pour faire un switch couleur sur cellule a la sélection se serait très simple (mais je me répète dans ton contexte inutile sauf erreur de ma part )
 
Vote positif 0 Vote négatif
Bonjour GeGe, bonjour patrick,
Merci pour vos réponses.
GeGe jee regarderai le fichier plus tard car je sais sur mon téléphone (désolé pour le manque d'accents). Merci par avance pour ton investissement.
Patrick, j'ai besoin des 52 semaines (feuilles) afin de conserver une trace des informations au cours d'une année. Pour le calendrier sur 12 mois la demande hiérarchique a été faite comme ça. Je devais également limiter le code vba, d'où les Mfc. Ce n'est pas le carré du clic qui doit être coloré mais le jour correspondant au clic dans une des autres feuilles. Les tableaux sont ainsi cachés pour le moment, en phase finale je procéderai autrement pour les données
Merci toutefois pour tes remarques.
Je reviendrai plus tard car je suis en soin.
Bonne journée à vous deux
 
Vote positif 0 Vote négatif
Bonjour à tous,

Une année, 52 onglets! 😱 C'est déjà pas bon comme conception!!
Voici un exemple très simplet de planning hebdo sur une année :
* 2 onglets : un pour l'affichage d'une semaine, l'autre pour enregistrer les données
* 6 lignes de code pour enregistrer et/ou afficher les données au changement du n° de la semaine. 6 lignes, pas plus.

L'exemple joint reste très simplet et simpliste (mais fonctionnel) : un jour=2 cases (matin et aprèm) mais il serait assez simple d'ajouter des cases

Les avantages du principe de regroupement des données sur 1 seule feuille :
* fichier moins lourd qu'avec 52 onglets
* formules simples pour faire des bilans annuel d'horaires ou des comptages, ou Tcd très basique

P.
 

Pièces jointes

Vote positif 0 Vote négatif
mmmouais..... ben ta hiérarchie réfléchie encore moins que toi 🤣
ce fichier ne tiendra pas la route
la consommation par MFC est énorme
 
Vote positif 0 Vote négatif
re
de plus j'avais oublié(et surtout ça repond a ta question )
la coloration par le interior.color en vba ou par la palette couleur dans excel n'est pas possible quand ces cellule ont une MFC

il faut une astuce

au cas ou ça t'intéresserait de travailler proprement voici un calendrier sur feuille
décanté sous deux versions
version 1 xlsx
version 2 xlsm avec l'astuce pour colorer le jour sélectionné même sur les cellule avec MFC

démonstration



et pour le vba je n'ai en tout et pour tout ceci comme code dans la feuille
VB: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Not Intersect(Target, [C6:i11]) Is Nothing Then
            If ActiveCell <> "" Then [i2] = ActiveCell Else [i2] = ""
        Else
          [i2] = ""
        End If
    'exemple d' action  à  faire sur selection du jour
    [c15] = [i2]
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
patricktoulon à dit:
mmmouais..... ben ta hiérarchie réfléchie encore moins que toi 🤣
ce fichier ne tiendra pas la route
la consommation par MFC est énorme
Cliquez pour agrandir...
On ne leur demande pas de réfléchir mais de donner des ordres, souvent absurdes, j'en conviens mais pauvres subalternes que nous sommes, nous devons obéir sans trop réfléchir, car chez nous, commencer à réfléchir c'est déjà désobéir. C'est une des raisons qui me conforte dans mon départ à la retraite. Je regarde ton fichier et je reviens. Merci par avance
 
Vote positif 0 Vote négatif
Bonjour et merci p56, je regarde également ton fichier et je reviens.
 
Vote positif 0 Vote négatif
Merci à tous les trois pour votre travail et votre participation.

Gégé-45550, c'est exactement ce que j'attendais, merci beaucoup. Mais comme l'a dit fort justement patrick, ça tourne à l'usine à gaz et c'est très énergivore.

p56, l'idée n'est pas si simpliste que ça et le regroupement des données annuelles sur une seule feuille est intéressante. Toutefois, j'ai besoin d'un agenda avec des horaires de 6h à 23h30.

patrick, comme à ton habitude, ton exemple de calendrier unique est bien. Mais comme pour p56, j'ai besoin d'une gestion journalière et horaire sur l'année afin de conserver une trace des tâches demandées et du résultat obtenu.

C'est pour toutes ces raisons que je suis parti sur 53 feuilles distinctes (54 avec celle de l'agenda) et puis t'elle était la demande de mon supérieur. Il faudrait que j'arrive à lui démontrer matériellement que l'on peut faire autrement car il a la tête dure et son idée est forcément la meilleure.
Je vous remercie chaleureusement pour vos commentaires, réflexions et exemples. Je suis toujours ouvert à la critique quand celle-ci est constructive. 👏 👏 👏
Je vais faire un petit mélange des trois solutions pour arriver à quelque chose de propre et de viables à longs termes.
 
Vote positif 0 Vote négatif
p56,
Dans une précédente discussion, tu m'avais présenté un fichier pour des réservations de tables, fichier que je n'ai pas gardé, mais je me souviens que tu gérais toutes les tables sur une même feuille pour toute l'année.
Le principe est le même pour la gestion de mon agenda, je vais essayer de développer cette nouvelle idée.
On clique sur une date, un UF s'affiche où l'on entre des données, qui elles sont figées dans une autre feuille.
Je vais partir sur cette idée qui me semble moins énergivore.
 
Vote positif 0 Vote négatif
Re à tous,

Avec quelques lignes de code en plus, sur le même modèle "simplet" précédent voici un agenda à l'année "2 onglets" de 6h00 à 23h30. Le fichier fait 30 ko.


Il vous reste à combiner ça avec la proposition de @patricktoulon et ajouter quelques fioritures
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Merci beaucoup pour ce coup de main et pour le code.
Je m'y met de suite et je reviens vers vous..
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

L
  • Résolu(e)
Microsoft 365 Extraire les données de la valeur cherchée en note
Réponses
5
Affichages
133
Lau01150
L
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
280
CortoXls
C
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
166
ManuEven
M
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
207
sebastien176
S
  • Question Question
Microsoft 365 Incompatibilité de type
Réponses
1
Affichages
328
Dranreb
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
140
thunder23
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
513
Stéphane_1
S
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
418
sebastien176
S
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
84
Ang3lina
A
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
412
patricktoulon
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
246
patricktoulon
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
353
BenExcel
B
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
401
Phil69970
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
201
Claudinedu13
C
S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
564
selkis
S
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
233
telemarrk
T
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
348
sylvanu
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
656
dadu35
D
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
576
fanch55
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…