Somme des contrats restant à éditer
michel lamy
-
mimilamy2000 Messages postés 4 Statut Membre -
mimilamy2000 Messages postés 4 Statut Membre -
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.
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.
12 réponses
-
-
Bonjour,
J'ai un tableur Lequel ???, PC: Mac ou Windows ??? -
Bonjour
Pardon
il s'agit de windows 7 et excel 2010
merci d'avance -
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 -
-
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??
-
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. -
Bonjour,
comment etandre la selection au ligne du dessous? Je ne saisie pas la question!!! -
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 -
Re,
Ca ne marche que si il y a un "Nom" dans la cellule A pour eviter de compter des contrats sans nom. -
-
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
