Mise en forme conditionnelle en VBA

Résolu/Fermé
seby - 26 juin 2019 à 23:07
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

7 réponses

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
28 juin 2019 à 02:05
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
1
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
Salut Via,

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

Bon WE
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
Modifié le 27 juin 2019 à 14:51
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

0
seby1001 Messages postés 6 Date d'inscription jeudi 27 juin 2019 Statut Membre Dernière intervention 29 juin 2019
27 juin 2019 à 18:08
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
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
27 juin 2019 à 20:16
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

0
seby1001 Messages postés 6 Date d'inscription jeudi 27 juin 2019 Statut Membre Dernière intervention 29 juin 2019
27 juin 2019 à 21:04
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
27 juin 2019 à 21:14
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 ?

0
seby1001 Messages postés 6 Date d'inscription jeudi 27 juin 2019 Statut Membre Dernière intervention 29 juin 2019
27 juin 2019 à 21:37
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/
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
27 juin 2019 à 22:08
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/
0
seby1001 Messages postés 6 Date d'inscription jeudi 27 juin 2019 Statut Membre Dernière intervention 29 juin 2019
27 juin 2019 à 23:41
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/
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
28 juin 2019 à 00:02
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
0
seby1001 Messages postés 6 Date d'inscription jeudi 27 juin 2019 Statut Membre Dernière intervention 29 juin 2019
28 juin 2019 à 00:56
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...
0