Onglets auto remplis par fiche "nouveau" + feuilles recap

papapaul

XLDnaute Impliqué
Salut Forum,
Pourquoi je créer un nouveau fil? Au départ c'est un fil
de la grande qui s'appelait, "liaisons de fichiers et données",
Or j'ai plus ou moins repris cette histoire à mon compte
et comme j'ai tout mis dans 1 seul fichier, le titre de la grande n'est plus valable,
ça trompe les visiteurs (plusieurs centaines déjà !!)

Evidemment j'ai une question, même 2 :

1) J'ai mis le code ci dessous (Macro1) pour supprimer les zéros
dans ma feuille Prévisions des repas

Range("B3:AT48").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Ca marche parfaitement bien sauf sur la ligne 48 ou il
y a la formule Somme (sur cette ligne ca efface les totaux
et pas les zéros :mad:) c'est quoi l'astuce ??

2) J'ai pondu dans la feuille nouveau en B5 une espèce de
numérotation automatique

Private Sub Worksheet_activate()
Range("b5") = WorksheetFunction.CountA(Sheets("patients"). _
Range("A7:A" & Range("A65536").End(xlUp).Row)) + 1
End Sub

Ca fait référence à la feuille "Patients" qui s'alimente toute seule
au fur et à mesure que je crée des nouveaux.
Mais voilà, un de mes patients est décédé (hélas):D
ou bien il est sorti. Si je décide de l'enlever de la feuille "Patients"
le compteur recule et du coup je vais me retrouver avec des doublons
de n°. On pourrait créer une feuille bidon avec la suite des
numéros pour "incrémenter" mon compteur à partir de celle-ci
et non de la feuille "Patients", mais c'est du bricolage.
Y a surement plus joli, je sais pas faire.

Voili Voilou, encore écris un roman:eek:

Les curieux peuvent regarder, y a pas mal de trucs qui marchent bien.

Merci d'avance pour mes questions

Bonne journée et Vive XLD
 

Pièces jointes

  • la_grande_03_05_v4.zip
    71 KB · Affichages: 52

abcd

XLDnaute Barbatruc
Re : Onglets auto remplis par fiche "nouveau" + feuilles recap

Bonjour,

Pour la question 1 :
pas de besoin de macro !
à titre d'exemple : pour la ligne 48, format personnalisé Standard;;

Pour la question 2 :
Ne pourrais-tu mettre en pièce jointe un fichier qui ne comporterait que les feuilles nécessaires à la compréhension de la question, car là un chat n'y retrouverait pas ses jeunes.

abcd
 
C

Compte Supprimé 979

Guest
Re : Onglets auto remplis par fiche "nouveau" + feuilles recap

Salut PapaPaul,

Dis voir, pour ton numéro de patient, as-tu une numérotation spécifique !?

Sinon pourquoi ne pas utiliser sa date de naissance par exemple, ou autre ...
Car effectivement, si tu veux des numéros qui se suivent, il faut avoir un listing en annexe ...

A+
 
Dernière modification par un modérateur:

papapaul

XLDnaute Impliqué
Re : Onglets auto remplis par fiche "nouveau" + feuilles recap

:)Salut tous, abcd, Bruno, la grande et le Forum.

abcd a complétement raison, si on a pas été là au début
mon machin devient incompréhensible.

Bruno t'a raison aussi, au départ je voulais me baser
sur le n°sécu mais la grande préfère une numérotation auto.
J'ai donc eu la même idée que toi, crée une feuille bidon
avec une incrémentation en colonne A qui servira de référence.

Je joins un fichier moins "lourd" avec des explications mais
pas sur que je sois plus clair.
Pour enlever les zéros quand je clique le bouton de ma feuille
prévisions repas du fichier ci-dessus, pourquoi ca marche pas
quand il y a une formule ?? (ligne 48)

Je continue a chercher,

Merci à vous tous.
 

Pièces jointes

  • essai.xls
    38 KB · Affichages: 75
  • essai.xls
    38 KB · Affichages: 75
  • essai.xls
    38 KB · Affichages: 75

la grande

XLDnaute Junior
Re : Onglets auto remplis par fiche "nouveau" + feuilles recap

Bonsoir papapaul, bonsoir le forum.
Une question:
Pour enlever, supprimer un patient, comment je fais? Je vais dans la liste des patients et je supprime le contenu de la ligne? ou alors y a t-il une autre solution?
Merci et bonne soirée.
 

la grande

XLDnaute Junior
Re : Onglets auto remplis par fiche "nouveau" + feuilles recap

Papapaul, en y réflechissant, ne serait il pas envisageable de créer un onglet comme les services, mais en l'apelant "patient partis" ou dans se style là.
Cela éviterait aussi d'avoir des numéros en doublons, puisque ils seraint toujours encore affecté au patient dans la feuille "patients partis"
 

papapaul

XLDnaute Impliqué
Re : Onglets auto remplis par fiche "nouveau" + feuilles recap

:) Re la grande Forum,
Justement, j'ai crée une feuille bidon "Numéro" qui permet
d'éviter les doublons de numéros patients. Ca à l'air OK.
L'idée c'est que si tu veux supprimer un patient,
sorti ou décédé:D c'est le numéro qui sera la référence.
J'y ai bien pensé, si tu l'efface dans la recap ("Patients") ou
dans la feuille service ou il est, pas de problème, la ligne deviendra vierge
dans les 2 feuilles mais le tri automatique remet tout ca dans l'ordre.
Par contre si tu supprimes carrément la ligne
il disparaîtra aussi des 2 feuilles. (C'est en cours)

Pour la feuille "Patients" pas de problèmes, y a pas de limite de lignes.

Pour la feuille service limitée pour l'instant à 14 patients (ligne 7 à 20)
il faudra que je dise "si supprime ligne non vide, OK,
mais ensuite ajoute ligne vide"
Il faut aussi que je dise si ajoute un 15ème, décaler la ligne total +1.

Pas de panique, ca doit être possible:p

Remarque : ca va bientôt être mon tour d'être patient:D

Reste aussi le problème des zéros sur la ligne 48 de la
la feuille Prévisions mais ça, on pourra voit plus tard.

@+
 

Pièces jointes

  • la_grande_03_05_v5.zip
    71.8 KB · Affichages: 43

Discussions similaires

Statistiques des forums

Discussions
314 863
Messages
2 113 652
Membres
111 931
dernier inscrit
lucas24000