Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1819 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide codes vba

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

aide codes vba

n°2438376
comint
Posté le 19-01-2023 à 12:47:43  profilanswer
 

Bonjour le forum,  
 
je suis nouvelle et découvre le vba  et espère trouver de l'aide.
 
Alors que j'ai testé et retesté tout un tas de choses, voici mes problèmes :  
 
un code est commencé  mais cela ne fonctionne pas . Quelqu'un pourrait-il y regarder de plus près. ce serait gentil
 
Dans le Ufm_contact : je ne sais pas comment entrer le code pour calculer automatiquement l'âge en fonction de la date de naissance entrée dans TBX_datenaissance comme dans Excel sous la formule : =DATEDIF(M......;AUJOURDHUI();"Y" )&" Ans, "&DATEDIF(M.....;AUJOURDHUI();"YM" )&" Mois, "&DATEDIF(M.....;AUJOURDHUI();"MD" )&" Jours"
 
je souhaiterais avoir des explications sur le code rechercher sur le nom complet qui est un concat de nom + prénom + prénom ainsi que la modification dans la fiche
dans le Ufmrecherchepatients : j'ai entré le code

Code :
  1. [cpp]Private Sub ComboBox1_ent_colonnes_Change(
  2. 'charge les entêtes de la bdd patients dans une liste déoulante
  3.     Me.ComboBox1_ent_colonnes.List = WorksheetFunction.Transpose(BDD.Range("B2:AZ2" ))
  4. End Sub

[/cpp]
 
pour effectuer des recherches sur les entêtes de colonnes mais quand j'utilise le userformrecherchepatients: cela reste vide
 
une dernière question : comment avoir un code qui reprendrait les valeurs des données visualisées dans l'ufmcontact dans différents onglets d'un classeur 2 par exemple ou comment sélectionner une personne et reprendre ses données dans différents onglets d'un classeur 2 par exemple ou tout peut-il se trouver dans le même fichier excel ?
 
je joins le fichierhttps://www.cjoint.com/c/MAtv5108ENa
 
Merci de votre aide


Message édité par comint le 19-01-2023 à 23:05:49

---------------
Comint
mood
Publicité
Posté le 19-01-2023 à 12:47:43  profilanswer
 

n°2438377
comint
Posté le 19-01-2023 à 12:52:05  profilanswer
 

je me suis trompée d'endroit. je reposte au niveau du forum vba
milles excuses !

n°2438386
TotalRecal​l
Posté le 19-01-2023 à 13:54:47  profilanswer
 

Hello,
Pas besoin de reposter !
Par contre tu dois pouvoir éditer ton topic (icône avec un crayon sur le premier message) et changer la catégorie.


Message édité par TotalRecall le 19-01-2023 à 13:55:01

---------------
Topic .Net - C# @ Prog
n°2438492
comint
Posté le 19-01-2023 à 23:48:24  profilanswer
 

Merci ! c'est fait.

n°2438493
comint
Posté le 20-01-2023 à 00:00:29  profilanswer
 

Je travaille en excel 2016

n°2438521
master1551
Posté le 20-01-2023 à 10:59:36  profilanswer
 

J'aurai tenter de faire autrement pour charger les valeurs dans la combobox dans le cas d'une liste "horizontale"

Code :
  1. Dim ws as Worksheet
  2. Dim rg As Range
  3. Set ws = sheets("BDD" )
  4. Set rg = ws.range("B2:AZ2" )
  5. For I = 1 To rg.Cells.Count
  6.     Me.ComboBox1_ent_colonnes.AddItem rg.Cells(1, I)
  7. Next I


 
ca devrait marcher....


---------------
https://500px.com/3enzam1n
n°2438554
comint
Posté le 20-01-2023 à 12:02:20  profilanswer
 

master1551 a écrit :

J'aurai tenter de faire autrement pour charger les valeurs dans la combobox dans le cas d'une liste "horizontale"

Code :
  1. Dim ws as Worksheet
  2. Dim rg As Range
  3. Set ws = sheets("BDD" )
  4. Set rg = ws.range("B2:AZ2" )
  5. For I = 1 To rg.Cells.Count
  6.     Me.ComboBox1_ent_colonnes.AddItem rg.Cells(1, I)
  7. Next I


 
ca devrait marcher....


 
Bonjour Master1551,  
 
Merci pour votre réponse. c'est gentil.
 
J'ai adapté mon code comme ceci  
 

Code :
  1. Private Sub ComboBox1_ent_colonnes_Change()
  2. 'charge les entêtes de la bdd patients dans une liste déoulante
  3. Dim ws As Worksheet
  4. Dim rg As Range
  5. Set ws = Sheets("BDD" )
  6. Set rg = ws.Range("B2:AZ2" )
  7. For I = 1 To rg.Cells.Count
  8.     Me.ComboBox1_ent_colonnes.AddItem rg.Cells(1, I)
  9. Next I
  10. End Sub


 
mais je ne vois toujours pas l'intitulé des colonnes.
 
Je dois certainement avoir fait quelquechose que je ne devais pas.
 
Pourriez-vous m'en dire un peu plus ?
 
Merci de votre compréhension


Message édité par comint le 20-01-2023 à 13:32:44

---------------
Comint
n°2438596
master1551
Posté le 20-01-2023 à 14:30:02  profilanswer
 

tu devrais plutot lancer cette macro à l'initialisation de l'userform  -

 

Private Sub UserForm_Initialize()

 

Message cité 1 fois
Message édité par master1551 le 20-01-2023 à 14:36:18

---------------
https://500px.com/3enzam1n
n°2438614
comint
Posté le 20-01-2023 à 15:46:49  profilanswer
 

master1551 a écrit :

tu devrais plutot lancer cette macro à l'initialisation de l'userform  -  
 
Private Sub UserForm_Initialize()  
 


 Re,  
 
En fait j'ouvrais le usf recherchepatients via le tableau de bord bouton recherche patient
 
maintenant j'ai un code d'exécution 9.
 
Cette macro je l'ajoute quand je clique sur la cmbobox ent_col ou quand je clique sur le usfrecherchepatient  
 
Mon usfrecherchepatient  a l'air de ne pas bien fonctionner.
 
Je remets le fichier pour voir cela d'un peu plus près. ESt_possible ?
 
merci bcp
 
https://www.cjoint.com/c/MAuoTzwD6ga


---------------
Comint
n°2438615
master1551
Posté le 20-01-2023 à 15:51:14  profilanswer
 

comint a écrit :


 Re,  
 
En fait j'ouvrais le usf recherchepatients via le tableau de bord bouton recherche patient
 
maintenant j'ai un code d'exécution 9.
 
Cette macro je l'ajoute quand je clique sur la cmbobox ent_col ou quand je clique sur le usfrecherchepatient  
 
Mon usfrecherchepatient  a l'air de ne pas bien fonctionner.
 
Je remets le fichier pour voir cela d'un peu plus près. ESt_possible ?
 
merci bcp
 
https://www.cjoint.com/c/MAuoTzwD6ga


 
L'erreur vient du fait que la feuille "BDD" n'existe pas.  
 


---------------
https://500px.com/3enzam1n
mood
Publicité
Posté le 20-01-2023 à 15:51:14  profilanswer
 

n°2438646
comint
Posté le 20-01-2023 à 17:16:12  profilanswer
 

master1551 a écrit :


 
L'erreur vient du fait que la feuille "BDD" n'existe pas.  
 


 
elle est renommée patients je ne le voyais plus.
 
Fantastique. Cela fonctionne  :hello:  :hello:  
 
merci bcp


---------------
Comint

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide codes vba

 

Sujets relatifs
[Algorithme][Aide] Partons de vrai et bien.../...Aide niveau programmation débutant
Besoin d'aide pour la conception de mon MCDaide pour script microsoft visual basic
Aide Batch copy + rename (plusieurs dossiers a traiter en même temps)aide écriture code c++ recherche et cumul de nombres
Besoin d'aide pour créer un site B2B[PHP] - Aide sur codes PHP pour Club de Plongée ;)
Petite aide, traduction vbs -JS : besoin de quelques lignes de codes !codes html non valide pour mon site de l'aide please
Plus de sujets relatifs à : aide codes vba


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)