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 :

Surligner en jaune une valeur déjà présente


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    agent d exploitation
    Inscrit en
    Juin 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : agent d exploitation
    Secteur : Transports

    Informations forums :
    Inscription : Juin 2017
    Messages : 2
    Points : 3
    Points
    3
    Par défaut Surligner en jaune une valeur déjà présente
    Bonjour,
    Je débute en VBA et je n’arrive pas à trouver le code qui me permette de surligner la valeur d’une cellule en jaune (Feuil2°) si elle se trouve dans la Feuil1. Voici un exemple en PJ de ce que je souhaite faire, je vous remercie pour votre aide.
    Fichiers attachés Fichiers attachés

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    Bonjour,

    bienvenue sur DVP

    nous n'incitons pas les membres a poster des fichiers, pour des raisons evidentes de securite.

    Pourrais-tu nous en dire plus, sans passer par ce fichier ?

    Quelle cellule ou plage de cellule ? Quel code as-tu deja tente sans succes ?

    As-tu essaye les mises en forme conditionnelles dans Excel (sans VBA donc) ?
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Expert éminent sénior Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Points : 32 866
    Points
    32 866
    Par défaut
    Citation Envoyé par vbapakal Voir le message
    Voici un exemple en PJ de ce que je souhaite faire, je vous remercie pour votre aide.
    Beaucoup de participants à ce forum n'ouvrent pas les pièces jointes, entre autre pour les raisons expliquées ici :
    https://www.developpez.net/forums/d8...s-discussions/

    Je débute en VBA et je n’arrive pas à trouver le code qui me permette de surligner la valeur d’une cellule en jaune (Feuil2°) si elle se trouve dans la Feuil1. Voici un exemple en PJ de ce que je souhaite faire, je vous remercie pour votre aide.
    Pour savoir si ta valeur se trouve dans une autre feuille, utilise la méthode Find de l'objet Range.
    https://msdn.microsoft.com/fr-fr/library/ff839746.aspx
    Que tu mets dans un test :
    https://msdn.microsoft.com/en-us/vba...else-statement
    Pour passer la cellule en fond jaune, utilise la propriété Interior de Range :
    https://msdn.microsoft.com/fr-fr/library/ff196598.aspx

    Mais, à mon avis, pas besoin de VBA pour faire ça.
    Ca peut se faire plus vite et plus facilement avec une mise en forme conditionnelle.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.

  4. #4
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 913
    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 913
    Points : 5 119
    Points
    5 119
    Par défaut
    Bonjour
    je propose ce-ci :
    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
     
    Option Explicit
    Sub test()
    Dim Plage As Range, C As Range, plage1 As Range, i As Long, j As Long
    With Sheets("feuil1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    Set plage1 = .Range("j2:j" & i)
    End With
     
        With Worksheets("Feuil2")
        j = .Range("E" & Rows.Count).End(xlUp).Row
            Set Plage = .Range("E2:E" & j)
            For Each C In Plage
                If C <> "" Then
                    If Application.CountIf(plage1, C) > 0 Then C.Interior.ColorIndex = 3
                End If
            Next C
        End With
    End Sub
    Bonne continuation
    --------------------------------------------------------------*****----------------------------------------------------------------------------
    Bonne Continuation & Plein Succès
    Notre seul pouvoir véritable consiste à aider autrui avec modestie
    ______________________________________________________
    Pour dire merci, cliquer sur et quand la discussion est résolue, penser à cliquer sur le bouton

  5. #5
    Membre émérite
    Femme Profil pro
    Ingénieur
    Inscrit en
    Octobre 2016
    Messages
    1 703
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 29
    Localisation : France, Indre et Loire (Centre)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2016
    Messages : 1 703
    Points : 2 813
    Points
    2 813
    Par défaut
    Bonjour,
    Avec une MFC :
    Nom : mfc surligne jaune.png
Affichages : 869
Taille : 19,7 Ko
    Tu peux masquer la colonne B, si tu ne veux pas la voir.

  6. #6
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 913
    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 913
    Points : 5 119
    Points
    5 119
    Par défaut
    Bonjour
    j'ai ajouter juste ptit chose : supprimer le fond de la cellule avant de faire la comparaison
    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
    20
     
    Option Explicit
    Sub test()
    Dim Plage As Range, C As Range, plage1 As Range, i As Long, j As Long
    With Sheets("feuil1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    Set plage1 = .Range("j2:j" & i)
    End With
     
        With Worksheets("Feuil2")
        j = .Range("E" & Rows.Count).End(xlUp).Row
            Set Plage = .Range("E2:E" & j)
            For Each C In Plage
                 C.Interior.ColorIndex = 0
                If C <> "" Then
                    If Application.CountIf(plage1, C) > 0 Then C.Interior.ColorIndex = 3
                End If
            Next C
        End With
    End Sub
    --------------------------------------------------------------*****----------------------------------------------------------------------------
    Bonne Continuation & Plein Succès
    Notre seul pouvoir véritable consiste à aider autrui avec modestie
    ______________________________________________________
    Pour dire merci, cliquer sur et quand la discussion est résolue, penser à cliquer sur le bouton

  7. #7
    Candidat au Club
    Homme Profil pro
    agent d exploitation
    Inscrit en
    Juin 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val d'Oise (Île de France)

    Informations professionnelles :
    Activité : agent d exploitation
    Secteur : Transports

    Informations forums :
    Inscription : Juin 2017
    Messages : 2
    Points : 3
    Points
    3
    Par défaut
    Bonsoir,
    Merci beaucoup pour ce code qui répond parfaitement à mes attentes.

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 08/01/2017, 16h36
  2. copier des cellules si une valeur est présente dans celles-ci
    Par arno1975 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 08/02/2014, 21h55
  3. Vérifier si une valeur est présente avant de copier
    Par maximilien59 dans le forum VBA Access
    Réponses: 12
    Dernier message: 20/06/2013, 20h45
  4. [RegEx] Extraire une valeur si elle est présente
    Par Dia_FR dans le forum Langage
    Réponses: 4
    Dernier message: 06/07/2007, 20h17
  5. [MySQL] test si une valeur est déjà présente dans la table ou non
    Par yohan0262 dans le forum PHP & Base de données
    Réponses: 7
    Dernier message: 14/06/2007, 14h42

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