XL 2010 Traitement listing par code et triage

sousou

XLDnaute Barbatruc

• 9 Février 2021

• #16

Re
1/ mettre la const dcol à 16 (16 colonne avec la colonne p)
2/ cela veux-t'il dire que l'ordre de trie doit être fonction non pas de l'ordre alphabétique , mais d'un ordre prédéfinit des états, si oui, précise l'ordre par exemple comme ceci:
rien, ndf, erreur, paye,..... , ( ça change un peu le traitement)
3/A quoi sert la colonne a? qui est effectivement copier mais qui peut être vidée en changeant ce code dans newf
Set zone = .Range(.Cells(5, 2), .Cells(derligne, dcol))
Set zone = .Range(.Cells(5, 1), .Cells(derligne, dcol))

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Février 2021

• #17

Ca pourrait donner ceci.
L'ordre étant définit dans tabletrie(......)

 

Pièces jointes

• FEUILLES DE SOINS -3.xlsm

  32.3 KB · Affichages: 7

Vote positif 0 Vote négatif

M

moma

XLDnaute Nouveau

• 9 Février 2021

• #18

-La colonne A s'incère automatiquement quand je fait je rapatriement de mes données .... pas grave car on ne fait pas d'impression.
-C'est ca .... avec les numéros c'est presque ça. vous faite comment pour attribuer des numéros aux actions NDF, Scinti ....
Pour être plus précise, peut t'on associer plusieurs actions à un même numéro car il y a une partie qui se fait par choix de couleur et tout le reste par ordre alpha de médecin.
je vous montre un exemple.

 

Pièces jointes

• Capture.PNG

  105 KB · Affichages: 10

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Février 2021

• #19

C'est tabletrie qui va donner les numéros.
le numéro sera l'index du texte dans tabletrie
exemple
"" en première position donnera 0
NDS placer en deuxième position donnera 1

Pour associer plusieurs actions à un même numéro, ca va être possible, mais faut préciser

 

Vote positif 0 Vote négatif

M

moma

XLDnaute Nouveau

• 9 Février 2021

• #20

Blanc vide = 0
NDF = 1
Erreur = 2
FDS à caisse = 3
Payé = 3
Scinti = 3
et donc tous les "3" en classement de a à z par nom de médecin

et après ça sera bon !

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 9 Février 2021

• #21

Voici une solution

 

Pièces jointes

• FEUILLES DE SOINS -3.xlsm

  32.7 KB · Affichages: 8

Vote positif 1 Vote négatif

Solution

M

moma

XLDnaute Nouveau

• 9 Février 2021

• #22

AAAAA
Mille merci car j’ai essayé de modifier la tablerie toute seule, mais quand on ne connait pas le language c’est trop dur.

Merci encore pour tout votre travail qui va me faire gagner un temps précieux.



Bonne fin de journée

Magali

 

Vote positif 0 Vote négatif

M

moma

XLDnaute Nouveau

• 10 Février 2021

• #23

Bonjour Sousou,
juste pour te demander ce que je dois changer dans le code pour que ma nouvelle feuille s'incere en dernière position et non avant.
Merci

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Février 2021

• #24

Bonjour ,
peut être en modifiant la procédure ainsi !

VB:

Sub newf()
With ThisWorkbook
Sheets(1).Copy After:=.Sheets(.Sheets.Count)
End With
With ActiveSheet
etcetc

jean marie

 

Vote positif 0 Vote négatif

M

moma

XLDnaute Nouveau

• 10 Février 2021

• #25

Super Merci
ChTi160
Bonne journée à toi

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 10 Février 2021

• #26

Bonjour moma et chti
Ta remarque, m'a incité à apporter quelques modifications sur la création de la nouvelle feuille.
Cas ou on annule cette création
+ proposition du nom de la prochaine feuille si celles-ci sont celles-ci sont créées tous les jours
A voir!

 

Pièces jointes

• FEUILLES DE SOINS -3.xlsm

  33 KB · Affichages: 3

Vote positif 0 Vote négatif

M

moma

XLDnaute Nouveau

• 11 Février 2021

• #27

Bonjour Sousou,
ta dernière proposition est très interessante. Faudrait juste modifier le code pour qu’il affiche la date de Hier .
Pour me faire comprendre : aujourd’hui nous sommes le 11 et je vais ce matin récupérer les données totale du 10.

 

Vote positif -1 Vote négatif

sousou

XLDnaute Barbatruc

• 11 Février 2021

• #28

Bonjour
Comme ceci?

 

Pièces jointes

• FEUILLES DE SOINS -3.xlsm

  40.1 KB · Affichages: 2

Vote positif 0 Vote négatif

M

moma

XLDnaute Nouveau

• 11 Février 2021

• #29

Oui merci

bonne journée

 

Vote positif 0 Vote négatif