XL 2010 tableau pour consommation d'électricité

pierre dupont · 29 Septembre 2022

Bonjour
d'avance merci de vos réponses
Je viens de faire un tableau très simple pour répertorier
par heure de la journée les activités qui utilisent l'électricité
en quantité importante pour comparer aux résultats du compteur linky.
ma question ou demande d'aide :
je voudrai mettre une liste déroulante à chaque cellule avec les couleurs
correspondantes à une activité de la légende , est-ce possible de mettre
cette liste déroulante à toute les cellules en une action ou faut-il la mettre
individuellement à chaque cellule ce qui ferait 31joursx24heure actions = 744 programmations à faire
s'il y a une façon plus simple de faire je suis preneur d'avance merci
amicalement pierre dupont
ci joint mon tableau plus que simple pour des pros comme vous
je suis preneur d'une version autre si vous en avez !!!

pierre dupont · 3 Octobre 2022

super j 'ai trouvé ou le faire grand merci de votre patience avec moi
mais je ne sais toujours pas comment créer un groupe "activité "
amicalement pierre dupont

sylvanu · 3 Octobre 2022

Bonjour,
En faisant Formules/Gestionnaire de noms et nouveau ou modifier

pierre dupont · 3 Octobre 2022

sylvanu à dit:
Bonjour,
En faisant Formules/Gestionnaire de noms et nouveau ou modifier

plus que super vous alors encore merci
je croyais pouvoir changer la couleur de la police dans la cellule couleur en changeant dans la liste lollll fonctionne pas je voulais mettre en blanc pour certaines couleurs foncées le mot sortirait mieux
j ai créer une liste jour de la semaine enfin j ai réussi ça roule
petit inconvénient en mettent données en liste on ne vous propose pas les listes disponibles lolll

sylvanu · 3 Octobre 2022

Pour changer la couleur des polices, cliquez sur B3 puis Accueil/Mise en forme.../Gérer les règles.
Vous avez toutes les règles. Cliquez sur celle qui vous intéresse puis Modifier la règle puis Format et dans Police changez Couleur. Puis OK, OK, OK.

pierre dupont · 3 Octobre 2022

sylvanu à dit:
Pour changer la couleur des polices, cliquez sur B3 puis Accueil/Mise en forme.../Gérer les règles.
Vous avez toutes les règles. Cliquez sur celle qui vous intéresse puis Modifier la règle puis Format et dans Police changez Couleur. Puis OK, OK, OK.
Regarde la pièce jointe 1151225

voila je viens de changer la couleur des polices de mon tableau c est tellement simple si on sait faire
merci à vous excell c'est immense lolll

pierre dupont · 3 Octobre 2022

rebonjour et merci de votre aide je viens d'apprendre quelques fonctions grâce à vous et surtout votre patience et compréhension les personnes concernées se reconnaitront merci à vous
créer une liste , gérer les listes, mettre sous forme conditionnelle ,etc. etc
ci joint mon tableau final corrigé : j'ai ajouté des noms dans ma nouvelle liste "machine" et enlever les couleurs il y en avait trop et peu différends à prévoir (plus que les couleurs de base)
si quelqu'un voit une amélioration à faire je suis preneur d'avance merci

sylvanu · 3 Octobre 2022

Bonsoir Pierre,
Just for the fun ...
1- 1ere PJ : On peut agrandir la liste de légende, et en mettant en liste déroulante :

VB:

=DECALER($G$35;0;0;NB.SI($G$35:$G$53;"<>"))

On a dans la liste que les éléments sans les blancs.
On peut rajouter un item dans la liste et les listes déroulantes se mettront à jour automatiquement.
2- 2eme PJ : Idem mais avec un peu de VBA.
Dans la légende on met pour chaque item la couleur de fond et celle du texte, et quand on choisit un item la mise en couleur est automatique. Avec :

Code:

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B3:Y33")) Is Nothing Then
         Ad = Application.Index([machine], Application.Match(Target, [machine], 0)).Address
         Target.Interior.Color = Range(Ad).Interior.Color
         Target.Font.Color = Range(Ad).Font.Color
    End If
Exit Sub
Fin:
Target.Interior.Color = RGB(255, 255, 255)
End Sub

pierre dupont · 4 Octobre 2022

sylvanu à dit:
Bonsoir Pierre,
Just for the fun ...
1- 1ere PJ : On peut agrandir la liste de légende, et en mettant en liste déroulante :

VB:

=DECALER($G$35;0;0;NB.SI($G$35:$G$53;"<>"))

On a dans la liste que les éléments sans les blancs.
On peut rajouter un item dans la liste et les listes déroulantes se mettront à jour automatiquement.
2- 2eme PJ : Idem mais avec un peu de VBA.
Dans la légende on met pour chaque item la couleur de fond et celle du texte, et quand on choisit un item la mise en couleur est automatique. Avec :

Code:

Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fin: If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("B3:Y33")) Is Nothing Then Ad = Application.Index([machine], Application.Match(Target, [machine], 0)).Address Target.Interior.Color = Range(Ad).Interior.Color Target.Font.Color = Range(Ad).Font.Color End If Exit Sub Fin: Target.Interior.Color = RGB(255, 255, 255) End Sub

super je vais adopter cette version et essayer d'ajouter des lignes en menu déroulant pour ameliorer mes connaissances excell grâce à vous encore merci !!!!
je vais créer un nouveau qui n'a rien à voir avec celui là

nat54 · 4 Octobre 2022

re,

@sylvanu : ah oui c'est un autre niveau que mes MFC ^^

pierre dupont · 4 Octobre 2022

nat54 à dit:
re,

@sylvanu : ah oui c'est un autre niveau que mes MFC ^^

et moi donc le basique aux simples formules lolll
il est bien que ces experts partagent j apprécie vraiment !!!

XL 2010 tableau pour consommation d'électricité

pierre dupont

XLDnaute Occasionnel

Pièces jointes

pierre dupont

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

pierre dupont

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

pierre dupont

XLDnaute Occasionnel

pierre dupont

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

pierre dupont

XLDnaute Occasionnel

nat54

XLDnaute Barbatruc

pierre dupont

XLDnaute Occasionnel

Discussions similaires