Somme des contrats restant à éditer

Fermé

michel lamy - Modifié par 00lina00 le 27/12/2012 à 10:24
mimilamy2000 Messages postés 4 Date d'inscription jeudi 27 décembre 2012 Statut Membre Dernière intervention 6 mars 2013 - 21 févr. 2013 à 11:22

Bonjour,

Comme prévisionnel
J'ai un tableur avec nom de personnes en colonne 1 puis des types de contrats en colonne 2, 3 ect
Quand mon client me dit qu'il est ok pour un ou plusieurs contrats je met le nombre de contrats en rouge en dessous de la colonne correspondant aux types de contrats qu'il veux.
Quand j'ai créé informatiquement le ou les contrats sur mon logiceil de contrat je change la couleur de police en noir comme cela je vois exactement le nombre de contrats prévus pour le mois ainsi que le nombre de contrats déjas saisie informatiquement
Je sais calculer le nobre de contrats totaux
Par contre je ne sais pas comment faire la somme des contrats me restant à éditer (ceux ecrit en rouge) ainsi que le nombre de contrats déjas édités (ecrit en noir)

exemple: Monsieur X veux 2 contrat autos, 1 pj, 1 complémentaires santé
j'écris 2 puis 1 puis 1 en rouge en dessous des colonnes auto pj et santé
une fois que j'ai créé les contrats je change la couleur en noire

merci d'avacne.

A voir également:

Somme des contrats restant à éditer
Somme si couleur - Guide
Somme excel - Guide
Comment editer un pdf - Guide
Somme si ens date comprise entre ✓ - Forum Excel
La diapositive s'affiche progressivement en secondes puis reste affichée secondes à l'écran. ✓ - Forum Powerpoint

12 réponses

Réponse 1 / 12

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
27 déc. 2012 à 14:28

Regardez ce fichier:

https://www.cjoint.com/?BLBoBW9mfYr

A+

Réponse 2 / 12

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
27 déc. 2012 à 11:49

Bonjour,

J'ai un tableur Lequel ???, PC: Mac ou Windows ???

Réponse 3 / 12

mimilamy2000 Messages postés 4 Date d'inscription jeudi 27 décembre 2012 Statut Membre Dernière intervention 6 mars 2013
27 déc. 2012 à 12:06

Bonjour

Pardon

il s'agit de windows 7 et excel 2010

merci d'avance

Réponse 4 / 12

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
27 déc. 2012 à 12:20

Re bonjour,

Vous pourriez faire une maquette de votre fichier, parce que je vois pas comment vos donnees sont empilees. Quelle la donnee en rouge et en noire qui est essentielle pour distinguer ce qui est imprime ou pas??

Lien pour mettre a dispo: https://www.cjoint.com/ Copiez le lien cree dans votre prochain post.

Merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 12

mimilamy2000
27 déc. 2012 à 13:13

Re bonjour

ci joint le doc

http://cjoint.com/?0LBnmBqMMdI

cordialement

Michel

Réponse 6 / 12

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
27 déc. 2012 à 13:45

Si j'ai compris: il faut compter les cellules non vides en rouge et en noir. Inscrire le resultat en L7C11 et L8C11. Oui/Non??

Réponse 7 / 12

mimilamy2000
28 déc. 2012 à 12:10

Bonjour Monsieur

un grand merci pour votre aide
pouriez vous m'expliquer comment vous avez fait ?
et comment etandre la selection au ligne du dessous?
merci d'avance.

Réponse 8 / 12

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
28 déc. 2012 à 15:17

Bonjour,

comment etandre la selection au ligne du dessous? Je ne saisie pas la question!!!

Réponse 9 / 12

mimilamy2000
Modifié par mimilamy2000 le 28/12/2012 à 16:32

Re bonjour
en fait le compteur fonctionne jusqu'a la ligne 5 puis apres c'a ne fonctionnne plus
j'aurais besoins jusqu'a la ligne 150.
exemple si je met un chiffre en case B 9 ou 10 ou n'importe quoi apres en dessous de la ligne 5 les compteurs ne fonctionnent pas

merci d'avance
je pense que vous avez fait cela avec une macro mais j'aimerais comprendre ce que vous avez fait si cela est possible pour vous de m'expliquer

encore merci

Réponse 10 / 12

f894009 Messages postés 17189 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 6 mai 2024 1 705
28 déc. 2012 à 20:11

Re,

Ca ne marche que si il y a un "Nom" dans la cellule A pour eviter de compter des contrats sans nom.

Réponse 11 / 12

Mimilamy2000
28 déc. 2012 à 23:24

Encore merci
Tout est parfait pour moi
Sujet clos

Réponse 12 / 12

mimilamy2000 Messages postés 4 Date d'inscription jeudi 27 décembre 2012 Statut Membre Dernière intervention 6 mars 2013
21 févr. 2013 à 11:22

Bonjour Monsieur

merci encore pour votre aide précieuse.
j'ai voulu rajouter une autre catégorie de contrat et j'ai fait les modif suivante:

code source originale:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dla As Integer, Plage As Range, cel As Range
Dim Contrats_Rouge, Contrats_Noir
Dim CntRouge(8), CntNoir(6)

'pour la dernière ligne de la colonne A
dla = [A:A].Cells(Rows.Count, 1).End(xlUp).Row

<gras>Set Plage = Range("B2:H" & dla)
Erase CntRouge, CntNoir

