Discussion :

[Rotax27]

Bonjour à tous,
Je cherche le code de caractère correspondant à un rond rouge pouvant s'inscrire dans une cellule de 3X3 puis d'un rond vert pour idem à intégrer dans un code VBA.
Merci

[Tête de chat]

Bonjour,

il y en a des tas, suivant la police de caractère, et la couleur c'est toi qui la fixera.

Le plus simple est, à mon avis, dans un coin de ton classeur, disons un onglet "Paramètres" de préparer les deux exemples "à la main" (tu peux utiliser insertion, symbole, puis va fouiller dans les webddings, wingdings, segoe emoji...) et mets la couleur qui te va, puis dans ton VBA fais un copier/coller. Tu gagneras en maintenance...

Sinon pour répondre à la question voici pour mettre un rond rouge dans la cellule courante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  With Selection
        .Value = Chr(108)
        With .Font
        .Name = "Wingdings"
        .Color = -16776961
        End With
    End With

[Rotax27]

Cela parait simple, mais je n'arrive pas à m'en sortir.
J'ai ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'Comparaison Saison d'inscription
    derlig = Range("A65536").End(xlUp).Row
    com = 1
    lig = 2
    col = 18
    For com = 2 To derlig
        Cells(lig, col).Select
        ActiveCell.FormulaR1C1 = _
        "=IF(VLOOKUP(RC[-2],'[Fichier Global new.xlsm]Adhérents'!R2C1:R700C12,12)=RC[-6],"""",""Renouvellé"")"
        lig = lig + 1
    Next

A la ligne 9,je veux remplacer la valeur """" par un rond vert et la valeur "Renouvellé" par un rond rouge.

[Tête de chat]

Re,

première remarque :

tu peux remplacer avantageusement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Cells(lig, col).Select
        ActiveCell.FormulaR1C1 = _

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        Cells(lig, col).FormulaR1C1 = _

Ensuite, la VBA pose une formule comprenant un VLOOKUP (RecherhceV) sur un fichier fermé ; c'est doublement pas très performant mais passons.

Après il manque à mon avis un ",0 "à la fin, sinon tu fais une recherche approchée... donc sauf si tu veux faire une recherche approchée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VLOOKUP(RC[-2],'[Fichier Global new.xlsm]Adhérents'!R2C1:R700C12,12,0)

la formule prend ce qu'il y a 2 colonnes à gauche, regarde dans le fichier des adhérents colonne A de la ligne 2 jusqu'à la ligne 700, et renvoie en cas de match ce qu'il y a colonne L.
puis c'est comparé à ce qu'il y a sur la ligne 6 colonnes plus à gauche et si c'est égal pose "" sinon pose "Renouvellé".

En passant "Renouvelé" serait préférable...

Donc je pense que c'est la que tu veux un rond vert à la place de renouvelé, un rond rouge à la place de vide.

Ce qui te fera peut-être le moins de modif, parce que j'ai l'impression que tu n'es pas trop à l'aise avec le VBA, c'est

1. de mettre 1 ou 2 plutôt que "" sinon pose "Renouvelé".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  "=IF(VLOOKUP(RC[-2],'[Fichier Global new.xlsm]Adhérents'!R2C1:R700C12,12,0)=RC[-6],1,2)"

2. Sur la colonne mettre une mise en forme conditionnelle (Sélectionner la colonne, puis Accueil, Mise en forme conditionnelle, Nouvelle règle) comme ceci :



3. puis si tu veux masquer les 1/2 passe en format de cellule, format de nombre, personnalisé et mets ;;;

[Rotax27]

Re...
Merci pour ta réponse:
Ok pour la première remarque je vais modifier çà.
Pour de ce qui est du fichier "Fichier Global new.xlsm", il est déjà ouvert plus en arrière dans ce même code.
Pour le point suivant la recherche approchée me convient bien.
Pour la suite, tu as raison je n'ai pas bien l'habitude de manipuler VBA, mais j'arrive à m'en sortir en conservant tous les éléments de code où je prélève des petits bouts de code appropriés ou en me faisant aidé par l'apprentissage automatique des macros.
La suite de tes explications me sont très claires et judicieuses, je vais les mettre en application et reviens vers toi pour .... le résultat.
En tous cas merci pour l'application que tu portes à tes explications (avec exemple ) c'est super !

[Rotax27]

Re...
J'avance, j'avance , mais il y a une anomalie au tableau : après avoir fait le test (concluant), il s'avère que le résultat visuel n'est pas très heureux, et préfèrerais avoir du "vide" à la place de l'icone rouge et de conserver l'icone verte dans le cas contraire.
Dans la mise en forme conditionnelle il existe une case à cocher pour n'afficher que l'icone
Merci