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 :

Copier la couleur de police quand les valeurs sont identiques


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Technicien d'usinage
    Inscrit en
    Octobre 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Technicien d'usinage

    Informations forums :
    Inscription : Octobre 2017
    Messages : 4
    Par défaut Copier la couleur de police quand les valeurs sont identiques
    Bonsoir le forum

    Petite question j'ai un fichier avec 1 tableau sur chaque onglet

    Dans le 2eme tableau j'ai une liste complete d'article disponible, je suis succeptible de passer certain de ses articles en couleur de police bleu (par exemple)

    Dans le 1er tableau je recupere certaines valeurs d'article selon besoin

    La ou je n'arrive pas c'est de faire en sorte que quand un article du 2eme tableau est de couleur de police bleu s'il ya une valeur d'article identique dans le 1er tableau il prenne la meme couleur de police

    Ci-joint un fichier exemple

    Merci d'avance
    Fichiers attachés Fichiers attachés

  2. #2
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Octobre 2010
    Messages
    338
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Octobre 2010
    Messages : 338
    Par défaut
    Bonjour,

    je n'ai pas ouvert ton fichier cependant je serai tenté de tester cette option


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    Sub test()
     
        Dim i As Integer, j As Integer 'Déclaration de variables
     
        For i = 1 To Feuil1.Range("A1").End(xlDown).Row Step 1 'boucle sur les lignes de la feuille 1 colonne A jusqu'à la dernière ligne non vide (en admettant que la première valeur à comparer soit dans cette feuille et cette colonne
            For j = 1 To Feuil2.Range("D1").End(xlDown).Row Step 1 'boucle sur les lignes de la feuille 2 colonne D jusqu'à la dernière ligne non vide (en admettant que la secondevaleur à comparer soit dans cette feuille et cette colonne
                If Feuil1.Range("A" & i).Value = Feuil2.Range("D" & j).Value Then 'test si les 2 valeurs sont identiques
                    Feuil2.Range("D" & j).Font.Color = Feuil1.Range("A" & i).Font.Color '(tu peux remplacer le font.color par interior.color selon si tu préfères police de couleur identique ou fond de cellule de couleur identique)
                End If
            Next j 'boucle
        Next i 'boucle
    End Sub

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Technicien d'usinage
    Inscrit en
    Octobre 2017
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Technicien d'usinage

    Informations forums :
    Inscription : Octobre 2017
    Messages : 4
    Par défaut
    Bonsoir Vincent et merci de ta réponse rapide

    Ca ne fonctionne pas mais j'ai oublié de préciser comment j'ai organisé mes tableaux

    1er tableau - ou je recupere des numeros d'articles aleatoires,se composent de deux colonnes A et B (les numéro d'articles n'ont pas de colonnes attribués,leurs répartition peut etre aleatoire,soit la colonne A soit la B

    2eme tableau - la tout les numéro d'articles sont sur une seule colonne

  4. #4
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Octobre 2010
    Messages
    338
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Octobre 2010
    Messages : 338
    Par défaut
    Tel que je le comprends tu peux ajouter une boucle for pour boucler sur les lignes et sur les colonnes

    Boucle 1 = les lignes du tableau 1 colonne 1
    Boucle 2 = les lignes du tableau 1 colonne 2
    Boucle 3 = les lignes du tableau 2 colonne 1
    le code si = alors couleur 1=ccouleur 2
    boucle 3 ligne suivante
    boucle 2 ligne suivante
    boucle 1 ligne suivante

Discussions similaires

  1. Réponses: 5
    Dernier message: 12/03/2017, 18h37
  2. Réponses: 5
    Dernier message: 14/08/2015, 11h02
  3. Réponses: 2
    Dernier message: 08/04/2015, 20h44
  4. [XL-2007] Fusionner des cellules lorsque les valeurs sont identiques et contiguës
    Par yaipala dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 09/10/2014, 13h47
  5. [PDO] Probleme bindparam toutes les valeurs sont identiques
    Par albedo0 dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 02/01/2011, 13h16

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