For Each cel In Plage
If cel <> "" Then
Nb_Cnt = cel
If cel.Font.Color = vbRed Then
Contrats_Rouge = Contrats_Rouge + Nb_Cnt
'Auto Incendie GAV Acc Vie PJ Santé Autre
Select Case Cells(1, cel.Column)
Case "Auto"
CntRouge(0) = CntRouge(0) + Nb_Cnt
Case "Incendie"
CntRouge(1) = CntRouge(1) + Nb_Cnt
Case "GAV"
CntRouge(2) = CntRouge(2) + Nb_Cnt
Case "Vie"
CntRouge(3) = CntRouge(3) + Nb_Cnt
Case "PJ"
CntRouge(4) = CntRouge(4) + Nb_Cnt
Case "Santé"
CntRouge(5) = CntRouge(5) + Nb_Cnt
Case "Autre"
CntRouge(6) = CntRouge(6) + Nb_Cnt
End Select
ElseIf cel.Font.Color = vbBlack Then
Contrats_Noir = Contrats_Noir + Nb_Cnt
'Auto Incendie GAV Acc Vie PJ Santé Autre
Select Case Cells(1, cel.Column)
Case "Auto"
CntNoir(0) = CntNoir(0) + Nb_Cnt
Case "Incendie"
CntNoir(1) = CntNoir(1) + Nb_Cnt
Case "GAV"
CntNoir(2) = CntNoir(2) + Nb_Cnt
Case "Vie"
CntNoir(3) = CntNoir(3) + Nb_Cnt
Case "PJ"
CntNoir(4) = CntNoir(4) + Nb_Cnt
Case "Santé"
CntNoir(5) = CntNoir(5) + Nb_Cnt
Case "Autre"
CntNoir(6) = CntNoir(6) + Nb_Cnt
End Select
Else
End If
End If
Next cel
'Totaux
Range("K9") = Contrats_Rouge
Range("K10") = Contrats_Noir
Range("K7") = Contrats_Rouge + Contrats_Noir
'Details par rubriques
For x = 0 To 6
Cells(4, x + 10) = CntRouge(x)
Cells(5, x + 10) = CntNoir(x)
Next x
End Sub

code source modifié par mes soins

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dla As Integer, Plage As Range, cel As Range
Dim Contrats_Rouge, Contrats_Noir
Dim CntRouge(8), CntNoir(6)

'pour la dernière ligne de la colonne A
dla = [A:A].Cells(Rows.Count, 1).End(xlUp).Row

<gras>Set Plage = Range("B2:I" & dla)
Erase CntRouge, CntNoir

For Each cel In Plage
If cel <> "" Then
Nb_Cnt = cel
If cel.Font.Color = vbRed Then
Contrats_Rouge = Contrats_Rouge + Nb_Cnt
'Auto Incendie GAV Acc Vie PJ Santé Autre Prev
Select Case Cells(1, cel.Column)
Case "Auto"
CntRouge(0) = CntRouge(0) + Nb_Cnt
Case "Incendie"
CntRouge(1) = CntRouge(1) + Nb_Cnt
Case "GAV"
CntRouge(2) = CntRouge(2) + Nb_Cnt
Case "Vie"
CntRouge(3) = CntRouge(3) + Nb_Cnt
Case "PJ"
CntRouge(4) = CntRouge(4) + Nb_Cnt
Case "Santé"
CntRouge(5) = CntRouge(5) + Nb_Cnt
Case "Autre"
CntRouge(6) = CntRouge(6) + Nb_Cnt
Case "Prev"
CntRouge(6) = CntRouge(6) + Nb_Cnt
End Select
ElseIf cel.Font.Color = vbBlack Then
Contrats_Noir = Contrats_Noir + Nb_Cnt
'Auto Incendie GAV Acc Vie PJ Santé Autre Prev
Select Case Cells(1, cel.Column)
Case "Auto"
CntNoir(0) = CntNoir(0) + Nb_Cnt
Case "Incendie"
CntNoir(1) = CntNoir(1) + Nb_Cnt
Case "GAV"
CntNoir(2) = CntNoir(2) + Nb_Cnt
Case "Vie"
CntNoir(3) = CntNoir(3) + Nb_Cnt
Case "PJ"
CntNoir(4) = CntNoir(4) + Nb_Cnt
Case "Santé"
CntNoir(5) = CntNoir(5) + Nb_Cnt
Case "Autre"
CntNoir(6) = CntNoir(6) + Nb_Cnt
Case "Prev"
CntNoir(7) = CntNoir(7) + Nb_Cnt
End Select
Else
End If
End If
Next cel
'Totaux
Range("L9") = Contrats_Rouge
Range("L10") = Contrats_Noir
Range("L7") = Contrats_Rouge + Contrats_Noir
'Details par rubriques
For x = 0 To 7
Cells(4, x + 11) = CntRouge(x)
Cells(5, x + 11) = CntNoir(x)
Next x
End Sub

cependant j'ai une erreur dans le code et un debugage à faire mais je ne comprend pas pourquoi .
je vous met en lien le fichier modifié.

https://www.cjoint.com/?0BvllvtWRVF

merci d'avance de votre aide

Discussions similaires

calcule nombre des pixels "noir" dans un image (noir/blanc)

somme dans excel toujours =0

Excel, Formule =SOMME ne fonctionne pas

RECHERCHEV additionne les plusieurs lignes du meme nom

Somme SI égal ou inférieur à aujourd'hui !

Discussions similaires

Newsletters