Forums XLPages

Excel & VBA Forum principal [résolu] Additionner par couleur

Additionner par couleur
#1
272129
Aspirant XLPages

Inscription: 27/02/2008
De Strasbourg

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 13-12-2010 16h11
 Bonjour a tous 
j'ai créer un planning avec des cellules que je remplis en noir et qui correspondent à des heures:
Exemple du lundi pour la personne "M" qui travaille de 8h30 à 13 h, effectue donc 4h30 en sachant que chaque cellules vaut 0,5 (1/2 heure),
comment faire pour que le total 4,50 s'affiche en mettant les cellules E,F,G,H,I,J,K,L,5 en noir.
 
Ensuite de même pour le nombres de pers. qui travaillent par tranche horaire: (verticale)
exemple T15 =4 personnes
existe-t-il une macro qui peu automatiser cela,si ume personne pouvais me donner la solution
d'avance un grand merci

ci-joint le fichier
cordialement




Pièce jointe:
xls 5.xls   [ Taille: 38.00 Ko - Téléchargements: 542 ]
Hors Ligne
 Rapport   Haut 

Re: Additionner par couleur
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 13-12-2010 23h12
Bonsoir 272129, le Forum,

La solution, tu l'as déjà dans ton fichier (ou tu l'avais ?)  :
  • Colorer les cellules souhaitées en Noir grâce à l'utilisation du format conditionnel : la saisie d'un « 1 » dans la cellule provoque la coloration du fond de cellule en noir.
  • La couleur d'écriture étant elle-même par défaut sur noir, la valeur « 1 » saisie est donc invisible dans ces cellules.
  • Avec des formules de calcul très simples (comme celles déjà inscrites en cellules AD9 et V15 ,par exemple), tu détiens déjà la réponse la plus simple pour ton problème.

Tu as donc visiblement déjà une solution pour ta demande et c'est cette solution là que j'allais moi-même te proposer.

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Additionner par couleur
#3
272129
Aspirant XLPages

Inscription: 27/02/2008
De Strasbourg

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 14-12-2010 10h39
Bonjour,

merci pour cette réponse rapide positive
 

Edité par 272129 le 14/12/2010 15:35:13
Hors Ligne
 Rapport   Haut 

Re: Additionner par couleur
#4
272129
Aspirant XLPages

Inscription: 27/02/2008
De Strasbourg

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 14-12-2010 15h52
Bonsoir 

Une dernière petite chose

1. Est-il possible de faire en sorte que juste en cliquant sur une cellule
--> un « 1 » apparaît automatiquement  dans la cellule, et provoque la coloration du fond de la cellule en noir.

2. Et en cliquant à nouveau sur celle-ci, elle devient à nouveau neutre.

3. existe-t-il un moyen d'activer/désactiver le procéder 

 Ca se complique un peu non?

Très cordialement
Hors Ligne
 Rapport   Haut 

Re: Additionner par couleur
#5
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 14-12-2010 23h52
Bonsoir 272129,

Si j'ai bien compris la situation, tu trouveras en pièce jointe mon interprétation du problème...

Un clic droit sur une cellule "Horaire" provoque l'insertion de la valeur 1 (et donc de sa couleur de fond en noir) et un autre clic droit efface cette valeur.

Tu peux également agir par « plage » en sélectionnant d'abord les cellules souhaitées et en faisant un clic droit sur cette sélection.

Pour réaliser ça, j'ai d'abord créé une plage nommée « zoneHeures » englobant l'ensemble des cellules Horaire sur la feuille (toutes journées confondues). (Pour apprendre à nommer une plage, voir l'excellent tutoriel de notre amie Mth : Nommer une Plage de Cellules)

J'ai ensuite fait un grand nettoyage de la feuille de calcul :
  • en appliquant le format conditionnel uniquement là où il y en a besoin.
  • en recréant les formules correctes de Total Heures et Nbre de personnes (ça je l'ai fait uniquement sur la journée du Lundi, je te laisse vérifier le reste...)

J'ai ensuite ajouté le simple code VBA suivant dans le module de code de la feuille "S52" :
Option Explicit

'myDearFriend!  -  www.mdf-xlpages.com
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
    Set Plage = Application.Intersect(Target, Range("zoneHeures"))
    If Not Plage Is Nothing Then
        Cancel = True
        Plage.Value = IIf(Target(1).Value = 1, "", 1)
    End If
End Sub

En espérant que ça te convienne...

Cordialement,
Pièce jointe:
zip Pour272129.zip   [ Taille: 14.82 Ko - Téléchargements: 535 ]
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Additionner par couleur
#6
272129
Aspirant XLPages

Inscription: 27/02/2008
De Strasbourg

Messages: 25

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 17-12-2010 13h47
Didier mDF

Merci beaucoup

c'est exactement ça, en plus avec les explications bravo.

Bonnes fêtes de fin d'année à tous

272129 
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes