XL 2010 la fonction "si"

[pierre dupont]

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

 

[TooFatBoy]

bonjour tu veux mettre 1
que ça t'affiche 14h45
23h15 dans la cellule
que t'as mis 1 c'est pas
possible de le faire tu comprends
bien que ça ne l'est pas sans vba

 

[sylvanu]

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 :

=SIERREUR(INDEX($E$37:$E$43;D3);"")

Les couleurs se faisant par MFC :

 

[sylvanu]

... 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 :

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

 

[pierre dupont]

... 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 :

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]

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 :

=SIERREUR(INDEX($E$37:$E$43;D3);"")

Les couleurs se faisant par MFC :
Regarde la pièce jointe 1192079

super merci à vous

 

[pierre dupont]

... 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 :

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

 

[pierre dupont]

Regarde la pièce jointe 1192088

tiens il y a un point d'exclamation sur le raccourci je comprends pas

 

[sylvanu]

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 ?

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.

 

[pierre dupont]

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]

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

 

[sylvanu]

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

C'est normal. Si vous supprimez la ligne du tableau, les index sont décalés.

 

[pierre dupont]

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

 

[pierre dupont]

svp et pour le changement de couleur le fait de changer la couleur dans la case référence ne fonctionne pas vous avez trouvé la solution sinon tant pis

 

[TooFatBoy]

Tu peux aussi passer par des MFC. 😉