Liste deroulante pour un remplissage automatique

[vserrano]

Bonjour

je vous joint un tableau ci joint
voici ce qui comporte
un planning ou je dois inscrire ce qui a ete fait pour chaque personne selon la legende avec l intitule mais aussi la couleur
normalement nous le remplissons manuellement mais ce que je voudrai c est que des que je mets exemple cloture a une personne pour telle jour la couleur a l intitule ce mette automatiquement

cordialement

merci de votre aide

 

[BOISGONTIER]

Re : Liste deroulante pour un remplissage automatique

Bonjour,

Voir PJ

JB
Formation Excel VBA JB

 

[JNP]

Re : Liste deroulante pour un remplissage automatique

Bonjour Vserrano et bienvenu 🙂,
Si tu utilises des listes de validation, la couleur ne suivra pas. Il va donc falloir passer par du VBA. Voici une macro de remplissage à adapter :

Public TexteRemplissage As String, CouleurFond As Integer, NomPolice As String
Public CouleurPolice As Integer, GraissePolice As Boolean
Sub RemplissageCellule()
' texte
    Selection.FormulaR1C1 = TexteRemplissage
' couleur cellule
    With Selection.Interior
        .ColorIndex = CouleurFond
        .Pattern = xlSolid
    End With
' police
    With Selection.Font
        .Name = NomPolice
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
' texte noir
    Selection.Font.ColorIndex = CouleurPolice
' maigre
    Selection.Font.Bold = GraissePolice
' Alignement
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
'        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
' Filets autour
    With Selection.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

que tu peux renseigner avec une sub par type d'affichage

Sub PrépLaMEP()
TexteRemplissage = "Prép. La MEP"
CouleurFond = 15
NomPolice = "Arial"
CouleurPolice = 1
GraissePolice = False
Application.Run "RemplissageCellule"
End Sub

Il te suffit de construire une sub par type de remplissage de cellule. Puis, avec une palette personnalisée, il te restera à affecter chaque macro dans un menu déroulant.
Bon courage 😎
Rajout : Bonjour Boisgontier. Chapeau, ton approche est plus simple...

 

[vserrano]

Re : Liste deroulante pour un remplissage automatique

bonjour

merci beaucoup mais est il possible de mettre la couleur qui correspond a l intitule

Cordialement

 

[JNP]

Re : Liste deroulante pour un remplissage automatique

Re 🙂,
Teste le fichier de Boisgontier, la couleur est récupérée quand tu choisis dans la liste déroulante (il ne faut pas oublier d'accepter les macros...).
Bonne journée 😎

 

[Robert]

Re : Liste deroulante pour un remplissage automatique

Bonjour le fil, bonjour le forum,

Vachement en retard moi !... Tant pis j'envoie quand même puisque j'ai pris le temps de commenter le code. Utilisation d'une liste de validation (avec suppression des espaces en fin de texte..) + Code VBA.

 

[vserrano]

Re : Liste deroulante pour un remplissage automatique

merci beaucoup a vous tous
mais oupss ca me mets pas a couleur

merci

 

[Robert]

Re : Liste deroulante pour un remplissage automatique

Bonjour le fil, bonjour le forum,

Vserrano tu serais pas un peu "bègue des mains" comme on dit à Sète... ?

 

[vserrano]

Re : Liste deroulante pour un remplissage automatique

ah j avais pas l activation de la macro
en tout cas merci beaucoup c genial
bonne journee

 

[vserrano]

Re : Liste deroulante pour un remplissage automatique

c est encore moi

j ai un petit souci c est que la ligne 17 il n y a pas de liste deroulante et si c possible de l etendre jusqua la ligne 50

merci encore

 

[BOISGONTIER]

Re : Liste deroulante pour un remplissage automatique

Voir PJ
Il suffit de recopier les cellules.

JB

 

[vserrano]

Re : Liste deroulante pour un remplissage automatique

Merci Monsieur