Version imprimable
Bonjour
Suite à un retour sur ce forum concernant mon code que je n'arrivais pas a structurer correctement, j'ai repris la structure en incluant des modules (c'est une première pour les sous-routines). Hélas, si je suis là, c'est que cela ne fonctionne pas et je ne comprends pas où est mon erreur. Ca doit être idiot comme erreur, mais j'essaye de comprendre l'intégration de ma routine à mon code et j'aurai besoin de vous pour m'expliquer.
Merci beaucoup pour votre aide et votre temps.
Nat
Hello,
votre description du problème est trop vague. Vous avez des 10aines de sub et de function mais vous ne dites pas ce qui ne fonctionne pas, du coup c'est assez difficile de vous aider.
effectivement, excuser moi, c'est les appelles des macros qui ne fonctionnent pas. Lorsque vous cliquez sur une des lignes de la feuille accueil ou si vous utiliser le formulaire de recherche en cliquant sur le plongeur vert en haut de la colonne H et que vous y entrer un numéro de patient existant ou non, le formulaire de Saisie devrait s'ouvrir (rempli si le patient est présent (avec les infos de la feuille complet (Public Sub ChargerDonneesDepuisComplet) ou vide (juste avec le mois, l'année et le n° de patient rentrer) et de la on rempli le formulaire et les données doivent être enregistrer dans accueil et complet ou dans accueil et consultation selon les optionbutton choisi et de nouveau en appelant les modules adéquats.
Vous verrai que dès l'ouverture, je bloque sur le premier module appelé.
Merci beaucoupCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21Public Sub OuvrirFormulaire(patientNumber As String) Dim wsComplet As Worksheet Dim wsConsultation As Worksheet Dim wsAccueil As Worksheet Dim findRowComplet As Range Dim findRowConsultation As Range Dim findRowAccueil As Range ' Initialisation des feuilles Set wsComplet = ThisWorkbook.Sheets("complet") Set wsConsultation = ThisWorkbook.Sheets("Consultation") Set wsAccueil = ThisWorkbook.Sheets("accueil") ' Rechercher le patient dans "complet" Set findRowComplet = wsComplet.columns(6).Find(What:=patientNumber, LookIn:=xlValues, LookAt:=xlWhole) If Not findRowComplet Is Nothing Then ChargerDonneesDepuisComplet wsComplet, findRowComplet.Row, Me End If
Nat
Re,
sans aller beaucoup plus loin, ChargerDonneesDepuisComplet wsComplet, findRowComplet.Row, Me envoi 3 arguments et la procédure Sub ChargerDonneesDepuisComplet(ws As Worksheet, rowIndex As Long) n'en attend que 2 ! Le nombre doit être équivalent (voire inférieur quand il y a des données optionnelles)
Pourquoi ajoutez vous "Me" à chaque appel de procédure ?
Parce que j'ai 3 argument dans mes sous-routine?Code:
2
3
4
5
6
7
8
9
10
11
12
Ben si 3 arguments dans la "sous-routine" l'appel doit en contenir 3 aussi.
Ca fonctionne maintenant ?
non, là, je n'ai rien changer à ce que j'ai envoyé en pièce jointe, au cas où, j'ai essayé d'enlever le ,me, mais j'ai bien 3 argument. Maintenant, je peux peut-être écrire mes sous-routine autrement? je ne sais pas.
Bonjour,
Je n'ai regardé que l'appel à la procédure nommée ChargerDonneesDepuisComplet
Vous avez en réalité deux procédures portant le même nom. L'une avec deux arguments qui se trouve dans le formulaire Saisie et l'autre avec trois se trouve dans le module ModGestionPatients
Comme la ligne qui invoque la procédure ChargerDonneesDepuisComplet se trouve dans le formulaire Saisie, il est normal que vous ayez ce message d'erreur
Il y a d'autres erreurs comme par exemple une procédure nommée EnregistrerDonneesPatient qui est invoquée mais n'existe pas.
Hello Philippe, de retour de vacances ? :)
Bonjour Jièl,
AbsolumentCitation:
Hello Philippe, de retour de vacances ?
Bonjour à tous,
@nattalia,
Je t'ai envoyé un message privé, mais çà fonctionne pas non plus sur ce forum je parie.:ptdr:
j'ai compris que tu recherchais à afficher les données de ta ligne cliquée dans le formulaire.
Je l'ai fait récemment, mais avec un code différent.
Voilà le code de ma feuille cliquée
Et le code que j'ai rajouté dans l'initialize du formulaire SaisieCode:
2
3
4
5
6
7
8
9
10
11
12
13
Voilà le lien du fichier.Code:
2
3
4
5
6
7
8
9
10
11
12
13
Aprés tu peux mettre ton champ txtnuméro en combobox et ajouter l'événement change de fàçon à remplir automatiquement tous les autres.
Cdt
Bonjour,Citation:
Envoyé par frunch
L'accès à ce fichier nécessite une autorisation? (avec fourniture de l'adresse mail perso!!!!!!)
C'est bien un forum de partage, non?
Bonne journée
Bonjour,
C'est un lien google, le fichier passe pas.
Re-,
En utilisant cjoint.com, ça aurait pu le faire également...