Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code VBA pour colorier des cellules à partir de trois critères

Créer une discussion

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
N

NoodleDS

XLDnaute Nouveau
Bonjour à tous,

Je suis nouveau sur le forum et effectue du VBA depuis peu de temps.

Voici mon problème :

Je souhaite qu'un code VBA à partir de 3 critères sélectionnés dans un formulaire puisse me colorier deux colonnes qui correspondent au jour RTT choisi.
Voir les deux fichiers en exemple.

Merci pour votre aide.
 

Pièces jointes

  • CalendExemple.xls
    CalendExemple.xls
    34.5 KB · Affichages: 57
  • CalendExemple.jpg
    44.1 KB · Affichages: 73
Trier par date Trier par votes
Re : Code VBA pour colorier des cellules à partir de trois critères

Bonjour NoodleDS, fohest, le forum,

Voyez le fichier joint avec cette macro dans le code de l'UserForm :

Code: 
Private Sub Valid_Click()
Dim cel As Range, n As Byte, test As Boolean
If CB_nom.ListIndex = -1 Then _
  MsgBox "Vous devez choisir le nom...", 48: CB_nom.DropDown: Exit Sub
If CB_sem.ListIndex = -1 Then
  If MsgBox("Vous n'avez pas choisi les semaines, voulez-vous les effacer toutes ?", 4) = 7 _
    Then CB_sem.DropDown: Exit Sub
ElseIf CB_jour.ListIndex = -1 Then _
  If MsgBox("Vous n'avez pas choisi le jour, voulez-vous effacer les RTT ?", 4) = 7 _
    Then CB_jour.DropDown: Exit Sub
End If
With Feuil1 'CodeName de la feuille
  For Each cel In .Range("A6", .[A65536].End(xlUp))
    If cel Like "Sem.*" Then
      n = Replace(cel, "Sem.", "")
      test = n Mod 2 = CB_sem.ListIndex Or CB_sem.ListIndex = -1
    ElseIf cel = CB_nom And test Then
      If CB_sem.ListIndex = -1 Or CB_jour.ListIndex = -1 Then 'effacement
        Intersect(cel.EntireRow, .[B:C,F:G,J:K]).Interior.ColorIndex = xlNone
      Else 'coloration
        cel.Offset(, 1 + 4 * CB_jour.ListIndex).Resize(, 2).Interior.ColorIndex = 40
      End If
    End If
  Next
End With
'Unload UF_Planning 'si l'on veut fermer l'USF
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Code VBA pour colorier des cellules à partir de trois critères

Re,

S'il ne peut y avoir qu'un seul jour de RTT dans la semaine, utilisez :

Code: 
Private Sub Valid_Click()
Dim cel As Range, n As Byte, test As Boolean
If CB_nom.ListIndex = -1 Then _
  MsgBox "Vous devez choisir le nom...", 48: CB_nom.DropDown: Exit Sub
If CB_sem.ListIndex = -1 Then
  If MsgBox("Vous n'avez pas choisi les semaines, voulez-vous effacer tous les RTT ?", 4) = 7 _
    Then CB_sem.DropDown: Exit Sub
ElseIf CB_jour.ListIndex = -1 Then
  MsgBox "Vous devez choisir le jour...", 48: CB_jour.DropDown: Exit Sub
End If
With Feuil1 'CodeName de la feuille
  For Each cel In .Range("A6", .[A65536].End(xlUp))
    If cel Like "Sem.*" Then
      n = Replace(cel, "Sem.", "")
      test = n Mod 2 = CB_sem.ListIndex Or CB_sem.ListIndex = -1
    ElseIf cel = CB_nom And test Then
      Intersect(cel.EntireRow, .[B:C,F:G,J:K]).Interior.ColorIndex = xlNone
      If CB_sem.ListIndex >= 0 Then _
      cel.Offset(, 1 + 4 * CB_jour.ListIndex).Resize(, 2).Interior.ColorIndex = 40
    End If
  Next
End With
'Unload UF_Planning 'si l'on veut fermer l'USF
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Code VBA pour colorier des cellules à partir de trois critères

Bonjour fhoest, job75, le forum,

fhoest, job75, je vous remercie pour vos réponses très rapides. Ce qui n'a pas été mon cas. J'ai pu m'y remettre que très récemment...

fhoest, ton programme fonctionne très bien, mais celui-ci ne correspond pas exactement à ce que je souhaite.
Lorsque le calendrier est généré en début d’année, le choix de la semaine (paire ou impaire) et du jour (Lundi ou Mercredi ou Vendredi) est effectué par la personne. Celle-ci ne pourra pas en déroger en cours d’année. C’est pourquoi je souhaite que le programme puisse affecter en une seule fois le choix de la personne pour l’année.

