aide codes vba

aide codes vba - VB/VBA/VBS - Programmation

Marsh Posté le 19-01-2023 à 12:47:43    

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
Reply

Marsh Posté le 19-01-2023 à 12:47:43   

Reply

Marsh Posté le 19-01-2023 à 12:52:05    

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

Reply

Marsh Posté le 19-01-2023 à 13:54:47    

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

---------------
Réalisation amplis classe D / T      Topic .Net - C# @ Prog
Reply

Marsh Posté le 19-01-2023 à 23:48:24    

Merci ! c'est fait.

Reply

Marsh Posté le 20-01-2023 à 00:00:29    

Je travaille en excel 2016

Reply

Marsh Posté le 20-01-2023 à 10:59:36    

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
  4. Set ws = sheets("BDD" )
  5. 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


 
ca devrait marcher....

Message cité 1 fois

---------------
https://500px.com/3enzam1n
Reply

Marsh Posté le 20-01-2023 à 12:02:20    

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
  4. Set ws = sheets("BDD" )
  5. 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


 
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
Reply

Marsh Posté le 20-01-2023 à 14:30:02    

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
Reply

Marsh Posté le 20-01-2023 à 15:46:49    

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

Message cité 1 fois

---------------
Comint
Reply

Marsh Posté le 20-01-2023 à 15:51:14    

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.  
 

Message cité 1 fois

---------------
https://500px.com/3enzam1n
Reply

Marsh Posté le 20-01-2023 à 15:51:14   

Reply

Marsh Posté le 20-01-2023 à 17:16:12    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed