Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Code pour JB

8 réponses
Avatar
Apitos
Bonsoir Jacques,

Bon j'ai combin=E9 deux t=E2ches dans la proc=E9dure Private Sub
Worksheet_Change(ByVal Target As Range) ;

1 - Mettre en majuscule la premiere lettre
2 - Extraire les donn=E9es des la colonne "D=E9signation" et "Cat=E9gorie"
et les recopi=E9es avec tri dans la deuxieme feuille

et la troisieme t=E2che dans cette Feuil1 et celle di tri dynamique des
colonnes "D=E9signation" et "Cat=E9gorie".

'*****************************
Dim ligne, t=E9moin
Private Sub Worksheet_Change(ByVal Target As Range)
'Traduit en Nompropre d=E8s la saisie dans la colonne B et C

Application.EnableEvents =3D False
If Target.Column =3D 2 And Target.Count =3D 1 Then
Target =3D Application.Proper(Target)
End If
If Target.Column =3D 3 And Target.Count =3D 1 Then
Target =3D Application.Proper(Target)
End If

'--- Extraction de d=E9signation
If Target.Column =3D 2 And Target.Count =3D 1 Then
[B1:B1000].AdvancedFilter Action:=3DxlFilterCopy,
CopyToRange:=3DSheets("Feuil2").Range("C1"), Unique:=3DTrue
Sheets("feuil2").Range("C2:C1000").Sort
key1:=3DSheets("feuil2").Range("C2")
Application.EnableEvents =3D True
End If

'--- Extraction de cat=E9gorie
If Target.Column =3D 3 And Target.Count =3D 1 Then
[C1:C1000].AdvancedFilter Action:=3DxlFilterCopy,
CopyToRange:=3DSheets("Feuil2").Range("H1"), Unique:=3DTrue
Sheets("feuil2").Range("D2:D1000").Sort
key1:=3DSheets("feuil2").Range("D2")
Application.EnableEvents =3D True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Tri dynamique
'Le tri par nom est effectu=E9 =E0 chaque saisie d'une ligne
If Target.Column >=3D 1 And Target.Column <=3D 6 And Target.Count =3D 1 Th=
en
If t=E9moin Then
If Target.Row <> ligne And Cells(ligne, 1) <> "" Then
[A2:F1000].Sort key1:=3D[A2]
End If
End If
ligne =3D Target.Row
t=E9moin =3D True
End If
End Sub
'****************************

Mais voil=E0, rien ne marche comme =E7a !!!

Une solution STP ?

Merci d'avance.

8 réponses

Avatar
Apitos
Mon fichier :

http://cjoint.com/?jvxkaC6bvj

;)
Avatar
JB
Bonjour,

Je ne comprends pas la finalité du pgm:

http://cjoint.com/?jwiX5K1ffl

JB

Mon fichier :

http://cjoint.com/?jvxkaC6bvj

;)


Avatar
Apitos

Bonjour,

Je ne comprends pas la finalité du pgm:

http://cjoint.com/?jwiX5K1ffl

JB


Un petit recis sur ce programme :

- Chaque jour, on saisi les deffirentes depenses du jour.
- Dans la deuxieme feuille, dans la colonne A, on introduit
dynamiquament les noms des designations, au fur et à mesure, dans la
colonne B, on calcul les quantités de cette designation par la formule
:
=SOMMEPROD((Feuil1!B2:B100=$A$1)*(Feuil1!E2:E100))
et dans la colonne C, le prix total mensuel par designation est
calculé ainsi.
- Dans les colonne D, E de la même maniere, on introduit et on calcul
d'une façon dynamique, les categories trouvées dans la feuille 1,
ainsi que leurs prix total mensuel.
- Les colonnes A, B, C doivent etre triées ensemble
- Les colonnes E, F doivent etre, quant à eux, seront triées ensemble
aussi.

Maintenat, la majorité des tâches est executée.

Reste ceci :

- J'aimerais bien trouvé comment dois-je faire pour généréliser la
fonction : SOMMEPRO, sur les trois colonnes.

Dans la colonne B :
=SOMMEPROD((Feuil1!B2:B100=$A$n)*(Feuil1!E2:E100))

Dans la colonne C :
=SOMMEPROD((Feuil1!B2:B100=$A$n)*(Feuil1!F2:F100))

Dans la colonne E :
=SOMMEPROD((Feuil1!C2:C100=$D$n)*(Feuil1!F2:F100))

Ou l'interval de n est égal à : 2<= n <00

Ensuite dans la feuille 1 :

- J'aimerais appliqué des sous-totaux par date, d'une façon si
j'ajoute quelquonc entrée, elle sera systematiquement introuduite dans
son groupe (Date) et ainsi calculée et ajouté dans ce dernier.

Je m'excuse, mais j'en suis dans mes debuts ...

Merci d'avance.
Merci.

Avatar
Apitos
Toujours pas de réponses ?
Avatar
Apitos
De l'aide SVP ?
Avatar
Apitos
Avatar
Apitos
Avatar
Apitos