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

Microsoft 365 colorier une rangée de cellules

M

Marvin57

XLDnaute Occasionnel
tout le monde,

dans le code ci dessous Franc58 m'a modifié ce dernier pour mettre en couleur la cellule de jour sélectionnée.
Cela fonctionne très bien.

VB: 
   For Each Cell In ActiveSheet.Range("B5:AF159")
    If Cell.Value = [Today()] Then
    Cell.Select
    Cell.Interior.Color = RGB(0, 255, 0)
    Cell.Font.Color = RGB(255, 0, 0)
    End If
Next

J'avais oublié un détail.

Est-il possible de lui dire de colorier également les 10 cellules en dessous de la cellule sélectionnée ?

Merci d'avance à vous tous pour votre aide

Marvin57
 
Solution
J'abonde dans la formule MFC:

Avec en module :
VB: 
Function Tod(Cel As Range) As Boolean
    If Cel = Date Then
        Tod = True
    Else
        For L = Cel.Row To Application.Max(Cel.Row - 10, 1) Step -1
            If Cells(L, Cel.Column) = Date Then
                Tod = True
                Exit For
            End If
        Next
    End If
End Function
Trier par date Trier par votes
M

Marvin57

XLDnaute Occasionnel
JHA à dit:
Bonjour à tous,

Une MFC fait cela également.

JHA
Cliquez pour agrandir...
Bonjour JHA,

Merci pour ce retour mais cela n'est pas comme voulu.

J'explique :

les dates sont sur une ligne et lorsqu'il sélectionne la date du jour à l'activation de l'onglet, il devrait, si possible, me colorier également les 10 cellules en dessous de la cellule sélectionnée.

voici ci dessous une image d'une partie de l'onglet et ses dates. Donc si par exemple nous sommes aujourd'hui le Lundi 17 il faudrait qu'il mette en couleur la cellule du lundi 17 ainsi que les 10 cellules en dessous.


Merci
 
Vote positif 0 Vote négatif
J

JHA

XLDnaute Barbatruc
Bonjour à tous,

Comme tu ne joins pas de fichier exemple, il est difficile de te répondre correctement.
A tout hasard

JHA
 

Pièces jointes

  • Classeur Essai MFC rev1.xlsx
    16 KB · Affichages: 1
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
JHA à dit:
Bonjour à tous,

Comme tu ne joins pas de fichier exemple, il est difficile de te répondre correctement.
A tout hasard

JHA
Cliquez pour agrandir...
Re,

oui je sais c'est compliqué sans fichier, mais cela est très compliqué de démonter mon classeur complet, je suis désolé.

J'ai essayé votre version mais cela ne fonctionne pas. Je pensais, si je puis dire, que cela pourrait se faire dans le code vba.

Quoi dire !
 
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Salut à tous,
A essayer:
VB: 
Sub test()
Dim Target
    Set Target = [B5:AF159].Find(Date, , xlValues, xlWhole)
    Do While Not Target Is Nothing
        If adr = "" Then adr = Target.Address
        With Target.Resize(10)
            .Interior.Color = RGB(0, 255, 0)
            .Font.Color = RGB(255, 0, 0)
        End With
        Set Target = [B5:AF159].FindNext(Target)
        If adr = Target.Address Then Set Target = Nothing
    Loop
End Sub
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Bonjour fanch55,

Merci pour votre aide.

alors j'ai placé ce code dans un module standard, j'ai essayé en l'appelant et cela ne fonctionne pas !

je l'ai ensuite placé dans l'onglet, mais il ne fonctionne pas !

Est-ce que je l'ai mal placé ?
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Marvin57 à dit:
Oui tout à fait
Cliquez pour agrandir...
Ah bon ? Parce que d'après ce qu'on voit sur la capture d'écran de #4, ça n'a rien à voir avec la cellule sélectionnée.

Je posais la question parce que si c'est pour colorier une cellule et les 9 du dessous, il suffit d'ajouter un .resize(10,1).


[edit]
Je crois que j'ai compris : tu veux dire "sélectionnée" par rapport à ton code de #1 où il y a Select (qui me semble inutile, du coup je l'avais directement zappé... ) ???
[/edit]
 
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Chez moi, tout fonctionne normalement (code dans le module de la feuille):

Si cela ne fonctionne pas chez vous, je ne pourrai rien faire de plus sans un classeur exemple ...

Ceci dit, le temps s'écoulant, vous allez avoir toutes les colonnes+10 colorées en vert ...
 
Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc
Je suis du même avis que JHA : pour colorier la date du jour, rien ne vaut une MFC !

Si tu effectues le coloriage de la colonne du jour par VBA, il faut alors commencer par "décolorier" toutes les colonnes du mois avant de colorier la colonne du jour sinon, comme l'a dit fanch55, tu vas finir par avoir tout le mois colorié si tu ouvres ton classeur tous les jours...
 
Vote positif 0 Vote négatif
M

Marvin57

XLDnaute Occasionnel
Ré
OK, la nuit porte conseil.
Je vais y réfléchir.
Merci pour les bonnes informations.
A demain
 
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
J'abonde dans la formule MFC:

Avec en module :
VB: 
Function Tod(Cel As Range) As Boolean
    If Cel = Date Then
        Tod = True
    Else
        For L = Cel.Row To Application.Max(Cel.Row - 10, 1) Step -1
            If Cells(L, Cel.Column) = Date Then
                Tod = True
                Exit For
            End If
        Next
    End If
End Function
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Code pour mise en couleur
Réponses
2
Affichages
360
Marvin57
M
S
  • Question
Microsoft 365 Colorer automatiquement des cellules en les sélectionnant
Réponses
5
Affichages
427
Jacky67
S
  • Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
352
souhaib ad
S
X
  • Question
XL pour MAC Colorier une cellule dans les lignes impaires de mon tableau, dont la valeur est > à 150
2
Réponses
15
Affichages
1 K
TooFatBoy
F
  • Résolu(e)
XL 2021 Souci avec une macro lors d'un changement de "statut"
Réponses
3
Affichages
545
fanou06
F
XLS : Sélecteur de Couleur
Réponses
8
Affichages
258
Lu76Fer
F
  • Résolu(e)
XL 2021 Macro ne fonctionne plus ?
Réponses
9
Affichages
598
fanou06
F
M
  • Question
XL 2013 changement de couleur de police qd cellule modifiée
Réponses
10
Affichages
513
michel.dupont
M
  • Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
972
Dudu2
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
666
Thomi
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…