Menu

Mise en forme conditionnelle en VBA [Résolu]

- - Dernière réponse : seby1001
Messages postés
6
Date d'inscription
jeudi 27 juin 2019
Statut
Membre
Dernière intervention
29 juin 2019
- 29 juin 2019 à 10:43
Bonjour,

Je me permets de solliciter l'aide de quelqu'un à l'aise avec les VBA.

Je suis en train de créer un petit programme à partir d'Excel. J'ai créé une base de données dans une première feuille nommée "Contrôle" et dans les cellules B1 à B90 j'ai des nombres inscrits.

Ensuite, j'ai également créé un UserForm avec une recherche de valeur d'après une seconde feuille Excel. En inscrivant un numéro client dans une zone de texte, mes autres données s'affichent. Seulement, j'aimerais que les données qui s'affichent dans mon UserForm et qui sont à doubles d'après mes cellules B1 à B90 s'affichent en noir (mes données dans mon UserForm son de couleur rouge).

Est-ce que quelqu'un serait assez courageux pour me donner un ptit coup de main à cette VBA ?

Merci d'avance pour vos réponses
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
10813
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 juillet 2019
1333
1
Merci
la petite erreur vient de la ligne
If a > 0 Then Label29.ForeColor = &H0& Else Labe29.ForeColor = &HFF&

le l final de Label a sauté à la frappe dans le second Label29
Une fois rectifié 85 s'affiche bien en rouge

Si cela arrive pour d'autres controles vérifie d'abord l'écriture correcte de l’instruction concernée

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 54313 internautes nous ont dit merci ce mois-ci

seby1001
Messages postés
6
Date d'inscription
jeudi 27 juin 2019
Statut
Membre
Dernière intervention
29 juin 2019
-
Salut Via,

Un tout grand merci pour ton aide merveilleuse. Tout fonctionne à merveille!

Bon WE
Commenter la réponse de via55
Messages postés
10813
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 juillet 2019
1333
0
Merci
Bonjour

Fournis :
1) ton fichier en le postant sur mon-partage.fr, en faisant créer un lien puis en le copiant et en revenant les coller ici
2) un exemple de données en double qui doivent se retrouver en noir dans l'UF

Cdlmnt
Via

Commenter la réponse de via55
Messages postés
6
Date d'inscription
jeudi 27 juin 2019
Statut
Membre
Dernière intervention
29 juin 2019
0
Merci
Hello!

Merci pour ton message

Voici le lien demandé : https://mon-partage.fr/f/CdrazNFJ/

Je vais essayer de t'expliquer un peu plus clairement...

Il y a un UserForm dans ce fichier qui s'appelle "Vérification des cartes gagnantes". Quand je recherche une carte, cela fonctionne en me mettant les numéros de la carte. Pour ça c'est OK. Mais j'aimerais que les numéros de la carte (donc les intitulés) se mettent en noir (quand je fais une vérification) quand il sont à doubles avec la sélection B1:B90 de la feuille "Contrôle".

Par la même occasion, j'ai remarqué que, quand je presse sur le bouton "Afficher la carte" mon curseur ne se remet dans la cellule où je m'étais arrêté. Je sais pas si tu peux aussi me donner un ptit coup de pouce pour ça.

Merci pour ton aide.

Salutations

Seby
Commenter la réponse de seby1001
Messages postés
10813
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 juillet 2019
1333
0
Merci
Je n'arrive pas à comprendre comment fonctionne ton logiciel
Au départ il n'y a rien en B1:B90 quand cela se remplit-il ?

Donne moi plus d'explications pas à pas

seby1001
Messages postés
6
Date d'inscription
jeudi 27 juin 2019
Statut
Membre
Dernière intervention
29 juin 2019
-
En effet, la plage est vide pour le moment. Elle sera remplie manuellement par la suite.

Si tu veux, cette plage sera des numéros au hasard. Après quand je fais un contrôle de la carte gagnante, je pourrai vérifier les numéros en noir qui ont été mis manuellement et ceux qui seront en rouge qui ne sont pas inscrit dans cette plage. Je sais pas si je suis très précis dans mes explications mais j'espère que c'est plus ou moins compréhensible.
Commenter la réponse de via55
Messages postés
10813
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 juillet 2019
1333
0
Merci
Non je ne comprends toujours pas ce que fait ta macro

C'est sans doute très clair pour toi ...
A quoi sert la carte avec tous les n°s en bas de la feuille Contrôles ? Que doit faire l'utilisateur ? Quelles données doit il rentrer ? que se passe-t-il ensuite ?

seby1001
Messages postés
6
Date d'inscription
jeudi 27 juin 2019
Statut
Membre
Dernière intervention
29 juin 2019
-
Si tu veux c'est un contrôle pour loto... donc la plage B1:B90 sont les numéros tirés. Le tableau en bas de cette page est le tableau qui sera affiché par un projecteur. Les numéros qui seront inscrits dans la plage B1:B90 permettent de faire le lien avec le UserForm afin que lors du contrôle de la carte, les numéros en rouge seront les numéros qui n'auront pas été criés et les numéros en noir, les numéros qui auront été criés. Je t'ai fait une petite vidéo sur le lien suivant : https://mon-partage.fr/f/wo2NLNST/
Commenter la réponse de via55
Messages postés
10813
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 juillet 2019
1333
0
Merci
Merci la video m'a aidé

J'ai mis dans la macro les instructions pour faire colorer en noir les label lorsque le nombre se trouve inscrit dans la colonne B , je l''ai fait pour les 3 premiers; si ça te convient il te restera à recopier les instructions pour les autres labels

https://mon-partage.fr/f/blIlw9Jl/
seby1001
Messages postés
6
Date d'inscription
jeudi 27 juin 2019
Statut
Membre
Dernière intervention
29 juin 2019
-
Après mise en place de la macro complète, je me suis aperçu que ça ne fonctionnait pas vraiment... quand j'inscris plusieurs numéros dans ma plage et que je fais un contrôle avec le UserForm, des numéros apparaissent quand même en noir alors qu'ils ne devraient pas...

https://mon-partage.fr/f/m29KzS1m/
Commenter la réponse de via55
Messages postés
10813
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
16 juillet 2019
1333
0
Merci
Oui il fallait remettre les contrôles en rouge si le n° n'est pas trouvé
https://mon-partage.fr/f/uIFetC8Y/

Ca doit être ok maintenant
seby1001
Messages postés
6
Date d'inscription
jeudi 27 juin 2019
Statut
Membre
Dernière intervention
29 juin 2019
-
C'est presque ça! mais il doit y avoir une petite erreur à quelque part...

https://mon-partage.fr/f/i1mwOsCy/

Est-ce que ça serait pas mieux de faire simplement une mise en forme conditionnelle comme :

SI valeur à double Label3 = B1:B90 (mettre la mise en forme police noir)
SI valeur à double Label4 = B1:B90 (mettre la mise en forme police noir)
etc...
Commenter la réponse de via55