Mettre en lien 900 000 Cellules 2 à 2

B

begastor

Guest

• 18 Juin 2010

• #16

Re : Mettre en lien 900 000 Cellules 2 à 2

Re,

c'est la sécurité des macros...
mon install était neuve.

fonctionne nickel !!!

merci encore.

Ciao

 

Vote positif 0 Vote négatif

B

begastor

Guest

• 18 Juin 2010

• #17

Re : Mettre en lien 900 000 Cellules 2 à 2

Ah, je viens de trouver un bug... dans le code de BrunoM45

à partir de la ligne 391, le message d'erreur n'apparait pas si la fiche patient n'a pas été créée avant alors qu'avant, ça marche impec...
De plus, si possible, lorsqu'il me met le message d'erreur, j'aimerai qu'il ne me laisse pas la x, mais que du coup, il laisse la case vide...


Si possible...

merci

Ciao

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 18 Juin 2010

• #18

Re : Mettre en lien 900 000 Cellules 2 à 2

Re,

Oups, désolé je n'ai pas pris la bonne plage en référence 😱

Il faut remplacer AH390 par AH598 dans le code

Code:

If Not Intersect(Target, Range("D7:[COLOR=red][B]AH390[/B][/COLOR]"))

Pour le reste il suffit de mettre

Code:

Case 9
    MsgBox "La feuille " & Nom & " n'existe pas !" & vbCrLf _
    & "Impossible de continuer", vbCritical, "PROBLEM ..."
   [COLOR=blue][B] Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True[/B][/COLOR]

A+

 

Dernière modification par un modérateur: 18 Juin 2010

Vote positif 0 Vote négatif

B

begastor

Guest

• 20 Juin 2010

• #19

Re : Mettre en lien 900 000 Cellules 2 à 2

Salut,

merci BrunoM45, ça fonctionne nickel maintenant.

Deux autres petites choses si ça t'inspire ou qqun d'autre.

1- Je souhaite que les feuilles "patient" (celles qui sont créées par un double clique"ne puissent pas être modifiées directement en écrivant dessus, que seuls les liens qu'elles ont avec les feuilles "activités" les modifient...
Je n'arrive pas à faire cela avec la protection traditionnelle.

2- Je souhaite également que les fiches "patients" (les roses) se classent par ordre alphabétique à la fin du classeur
Je souhaite également que les activités (les vertes)se classent par ordre alphabétique, sans se mélanger aux feuilles des "patients" et ce, juste après les 4 premières fiches qui ne doivent pas bouger...

Je remet le fichier car je l'ai modifié ce WE.

Après ça, en principe, mon projet est terminé et servira de point de repère pour le travail avec les 200 personnes qui vivent dans la maison de retraite ou je travaille 🙂

Merci encore
Ciao


Cijoint.fr - Service gratuit de dépôt de fichiers

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Juin 2010

• #20

Re : Mettre en lien 900 000 Cellules 2 à 2

Salut Begastor,

Je pense que la seule solution pour le tri que tu souhaites est de rajouter
"ZA_" devant l'activité souhaité
"ZP_" devant les noms des patients

Z pour que la feuille se retrouve à la fin
suivi de A ou P pour que les patients soient triés après les activités

Qu'en penses-tu ?

Ci-joint le fichier modifié 😉

A+

 

Pièces jointes

• Begastor_Indicateurs Prise en chargeV2.zip

  58.2 KB · Affichages: 37

Dernière modification par un modérateur: 21 Juin 2010

Vote positif 0 Vote négatif

B

begastor

Guest

• 22 Juin 2010

• #21

Re : Mettre en lien 900 000 Cellules 2 à 2

Salut

merci beaucoup pour ta proposition,

c'est nickel !!!

il faut que les models soient affichés pour que ça fonctionne.


Merci encore !!

Bonne journée.
Begastor

 

Vote positif 0 Vote négatif

B

begastor

Guest

• 10 Août 2010

• #22

Re : Mettre en lien 900 000 Cellules 2 à 2

Salut,

Bruno, je m'adresse à toi une nouvelle fois pour le code que tu m'as proposé et qui nous sert tous les jours !!

J'obtiens un message d'erreur (erreur 1004) lorsque je coche certaines cases, notament au mois d'Août...
Pourrais-je te renvoyer le fichier pour que tu y jettes un coup d'oeil ?
je n'utiliserai par contre pas de lien public car mon fichier comporte desormais une liste de noms...

Pour rappel, au boulot je suis sous Excel 2000 et sur d'autres postes 2003

Merci d'avance
Cordialement
V.D.

 

Dernière modification par un modérateur: 10 Août 2010

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 10 Août 2010

• #23

Re : Mettre en lien 900 000 Cellules 2 à 2

Salut Begastor,

Voir réponse en MP (Message privé) 😉

A+

 

Vote positif 0 Vote négatif

B

begastor

Guest

• 11 Août 2010

• #24

Re : Mettre en lien 900 000 Cellules 2 à 2

Salut,

pour info le problème est résolu:

Code:

J'ai compris d'ou venait le problème,
 
dans le Module1, j'ai la fonction : Function LigFind(VMois As Integer, Activite As String, Nom As String)
qui permet normalement de retrouver la ligne du mois concerné, pour l'activitée concernée et la personne concernée.
 
Mais celle-ci ne fonctionnait pas correctement du fait que le nombre de ligne pour les activités n'était pas fixe et donc mal déterminé
  ' NOMBRE de LIGNE pour les ACTIVITES
  ' NbLigAct = Sheets("Activités").Range("A" & Rows.Count).End(xlUp).Row - LigVide + 1
  NbLigAct = 30    ' Là c'est OK mais oblige à avoir 30 lignes max d'activités, sinon changer cette valeur

Merci à Bruno45 pour son aide précieuse 🙂





Mais,

j'ai encore une question pour finaliser mon projet....

je souhaite imprimer la page "x" de toutes les feuilles nominatives, pour éviter 41 fois la manip et comme il y a deux fichier, 82 fois....

merci
Ciao

 

Vote positif 0 Vote négatif

B

begastor

Guest

• 13 Août 2010

• #25

Re : Mettre en lien 900 000 Cellules 2 à 2

ou alors, comment imprimer toutes les pages "x" de toutes les feuilles dont la couleur d'onglet est "y" ?

merci
Ciao

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 13 Août 2010

• #26

Re : Mettre en lien 900 000 Cellules 2 à 2

Salut Begastor,

Tu trouveras ci-joint le fichier modifié (sans informations confidentielles)

1) La feuille "Patients" a été modifiée en conséquence
2) du code à été ajouté

A+

 

Pièces jointes

• Fichier XLD V1.2.zip

  158.4 KB · Affichages: 11

Vote positif 0 Vote négatif