Code de caractères ou symboles

Version imprimable

22/02/2023, 12h39
Rotax27

Code de caractères ou symboles

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
22/02/2023, 13h51
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:

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

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

Code:

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.

22/02/2023, 16h22
Tête de chat

1 pièce(s) jointe(s)
Re,

première remarque :

tu peux remplacer avantageusement
Code:

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

Code:

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:

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:

"=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 :

Pièce jointe 634689

3. puis si tu veux masquer les 1/2 passe en format de cellule, format de nombre, personnalisé et mets ;;;
22/02/2023, 16h47
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 !
22/02/2023, 17h38
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
23/02/2023, 09h34
Tête de chat

Bonjour,

Citation:

préfèrerais avoir du "vide" à la place de l'icone rouge et de conserver l'icone verte dans le cas contraire

Et hop, on change les specs en cours de route :D

Du coup plus besoin de MEC. Mets la colonne en vert et en police webdings

Code:

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

ou l (L minuscule) en wingdings pour un rond plus petit, à taille de police égale.
23/02/2023, 10h24
Rotax27

Ok merci , c'est nickel-Chrome merci beaucoup !