drdege
XLDnaute Nouveau
Bonjour,
Je développe un petit programme, dont voici une partie du code
'GESTION MEDECIN REPRENEUR
Private Sub MAJListeDeroulanteMEDREPRENEUR()
'SUB05
'CHOIX DU MEDECIN REPRENEUR par défaut LE PREMIER DE LA LISTE
Dim LigneSel As Long 'Ligne de sélection du médecin dans le listing des médecins FAGC
Dim RPNom As String 'Nom du Médecin repreneur
Dim RPPrenom As String 'Prenom du Médecin repreneur
Dim RPLocalite As String 'Localité du Médecin repreneur
Dim RPSecteur As String 'Secteur du Médecin repreneur
Dim RPMail As String 'Mail du Médecin repreneur
Dim vCompteur As Long
Dim vAjoutMedecin As String
'ADAPTATION DES VISIBILITES DES FRAMES
10 Frame3RefREPRENEUR.Visible = True
20 Label1.Caption = Sheets("F_para").Range("F8").Value 'SUIVI De l'encodage en cours
'DONNE LE FOCUS A LA LISTE DE CHOIX MEDECIN REPRENEUR
30 CBREPRENEUR.SetFocus 'c'est ici que cela ?????????????????? NE FONCTIONNE PAS
'COMPLETE LA LISTE DE CHOIX AVEC LES DONNEES DE LA TABLE F_MEDFAGC
40 If CBREPRENEUR.LineCount <= 1 Then
50 For vCompteur = 2 To Sheets("f_medFAGC").Range("C2").End(xlDown).Row
60 vAjoutMedecin = Sheets("f_medFAGC").Range("C" & vCompteur).Value
70 CBREPRENEUR.AddItem (vAjoutMedecin)
80 Next vCompteur
90 End If
Ce code est identique à SUB02, qui elle fonctionne, mais en SUB05 la ligne 30 ne fonctionne pas!
QUID? En vous remerciant par avance pour votre collaboration
DG
en annexe le fichier
Je développe un petit programme, dont voici une partie du code
'GESTION MEDECIN REPRENEUR
Private Sub MAJListeDeroulanteMEDREPRENEUR()
'SUB05
'CHOIX DU MEDECIN REPRENEUR par défaut LE PREMIER DE LA LISTE
Dim LigneSel As Long 'Ligne de sélection du médecin dans le listing des médecins FAGC
Dim RPNom As String 'Nom du Médecin repreneur
Dim RPPrenom As String 'Prenom du Médecin repreneur
Dim RPLocalite As String 'Localité du Médecin repreneur
Dim RPSecteur As String 'Secteur du Médecin repreneur
Dim RPMail As String 'Mail du Médecin repreneur
Dim vCompteur As Long
Dim vAjoutMedecin As String
'ADAPTATION DES VISIBILITES DES FRAMES
10 Frame3RefREPRENEUR.Visible = True
20 Label1.Caption = Sheets("F_para").Range("F8").Value 'SUIVI De l'encodage en cours
'DONNE LE FOCUS A LA LISTE DE CHOIX MEDECIN REPRENEUR
30 CBREPRENEUR.SetFocus 'c'est ici que cela ?????????????????? NE FONCTIONNE PAS
'COMPLETE LA LISTE DE CHOIX AVEC LES DONNEES DE LA TABLE F_MEDFAGC
40 If CBREPRENEUR.LineCount <= 1 Then
50 For vCompteur = 2 To Sheets("f_medFAGC").Range("C2").End(xlDown).Row
60 vAjoutMedecin = Sheets("f_medFAGC").Range("C" & vCompteur).Value
70 CBREPRENEUR.AddItem (vAjoutMedecin)
80 Next vCompteur
90 End If
Ce code est identique à SUB02, qui elle fonctionne, mais en SUB05 la ligne 30 ne fonctionne pas!
QUID? En vous remerciant par avance pour votre collaboration
DG
en annexe le fichier