job75, ta seconde réponse correspond plus à ce que je souhaite.
Ce qui est très bien c’est que l’on ne puisse pas mettre un autre jour RTT à une personne dans la même semaine. Par contre, si l'on change la semaine, le programme est capable de me mettre un autre jour RTT . Or, la même personne ne peut être en RTT en semaine paire et en semaine impaire. Peut-on gérer cela…
Autre souci, j’ai essayé de modifier ton programme pour qu’il puisse gérer également des semaines (tableaux) qui au lieu d’être uniquement en colonne sont également en ligne. Je n’y arrive pas. J’ai un souci au niveau de la sélection des plages…
Autre chose, peut-on trouver un moyen de supprimer en une seule fois le choix que l’on a pu appliquer (bouton "Effacer" supplémentaire dans le formulaire).

Je fournit donc un nouvel exemple (voir mon fichier : CalendExempleBIS.xls), ainsi que le dernier fichier de job75 qui contient son programme.

Je remercie encore fhoest et job75 pour leurs contributions respectives et demande à nouveau leur aide ainsi qu'à l'ensemble des membres du forum.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Code VBA pour colorier des cellules à partir de trois critères

Bonjour NoodleDS,

par rapport au fichier que je t'ai donné il faudrait des textbox remplis par des cellules (semaine pair ou impair choisi par la personne ainsi que les jours souhaités)
revient avec un fichier qui contient les données d'une personne en exemple et je ferais le reste.
A+
 
Vote positif 0 Vote négatif
Re : Code VBA pour colorier des cellules à partir de trois critères

Bonjour fhoest, le forum,

fhoest, ma demande a un peu changé depuis ta contribution. Je souhaite si possible que le programme puisse gérer également des semaines (tableaux) qui au lieu d’être uniquement en colonne sont également en ligne. Je fourni donc un nouveau fichier pour cela (ton code sera présent dans ce fichier).
Sinon, je pense n'avoir pas donné l'information principale pour la réalisation du programme, qui est que la personne fait un choix tous les ans, en début d'année pour toute l'année. Une fois le choix effectué, celle-ci ne peut en déroger. Par exemple, Toto va prendre cette année :

Tous les Lundis des semaines impaires.

L'idée de départ est que le programme doit si possible colorier en une seule fois toutes les cellules concernées. De la même façon, si l'on s'est trompé, il doit permettre de tout effacer en une seule fois, pour pouvoir recommencer.
Ensuite, une fois que le choix est bien effectué et que les cellules sont coloriées, le programme doit empêcher d'effectuer un second choix pour la même personne.

Je te remercie encore fhoest de m'aider et demande à nouveau ton aide ainsi qu'à l'ensemble des membres du forum.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Code VBA pour colorier des cellules à partir de trois critères

Bonjour à tous,

fhoest n'a pas beaucoup de temps actuellement... Est-ce que quelqu'un d'autre peut se pencher sur ma demande ?
Je vous remercie par avance.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
177
Altfkat
A
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
255
PHIL37
P
S
  • Question Question
XL 2016 Problème ajout client et modification code postale dans gestion de stock/clients/factures
Réponses
8
Affichages
286
Piment
P
A
  • Question Question
XL 2019 VBA newbie
3 4 5
Réponses
72
Affichages
1 K
job75
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
258
picc
P
T
  • Question Question
XL 2021 Demande de programme VBA pour calculs de volumes/poids et date du plus ancien produit
Réponses
6
Affichages
143
sylvanu
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
297
chris
Q
  • Question Question
XL 2019 vba pour effacer résultat cellules de plusieurs fichiers a partir d'un fichier distant
Réponses
6
Affichages
264
Phil69970
R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
475
Dranreb
J
  • Résolu(e)
XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée
2
Réponses
22
Affichages
1 K
merinos-BernardEtang
  • Résolu(e)
Microsoft 365 Aide pour un code VBA
Réponses
10
Affichages
859
Véhuel
N
  • Question Question
Microsoft 365 Affichage information de plusieurs cellules à partir d'une seule
Réponses
8
Affichages
310
narkoleptik
N
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
202
AtTheOne
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
553
telemarrk
T
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
635
ali591
A
J
  • Résolu(e)
XL 2019 Important : Nommer fichier grâce aux éléments de publipostage
Réponses
6
Affichages
741
JacquesO
J
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
417
zendb
Z
POWERQUERY :: Tris dynamiques, regroupements et somme
Réponses
1
Affichages
176
merinos-BernardEtang
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
I
  • Résolu(e)
Microsoft 365 remplir un tableau Arr() en vba à partir des cellules visible
Réponses
4
Affichages
895
iliess
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…