Aide sur jeux d'icone avec ou sans VBA

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

Tophe2

XLDnaute Impliqué
Bonjour Le forum,

J'essai de mettre en place dans un fichier qui contient beaucoup de colonne une mise en forme avec les jeux d'icones. Je ne souhaiterai pas ajouter une colonne pour y placer mon icone (si possible) je souhaiterai que l'icone s'affiche dans une cellule contenant déjà des informations, est ce possible je ne sais pas ??

La condition serait, si le texte de la colonne A (ex: A3) est en gras mettre l'icone Validé (qui est en vert dans la MFC) dans la colonne B correspondante (ex : B3), j'ai cherché un peu partout je ne sais pas si cela est réalisable.

Si quelqu'un à une idée ou une piste. L'objectif est de ne pas ajouter de colonne, si possible, est d'avoir visuellement donc rapidement le dossier qui est validé grâce à l'icone.

Je joins un fichier excel avec deux colonnes essentiellement (A et B).

Merci pour votre aide
Cordialement
Christophe.
 

Pièces jointes

Trier par date Trier par votes
Re : Aide sur jeux d'icone avec ou sans VBA

Bonjour Le forum,
Bonjour Job75 et Si...

En utilisant les différentes propositions pour insérer l'icone validation j'ai opté dans certains fichier pour al proposition de job75 présente dans le fichier joint.

Cependant dans un fichier que j'utilise régulièrement je souhaiterai voir apparaitre l'icone validation dans la listbox que j'utilise pour placer les personnes (feuille 2 du fichier joint).

la listbox fait référence à la liste présente dans la feuille 1.

Ma question est il possible de faire apparaitre dans la listbox l'icone validation à côté du nombre d'enfant colonne AE. Peut être faudrait il qu'il apparaisse en plus de la colonne C dans la colonne AE de la feuille 1 puis sur la zone qui est lien sur la feuille 2 (P:S) avant de l'avoir visuellement sur la listbox, je ne sais pas trop mais j'essai mais je n'y arrive pas.

La listbox apparait uniquement sur la cellule bleu dans le fichier joint.

Peut être que l'on peut obtenir ce même résultat en passant par une autre solution, pas de problème.

Merci pour votre aide
Bonne Journée
Christophe.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Bonjour le Forum,

Je reviens vers vous pour savoir s'il existe un moyen de faire apparaitre la coche de validation dans une listbox ou autre élément tout en gardant le principe présent dans la feuille 2 du fichier joint dans le message précédent.

Merci pour votre aide
Bonne Journée
Christophe.
 
Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Bonjour Job75,

Merci pour ta réponse je vais chercher un autre moyen pour que visuellement on puisse voir les ligne validés (couleur ou autre ....) je vais chercher.

Concernant la listbox je suis sincèrement désolé j'ai dû faire une mauvaise manip (copier/coller) mais cela me semblait évidemment de mettre la listbox fonctionnelle.

Dans le fichier joint la listbox fonctionne correctement, on ne sait jamais si une manip pour que visuellement cela fonctionne.

Encore désolé pour cette erreur ou oubli.

Bonne Journée
Christophe.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Re,

Plutôt que vous casser la tête avec des coches, repérez par des caractères "classiques".

En Feuil2, il suffit de mettre le format @" *" en colonne S au bon endroit :

Code: 
Sub AstérisquesListBox()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim i&
With Feuil2
  For i = 5 To .Range("S" & Rows.Count).End(xlUp).Row
    .Cells(i, "S").NumberFormat = _
      "@" & IIf(Feuil1.Cells(i - 3, "A").Font.Bold, """ *""", "")
  Next
  .OLEObjects("MaListBox").ListFillRange = "P5:S32" 'pour MAJ
End With
End Sub
L'astérisque est placé si la police en colonne A de Feuil1 est en gras.

Fichier joint.

PS : j'ai viré vos macros qui semaient le pataquès...

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Re,

Bien entendu on peut mettre n'importe quel texte à la place de l'astérisque :

Code: 
Sub MAJ_ListBox()
'Feuil1 et Feuil2 sont les CodeNames des feuilles
Dim i&
With Feuil2
  For i = 5 To .Range("S" & Rows.Count).End(xlUp).Row
    .Cells(i, "S").NumberFormat = _
      "@" & IIf(Feuil1.Cells(i - 3, "A").Font.Bold, """ attention !""", "")
  Next
  .OLEObjects("MaListBox").ListFillRange = "Tab" 'pour MAJ
End With
End Sub
Noter que j'ai défini le tableau dynamiquement par le nom Tab :

Code: 
=DECALER('feuille 2'!$P$4;1;;EQUIV("zzz";'feuille 2'!$P:$P)-LIGNE('feuille 2'!$P$4);4)
Fichier joint.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Re,

MERCI Cela fonctionne Très bien et me permettra de voir très rapidement ceux qui auront été validé.

Peux tu m'expliquer sommairement la macro

For i = 5 To .Range("S" & Rows.Count).End(xlUp).Row
.Cells(i, "S").NumberFormat = _
"@" & IIf(Feuil1.Cells(i - 3, "A").Font.Bold, """ attention !""", "")

Si je souhaite mettre l'Astérix en colonne P je change juste les deux endroits ou il est inscrit "S" ?

Si un format text et non Nombre je change cela Cells(i, "S").NumberFormat et je mets Cells(i, "S").text ?

