XL 2010 la fonction "si"

pierre dupont

XLDnaute Occasionnel
bonjour et d'avance merci de votre une nouvelle fois
voici un tableau de programme des horaires de travail
je ne sais pas faire sinon partiellement ....
je voudrais, en mettant le chiffre de 1 à 7 de la colonne B
dans une case de la colonne D et celle ci affichera les données horaires
et la couleur de la case B correspondante
j'ai tout essayé mais je n'arrive pas je verrais la formule
à mettre que vous voudrez bien me programmer
d'avance merci de votre aide
 

Pièces jointes

  • horaire maxime.xlsx
    12.2 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Pierre, ToofatBoy,
dans une case de la colonne D et celle ci affichera les données horaires
On ne peut pas mettre une valeur dans une cellule et substituer cette valeur à une autre par une formule, sauf en VBA.
Une autre possibilité est de rajouter une colonne où on met ces chiffres de 1 à 7, et gérer l'autre colonne avec :
VB:
=SIERREUR(INDEX($E$37:$E$43;D3);"")
Les couleurs se faisant par MFC :
1709481974745.png
 

Pièces jointes

  • horaire maxime.xlsx
    13 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
... ou "just for the fun" une version en VBA.
Il suffit de rentrer un nombre entre 1 et 7 dans début/fin pour que la substitution soit automatique avec :
VB:
Sub Worksheet_Change(ByVal C As Range)
On Error GoTo Fin: If C.Count > 1 Then Exit Sub
    If Not Intersect(C, [D3:D33]) Is Nothing Then
         Application.EnableEvents = False
         If C >= 1 And C <= 7 Then
            C = Cells(C + 36, "D")
            Range(C.Address).Interior.Color = Cells(C + 36, "C").Interior.Color
         End If
    End If
Fin:
Application.EnableEvents = True
End Sub
 

Pièces jointes

  • horaire maxime.xlsm
    18.8 KB · Affichages: 4

pierre dupont

XLDnaute Occasionnel
... ou "just for the fun" une version en VBA.
Il suffit de rentrer un nombre entre 1 et 7 dans début/fin pour que la substitution soit automatique avec :
VB:
Sub Worksheet_Change(ByVal C As Range)
On Error GoTo Fin: If C.Count > 1 Then Exit Sub
    If Not Intersect(C, [D3:D33]) Is Nothing Then
         Application.EnableEvents = False
         If C >= 1 And C <= 7 Then
            C = Cells(C + 36, "D")
            Range(C.Address).Interior.Color = Cells(C + 36, "C").Interior.Color
         End If
    End If
Fin:
Application.EnableEvents = True
End Sub
merci à vous juste génial encore merci juste une question si je veux mettre la même couleur mais en plus clair comment je peux changer ça moi-même dans la formule que vous me donnez ?
si c'est pas trop compliqué je vais choisir les couleurs dans la palette proposée ou simplement changé dans la case couleur et votre formule fait le reste
d'avance merci pierre dupont
 

pierre dupont

XLDnaute Occasionnel
Bonjour Pierre, ToofatBoy,

On ne peut pas mettre une valeur dans une cellule et substituer cette valeur à une autre par une formule, sauf en VBA.
Une autre possibilité est de rajouter une colonne où on met ces chiffres de 1 à 7, et gérer l'autre colonne avec :
VB:
=SIERREUR(INDEX($E$37:$E$43;D3);"")
Les couleurs se faisant par MFC :
Regarde la pièce jointe 1192079
super merci à vous
 

pierre dupont

XLDnaute Occasionnel
... ou "just for the fun" une version en VBA.
Il suffit de rentrer un nombre entre 1 et 7 dans début/fin pour que la substitution soit automatique avec :
VB:
Sub Worksheet_Change(ByVal C As Range)
On Error GoTo Fin: If C.Count > 1 Then Exit Sub
    If Not Intersect(C, [D3:D33]) Is Nothing Then
         Application.EnableEvents = False
         If C >= 1 And C <= 7 Then
            C = Cells(C + 36, "D")
            Range(C.Address).Interior.Color = Cells(C + 36, "C").Interior.Color
         End If
    End If
Fin:
Application.EnableEvents = True
End Sub
1709455250864.png
 

pierre dupont

XLDnaute Occasionnel
Le plus simple, et de loin, est de modifier la palette donnée dans le tableau du bas.
Car "éclaircir" une couleur n'est pas simple en jouant avec les valeurs RGB.
j 'ai un souci lorsque j'efface la colonne début et fin et que je donne après des chiffres de 1 à 7 pour faire le planning la couleur et la date ne correspondent plus décalé d'un rang 1 = 2 et ainsi de suite
petit beug ou petite erreur ?
 

pierre dupont

XLDnaute Occasionnel
j 'ai un souci lorsque j'efface la colonne début et fin et que je donne après des chiffres de 1 à 7 pour faire le planning la couleur et la date ne correspondent plus décalé d'un rang 1 = 2 et ainsi de suite
petit beug ou petite erreur ?
je viens de trouver pourquoi j'ai supprimé la dernière ligne inutile dans la colonne des dates, dés que je fais ça il y a un décalage dans la liste des couleurs lorsque je met 1 on affiche le résultats 2 et ainsi de suite
 

pierre dupont

XLDnaute Occasionnel
je viens de trouver pourquoi j'ai supprimé la dernière ligne inutile dans la colonne des dates, dés que je fais ça il y a un décalage dans la liste des couleurs lorsque je met 1 on affiche le résultats 2 et ainsi de suite
si je mets une couleur plus clair dans la case référence couleur ça ne la met pas dans la case debut/fin on affiche la couleur initiale pourtant j'ai activé les modifications je sais je deviens encombrant lollll
d'avance merci de votre patience
 

Discussions similaires

Statistiques des forums

Discussions
313 230
Messages
2 096 410
Membres
106 604
dernier inscrit
JulienMan