IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Colorier cellule sous condition de date dépassée et autre vide [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2016
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2016
    Messages : 116
    Par défaut Colorier cellule sous condition de date dépassée et autre vide
    Bonjour a tous ,

    Voila ma macro qui devrait colorier les cellules présente en colonne 8 si la date colonne " est dépassée et si la cellule colonne 8 est vide .

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Ligne As Integer
    Dim cellu As Range
    Ligne = 4
     
    With Sheets("Suivi")
            For Each cellu In Range("C4:C5000")
     
            If .Cells(Ligne, 3).Value < Date & .Cells(Ligne, 8).Value = "" Then
     
                .Cells(Ligne, 8).Interior.Color = RGB(250, 0, 0)
                Ligne = Ligne + 1
     
            End If
     
            Next cellu
     
    End With
    End Sub
    Merci d'avance

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    Bonsoir
    Je propose Worksheet_SelectionChange à la place de Worksheet_BeforeDoubleClick
    dans le code il faut écrire (and) et non pas (&)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Ligne As Integer
    Dim cellu As Range
    Dim DernLigne As Long
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row
    Ligne = 4
    With Sheets("Suivi")
            For Each cellu In Range("C4:C" & DernLigne)
            If cellu.Value <> "" And cellu.Value < Date And .Cells(cellu.Row, 8).Value = "" Then
                .Cells(cellu.Row, 8).Interior.Color = RGB(250, 0, 0)
            End If
            Next cellu
    End With
    End Sub

  3. #3
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2016
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2016
    Messages : 116
    Par défaut
    Merci J'ai testé ca marche

    Mtn j'aimerais que les cellule redevienne normale cette condition n'est plus d'actualités .

  4. #4
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Juillet 2016
    Messages
    116
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Oise (Picardie)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juillet 2016
    Messages : 116
    Par défaut
    Solution :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Else: .Cells(cellu.Row, 8).Interior.Color = RGB(255, 255, 255)
    C bon j'ai trouvé

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Déplacement cellule sous conditions de date
    Par Le Boucher dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 17/10/2016, 11h02
  2. Clignotement des cellules sous condition dates
    Par ksai001 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 26/06/2011, 12h58
  3. Colorier Cellules sous conditions
    Par andrea0 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 06/04/2011, 17h56
  4. colorer des cellules sous conditions
    Par coenonympha dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 11/07/2008, 14h54
  5. colorier cellule sous-formulaire en fonction de sa valeur
    Par aba_tarn dans le forum VBA Access
    Réponses: 7
    Dernier message: 07/03/2008, 14h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo