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