Modif : Si je vais chercher les données dans un autre fichier puis je faire la même chose en modifiant ceci IIf(Feuil1.Cells(i - 3, "A mais comment écire je veux aller chercher le fichier toto et l'onglet essai pour le reste la mise en forme du tableau reste la même.

Merci encore pour ton aide
Bonne Journée
Christophe.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Re,

Tophe2 à dit:
Peux tu m'expliquer sommairement la macro (...)

Si je souhaite mettre l'Astérix en colonne P je change juste les deux endroits ou il est inscrit "S" ?

Si un format text et non Nombre je change cela Cells(i, "S").NumberFormat et je mets Cells(i, "S").text ?
Cliquez pour agrandir...

Faudrait peut-être travailler un peu Tophe2, et faire fonctionner vos méninges.

Sinon vous ne progresserez jamais en VBA 🙄

A+
 
Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Re,

Je suis plutôt quelqu'un qui travaille, qui cherche à comprendre en essayant de bien faire (dans la mesure du possible).

Je pense avoir compris une partie du code cependant je peux comprendre que mes questions soient déplacées (1000 excuses) je cherchais juste une explication sur le format nombre.

Je voulais savoir si ce code pouvait être adapté si nous avons une feuille (liste: exemple feuille1) qui se trouve dans un autre fichier ?


Merci
Bonne Journée
Christophe
 
Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Re,

Il suffit de préciser le nom du fichier quand on définit la feuille "feuille1".

Donc remplacer l'expression :

Code: 
IIf(Feuil1.Cells(i - 3, "A").Font.Bold, """ attention !""", "")
par :

Code: 
IIf(Workbooks("TOTO.xlsm").Sheets("feuille1").Cells(i - 3, "A").Font.Bold, """ attention !""", "")
Le fichier TOTO.xlsm doit être ouvert...

A+
 
Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Bonjour Tophe2, le forum,

Une autre solution qui utilise une 5ème colonne pour le tableau Tab et la ListBox :

Code: 
Sub MAJ_ListBox()
Dim i&, b As Boolean
Application.ScreenUpdating = False
Sheets("Feuille 2").OLEObjects("MaListBox").ListFillRange = ""
For i = 1 To [Tab].Rows.Count
  b = Sheets("Feuille 1").Cells(i + 1, "A").Font.Bold
  'b = Workbooks("TOTO.xlsm").Sheets("Feuille 1").Cells(i + 1, "A").Font.Bold
  [Tab].Cells(i, 5) = [Tab].Cells(i, 4) & IIf(b, "   Validé", "")
Next
Sheets("Feuille 2").OLEObjects("MaListBox").ListFillRange = "Tab"
End Sub
La 4ème colonne de la ListBox est masquée (largeur 0).

Fichier (2).

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Aide sur jeux d'icone avec ou sans VBA

Re,

Une dernière solution avec l'affichage des cases d'option dans la ListBox :

Code: 
Private Sub MaListBox_Change()
Static flag As Boolean
If flag Then Exit Sub
Dim i&, b As Boolean
flag = True
With MaListBox
  .ListStyle = fmListStyleOption 'affiche les cases d'option
  .MultiSelect = fmMultiSelectMulti
  For i = 0 To .Object.ListCount - 1
    b = Sheets("Feuille 1").Cells(i + 2, "A").Font.Bold
    'b = Workbooks("TOTO.xlsm").Sheets("Feuille 1").Cells(i + 2, "A").Font.Bold
    .Object.Selected(i) = b
  Next
End With
flag = False
End Sub
La macro est dans le code de "Feuille 2"

Elle se lance quand on clique dans la ListBox.

C'est probablement la meilleure des solutions que j'ai proposées.

Fichier (3).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
Microsoft 365 Liste déroulante dynamique / dépendante d'un critère ou plus, *sans* VBA ? Une sorte d'Unique à conditions ? + ordre alpha ?
Réponses
8
Affichages
286
JHA
J
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
305
TooFatBoy
TooFatBoy
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
N
  • Résolu(e)
Microsoft 365 Aide pour insertion nombre aléatoire
2
Réponses
22
Affichages
991
NONO14
N
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
889
ali591
A
Mathos
  • Résolu(e)
XL 2021 Copie de certaines données Excel sur Word
2
Réponses
28
Affichages
1 K
Mathos
Mathos
C
  • Question Question
XL 2010 Recherche de colonne et calcul sur 2 années consécutives
Réponses
0
Affichages
341
CS49
C
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
791
Max
M
Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
384
Phil69970
Phil69970
J
  • Question Question
Microsoft 365 Publipostage avec selection de données
Réponses
2
Affichages
397
.jakob@gmail.com
J
L
  • Question Question
XL pour MAC tableau ans perturbation des colonnes non copié
Réponses
5
Affichages
713
DJunqueira
D
A
  • Question Question
Microsoft 365 Fichier de statistique et roulement
Réponses
0
Affichages
540
Aurel’Byylieve
A
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
J
  • Question Question
Microsoft 365 Besoin AIDE formules ou mise en forme conditionnelle
Réponses
8
Affichages
818
JaGAF
J
crackerwood
  • Question Question
XL 2016 Recherche/Remplace en VBA
Réponses
7
Affichages
596
crackerwood
crackerwood
J
  • Résolu(e)
XL 2010 VBA créer une liste sans doublon selon conditions
Réponses
4
Affichages
914
sylvanu
sylvanu
M
  • Question Question
Microsoft 365 Calcul & somme sur chaque colonne avec prix de référence
Réponses
2
Affichages
442
maxsy
M
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
592
tactic6
tactic6
P
  • Question Question
Microsoft 365 Besoin d'aide pour plusieurs petite chose technique sur un fichier excel
8 9 10
Réponses
136
Affichages
9 K
TooFatBoy
TooFatBoy
F
  • Question Question
XL 2019 Faire une "cartographie" selon des périodes.
Réponses
12
Affichages
1 K
fanou06
F
Retour