Masquer la première ligne du Listview
Non en soit c'est la dernière chose qu'il reste à réaliser...
Juste le calcul automatique lors de l'ajout de l'honoraire moyen et des objectifs, pour que j'ai le CA en fonction des deux paramètres (hono moyen et obj).
Il faut penser à tous les cas de figure d'abord. exemple :
- vous modifiez une textbox quantité. Il se passe quoi si txthono est vide
TxtHono ne peut être vide donc il faut forcé pour qu'il y est une valeur.
- vous avez rempli toutes ou une partie des txtbox quantité mais txthono doit être changée suite à une erreur...
Toute les txtc (objectifs) ne seront pas forcément remplies, donc la dessus faut laisser de la souplesse. Par contre il faut pouvoir revenir dessus pour modifier les valeurs des objectifs et que le calcul hono * objectif se fasse.
- Concrètement, je vais me servir du formulaire comment :
Je vais prendre un par un mes collabs, et je vais rentrer un honoraire moyen et un objectif mensuel pour chaque collaborateurs. J'aimerai avoir le CA qui en découle par mois pour chaque collab. mais il faut que le calcul se fasse automatiquement. Le USF me sert à saisir les valeurs mais aussi à les corriger en fonction du CA par collab. Dans un deuxième temps je vais ajuster les objectifs mensuels mais aussi l'honoraire moyen. C'est pour cela que j'aurai aimé que le CA se calcul automatiquement. Oui il se fait dans l'onglet test avec la formule mais quand je modifie une ligne par le USF, la formule se détruit et laisse place au nombre en dur. j'aurai aimé que cette formule reste même après que je modifie une ligne par le USF.
J'ai besoin d'avoir le visuel sur mon CA en temps réel presque. Parce que la ça ne s'actualise pas, ça détruit la formule dans l'onglet test pour toutes les colonnes CA mais aussi pour les colonnes totaux avec la formule somme prod. En fait ça détruit vraiment tout pour remplacer par les chiffres saisies.
En fait je me demande s'il faudrait pas que lorsque je saisie les TXTc (les objectifs), les TXT CA ne servent pas à ajouter mais juste à visualiser le CA. Comme ça, ça ne va pas ajouter des chiffres dans les colonnes CA.
Je suis vraiment désole Dan avec mes bêtises
TxtHono ne peut être vide donc il faut forcé pour qu'il y est une valeur.
Si vous avez rempli toutes vos txtc et que vous vous êtes trompé dans le txthono, vous allez devoir tout refaire. Donc cela vaut la peine d'y penser et d'avoir un code qui remet à jour toutes les txtCA
Toute les txtc (objectifs) ne seront pas forcément remplies, donc la dessus faut laisser de la souplesse. Par contre il faut pouvoir revenir dessus pour modifier les valeurs des objectifs et que le calcul hono * objectif se fasse.
C'est pas un souci cela. L'idée finale est que le calcul se fasse toujours dès que vous changez une valeur dans la txtmois et comme expliqué avant dans la txthono
j'aurai aimé que cette formule reste même après que je modifie une ligne par le USF.
Comme je vous ai dit cela alourdira le fichier et donc ralentira l'exécution du calcul. Si vous y tenez, il faudra supprimer les instructions actuelles dans le code
Un premier point ou plutôt idée :
Je propose de modifier le nom des txtmois. Exemple : txtCjuin1 deviendrait txtCOBjuin1, txtCjuin2 deviendrait txtCOBjuin2
Cela ne concernerait que les mois pas les totaux pour l'instant
Etes-vous d'accord sur ce point ?
Dan j'ai réussi ma bétise
Private Sub BtnModifier_Click()
Dim i As Integer
Dim f As Worksheet
' If Not Validate Then
' Exit Sub
' End If
Set f = ThisWorkbook.Sheets("BDD_TRA_LOA_LOS")
With ListView1.SelectedItem
.Text = CboEntite
.ListSubItems(1).Text = CboAct
.ListSubItems(2).Text = CboSecteur
.ListSubItems(3).Text = CboMana
.ListSubItems(4).Text = CboAgence
.ListSubItems(5).Text = CboBankImmo
.ListSubItems(6).Text = CboTEncartage
.ListSubItems(7).Text = CboCollab
.ListSubItems(8).Text = TxtHono
.ListSubItems(9).Text = TxtCJuin1
'.ListSubItems(10).Text = TxtCAJuin1
.ListSubItems(11).Text = TxtCJuillet1
'.ListSubItems(12).Text = TxtCAJuillet1
.ListSubItems(13).Text = TxtCAout1
'.ListSubItems(14).Text = TxtCAAout1
.ListSubItems(15).Text = TxtCSept1
'.ListSubItems(16).Text = TxtCASept1
.ListSubItems(17).Text = TxtCOct
'.ListSubItems(18).Text = TxtCAOct1
.ListSubItems(19).Text = TxtCNov1
'.ListSubItems(20).Text = TxtCANov1
.ListSubItems(21).Text = TxtCDec1
'.ListSubItems(22).Text = TxtCADec1
.ListSubItems(23).Text = TxtCJan1
'.ListSubItems(24).Text = TxtCAJan1
.ListSubItems(25).Text = TxtCFev1
'.ListSubItems(26).Text = TxtCAFev1
.ListSubItems(27).Text = TxtCMars1
'.ListSubItems(28).Text = TxtCAMars1
.ListSubItems(29).Text = TxtCAvril1
'.ListSubItems(30).Text = TxtCAAvril1
.ListSubItems(31).Text = TxtCMai1
'.ListSubItems(32).Text = TxtCAMai1
'.ListSubItems(33).Text = TxtCTot1
'.ListSubItems(34).Text = TxtCATot1
.ListSubItems(35).Text = TxtCJuin2
'.ListSubItems(36).Text = TxtCAJuin2
.ListSubItems(37).Text = TxtCJuillet2
'.ListSubItems(38).Text = TxtCAJuillet2
.ListSubItems(39).Text = TxtCAout2
'.ListSubItems(40).Text = TxtCAAout2
.ListSubItems(41).Text = TxtCSept2
'.ListSubItems(42).Text = TxtCASept2
'.ListSubItems(43).Text = TxtCTotCom2
'.ListSubItems(44).Text = TxtCATotCom2
.ListSubItems(45).Text = TxtCOct2
'.ListSubItems(46).Text = TxtCAOct2
.ListSubItems(47).Text = TxtCNov2
'.ListSubItems(48).Text = TxtCANOv2
.ListSubItems(49).Text = TxtCDec2
'.ListSubItems(50).Text = TxtCADec2
'.ListSubItems(51).Text = TxtCTot2
'.ListSubItems(52).Text = TxtCATot2
.ListSubItems(53).Text = TxtCom
End With
Dim pivotCell As Range
Set pivotCell = f.Range("A" & (ListView1.SelectedItem.Index + 1))
With pivotCell
.Value = CboEntite.Value
.Offset(0, 1).Value = CboAct
.Offset(0, 2).Value = CboSecteur
.Offset(0, 3).Value = CboMana
.Offset(0, 4).Value = CboAgence
.Offset(0, 5).Value = CboBankImmo
.Offset(0, 6).Value = CboTEncartage
.Offset(0, 7).Value = CboCollab
.Offset(0, 8).Value = CDbl_Agnostic(TxtHono)
.Offset(0, 9).Value = CDbl_Agnostic(TxtCJuin1)
'.Offset(0, 10).Value = CDbl_Agnostic(TxtCAJuin1)
.Offset(0, 11).Value = CDbl_Agnostic(TxtCJuillet1)
' .Offset(0, 12).Value = CDbl_Agnostic(TxtCAJuillet1)
.Offset(0, 13).Value = CDbl_Agnostic(TxtCAout1)
'.Offset(0, 14).Value = CDbl_Agnostic(TxtCAAout1)
.Offset(0, 15).Value = CDbl_Agnostic(TxtCSept1)
'.Offset(0, 16).Value = CDbl_Agnostic(TxtCASept1)
.Offset(0, 17).Value = CDbl_Agnostic(TxtCOct1)
' .Offset(0, 18).Value = CDbl_Agnostic(TxtCAOct1)
.Offset(0, 19).Value = CDbl_Agnostic(TxtCNov1)
'.Offset(0, 20).Value = CDbl_Agnostic(TxtCANov1)
.Offset(0, 21).Value = CDbl_Agnostic(TxtCDec1)
'.Offset(0, 22).Value = CDbl_Agnostic(TxtCADec1)
.Offset(0, 23).Value = CDbl_Agnostic(TxtCJan1)
'.Offset(0, 24).Value = CDbl_Agnostic(TxtCAJan1)
.Offset(0, 25).Value = CDbl_Agnostic(TxtCFev1)
'.Offset(0, 26).Value = CDbl_Agnostic(TxtCAFev1)
.Offset(0, 27).Value = CDbl_Agnostic(TxtCMars1)
'.Offset(0, 28).Value = CDbl_Agnostic(TxtCAMars1)
.Offset(0, 29).Value = CDbl_Agnostic(TxtCAvril1)
'.Offset(0, 30).Value = CDbl_Agnostic(TxtCAAvril1)
.Offset(0, 31).Value = CDbl_Agnostic(TxtCMai1)
' .Offset(0, 32).Value = CDbl_Agnostic(TxtCAMai1)
.Offset(0, 33).Value = CDbl_Agnostic(TxtCTot1)
'.Offset(0, 34).Value = CDbl_Agnostic(TxtCATot1)
.Offset(0, 35).Value = CDbl_Agnostic(TxtCJuin2)
'.Offset(0, 36).Value = CDbl_Agnostic(TxtCAJuin2)
.Offset(0, 37).Value = CDbl_Agnostic(TxtCJuillet2)
'.Offset(0, 38).Value = CDbl_Agnostic(TxtCAJuillet2)
.Offset(0, 39).Value = CDbl_Agnostic(TxtCAout2)
'.Offset(0, 40).Value = CDbl_Agnostic(TxtCAAout2)
.Offset(0, 41).Value = CDbl_Agnostic(TxtCSept2)
'.Offset(0, 42).Value = CDbl_Agnostic(TxtCASept2)
'.Offset(0, 43).Value = CDbl_Agnostic(TxtCTotCom2)
' .Offset(0, 44).Value = CDbl_Agnostic(TxtCATotCom2)
.Offset(0, 45).Value = CDbl_Agnostic(TxtCOct2)
'.Offset(0, 46).Value = CDbl_Agnostic(TxtCAOct2)
.Offset(0, 47).Value = CDbl_Agnostic(TxtCNov2)
'.Offset(0, 48).Value = CDbl_Agnostic(TxtCANOv2)
.Offset(0, 49).Value = CDbl_Agnostic(TxtCDec2)
'.Offset(0, 50).Value = CDbl_Agnostic(TxtCADec2)
' .Offset(0, 51).Value = CDbl_Agnostic(TxtCTot2)
' .Offset(0, 52).Value = CDbl_Agnostic(TxtCATot2)
End With
On Error Resume Next
pivotCell.Offset(0, 53).Value = TxtCom
BtnModifier.Enabled = False
BtnAjout.Enabled = True
Call BtnEffacer_Click
Call AlimenterListView
Set f = Nothing
End SubJ'ai mis un apostrophe pour annuler la saisie du CA
Dan j'ai réussi ma bétise
C'est à dire ?
J'ai mis un apostrophe pour annuler la saisie du CA
BEn oui, mais pas besoin de me poster tout le code. C'est ce que j'aurais fait en fonction de votre réponse à ma question avant
Mais vous pouvez enlever le code de votre post, c'est illisible. il faut trop scroller l''écran.
Vous avez utilisé l'icone </> pour poster le code ??
Je reviens un peu sur la manière de renommer les txt.
En fait cela part toujours d'une bonne intention de renommer les combo ou textbox mais au final cela provoque toujours des problèmes
dans ce que je vous ai dit, ce serait plus simple de renommer toutes les textbox comme ceci
TxtCJuin1 --> TxtCOB1
TxtCJuin1 --> TxtCOB2
....
TxtCJan2 --> TxtCOB8
en gros on enlève le mois pour passer à une incrémentation
Possible pour vous ? Je sais que cela change votre projet mais on devrait avoir plus facile dans les codes
Vous avez utilisé l'icone pour poster le code ??
Heu non... j'ai vu HTML, et je me suis dit, ça doit pas être ça. Au moins je sais maintenant. Merci Dan
Je reviens un peu sur la manière de renommer les txt.
En fait cela part toujours d'une bonne intention de renommer les combo ou textbox mais au final cela provoque toujours des problèmes
dans ce que je vous ai dit, ce serait plus simple de renommer toutes les textbox comme ceci
TxtCJuin1 --> TxtCOB1
TxtCJuin1 --> TxtCOB2
....
TxtCJan2 --> TxtCOB8
en gros on enlève le mois pour passer à une incrémentation
Possible pour vous ? Je sais que cela change votre projet mais on devrait avoir plus facile dans les codes
Je vais faire ça, Merci
Faites la même chose pour les TxtCA
Donc au final pour TxtCOB et TxtCA, vous devez avoir une numérotation de 1 à 19
Dites moi
Merci Dan, je fais ça en rentrant
Bonjour Dan,
J'ai bien fait comme tu m'as dit, c'est vrai que c'est beaucoup plus propre.
Par contre ce que je trouve bizarre, c'est que hier ça fonctionnait bien. La quand j'ajoute un collab, ma cellule dans ma colonne total comptable ne se tire plus vers le bas.
RE,
J'ai changé la formule en mode tableau structuré et ça passe :
=SOMMEPROD((MOD(COLONNE(TBDD[@[OBJECTIF JUIN 2022]:[CA MAI 2023]]);2)=0)*1;TBDD[@[OBJECTIF JUIN 2022]:[CA MAI 2023]])
Bonjour,
Ne me postez pas de fichier car j'ai celui de travail ici que je dois terminer.
J'ai supprimé celui que vous avez posté et qui contient des données confidentielles.
J'ai une question concernant les textbox des totaux dans l'USF, est-ce que vous pouvez m'expliquer quel est le montant que chaque txtbox doit contenir car lorsque par exemple je clique sur la ligne 1 dans la listview je ne suis pas sûr des montants renvoyés :
TxtCTot1 et TxtCATot1 : colonne AH et AI (cela semble ok là)
TxtCTotCom2 et TxtCATotCom2 : colonne AR et AS --> Etes-vous sûr de la formule car elle renvoie une info contenant les colonnes AH et AI
TxtCTot2 et TxtCATot2 : cela a l'air correct
A noter que suite aux changements de noms des textbox mois et CA mois, il faut aussi adapter d'autres codes. Ce que je suis en train de faire
J'ai changé la formule en mode tableau structuré et ça passe :
Quelle colonne ?
Edit : Dans votre dernier fichier osté (donc V4), cela à l'air ok. Sauf donc votre formule à me préciser dans quelle colonne.
Quelle colonne ?
Edit : Dans votre dernier fichier osté (donc V4), cela à l'air ok. Sauf donc votre formule à me préciser dans quelle colonne.
Dans les colonnes totaux obj et ca
J'ai vu que c'était barré, dois-je toujours en tenir compte ?
J'ai une question concernant les textbox des totaux dans l'USF, est-ce que vous pouvez m'expliquer quel est le montant que chaque txtbox doit contenir car lorsque par exemple je clique sur la ligne 1 dans la listview je ne suis pas sûr des montants renvoyés :
TxtCTot1 et TxtCATot1 : colonne AH et AI (cela semble ok là)
TxtCTotCom2 et TxtCATotCom2 : colonne AR et AS --> Etes-vous sûr de la formule car elle renvoie une info contenant les colonnes AH et AI
TxtCTot2 et TxtCATot2 : cela a l'air correct
A noter que suite aux changements de noms des textbox mois et CA mois, il faut aussi adapter d'autres codes. Ce que je suis en train de faire
Dans les colonnes totaux obj et ca
Colonne AZ et BA ?
J'ai vu que c'était barré, dois-je toujours en tenir compte ?
Oui car j'ai vu que vous avez renommé les textbox Totaux et je voudrais comprendre
Colonne AZ et BA ?
ET AI AH
ET AR AS
Ben dans votre fichier AH et AI c'est correct non ?
AH --> =SOMMEPROD((MOD(COLONNE(J2:AF2);2)=0)*1;J2:AF2) ou ceci --> =SOMMEPROD((MOD(COLONNE(TBDD[@[OBJECTIF JUIN 2022]:[OBJECTIF MAI 2023]]);2)=0)*1;TBDD[@[OBJECTIF JUIN 2022]:[OBJECTIF MAI 2023]])
AI --> =SOMMEPROD((MOD(COLONNE(J2:AH2);2)=1)*1;J2:AH2) ou ceci --> =SOMMEPROD((MOD(COLONNE(TBDD[@[OBJECTIF JUIN 2022]:[OBJECTIF COMPTABLE]]);2)=1)*1;TBDD[@[OBJECTIF JUIN 2022]:[OBJECTIF COMPTABLE]])
Pour AR et AS comme ceci ?
AR --> =SOMMEPROD((MOD(COLONNE(TBDD[@[OBJECTIF JUIN 2023]:[CA SEPT 2023]]);2)=0)*1;TBDD[@[OBJECTIF JUIN 2023]:[CA SEPT 2023]])+SOMMEPROD((MOD(COLONNE(TBDD[@[OBJECTIF OCT 2022]:[CA MAI 2023]]);2)=0)*1;TBDD[@[OBJECTIF OCT 2022]:[CA MAI 2023]])
AS --> =SOMMEPROD((MOD(COLONNE(TBDD[@[CA JUIN 2023]:[TOTAL OBJECTIF COMMERCIAL ]]);2)=1)*1;TBDD[@[CA JUIN 2023]:[TOTAL OBJECTIF COMMERCIAL ]])+SOMMEPROD((MOD(COLONNE(TBDD[@[CA OCT 2022]:[OBJECTIF COMPTABLE]]);2)=1)*1;TBDD[@[CA OCT 2022]:[OBJECTIF COMPTABLE]])
AZ et BA cette formule donnée ici --> https://forum.excel-pratique.com/s/goto/1078154
Je dois comprendre ce que vous devez avoir comme résultat dans les deux TxtCOBTOTAN et TxtCATOTAN
Dan,
ça fonctionne depuis que j'ai changé par les formules TB structurés.
Oui car j'ai vu que vous avez renommé les textbox Totaux et je voudrais comprendre
J'ai renommé pour suivre la trame
ça fonctionne depuis que j'ai changé par les formules TB structurés.
Ok. Je suppose que vous parlez des formules que je vous ai données.
J'ai renommé pour suivre la trame
Ok aussi. J'avance sur le code ou plutôt les codes. La difficulté est surtout due à vos 6 textbox pour les 6 totaux (dû aux chevauchement des mois). Si elles n'étaient pas dans l'USF ce serait nettement plus facile. Je vous tiens au courant.
RE Dan,
Et si on les mets à la fin ? ou avec des nombres allant de 1 à 6 ou dans la continuité de 20 à 26 ?
Ok. Je suppose que vous parlez des formules que je vous ai données.
Oui c'est bien ça