erreur 380 formulaire vba excel

gilbert_RGI

XLDnaute Barbatruc

• 22 Novembre 2009

• #2

Re : erreur 380 formulaire vba excel

nina71287 à dit:

Bonsoir à tous,

J'ai besoin d'aide sur mon code. j'ai l'erreur 380 qui s'affiche mais il ne me dit pas ou est mon erreur. Ci joint mon fichier.Si quelqu'un pouvait m'aider à situer mon erreur?
Merci d'avance et bonne soirée

Cliquez pour agrandir...

Bonjour

l'erreur est en Rouge

Code:

Private Sub Userform_initialize()
    Dim rng As Range
    Dim cell As Range
    'Affichage de la liste des services
    With ThisWorkbook.Worksheets("Services")
        .Activate
        Set rng = .Range("A1").CurrentRegion
        'Tri des services par ordre alphabétique
        rng.Sort key1:=Range("A1")
        LstPole.Clear
        For Each cell In rng
            If cell.Text <> "" Then
                LstPole.AddItem cell.Text
            Else
                Exit For
            End If
        Next cell
    End With
'    'Affichage de la liste des employés
    Affiche_Employés
    [COLOR="Yellow"][COLOR="Red"]LstEmployes.ListIndex = 0[/COLOR][/COLOR]
'    'Nouvel employé par defaut
    bnouveau = True
End Sub

Valeur de propriété incorrecte (Erreur 380)

 

Dernière édition: 22 Novembre 2009

Vote positif 0 Vote négatif

N

nina71287

XLDnaute Occasionnel

• 22 Novembre 2009

• #3

Re : erreur 380 formulaire vba excel

merci pour ta reponse.

C'est ce que je pensais aussi j'avais remarqué que si je modifiais mon 0 avec -1 ma liste des poles se remplissait en revanche celle des employés ne marche pas quand meme. Une idée?

Merci

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 22 Novembre 2009

• #4

Re : erreur 380 formulaire vba excel

hello;

qq modifs

 

Pièces jointes

• Copie de Employés.xlsm

  29.9 KB · Affichages: 129
• Copie de Employés.xlsm

  29.9 KB · Affichages: 136
• Copie de Employés.xlsm

  29.9 KB · Affichages: 131

Vote positif 0 Vote négatif

N

nina71287

XLDnaute Occasionnel

• 22 Novembre 2009

• #5

Re : erreur 380 formulaire vba excel

merci beaucoup! bonne soirée

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 22 Novembre 2009

• #6

Re : erreur 380 formulaire vba excel

nina71287 à dit:

merci beaucoup! bonne soirée

Cliquez pour agrandir...

de rien il y a encore du boulot 😀

 

Vote positif 0 Vote négatif

N

nina71287

XLDnaute Occasionnel

• 22 Novembre 2009

• #7

Re : erreur 380 formulaire vba excel

je reviens vers vous je n'arrive décidément pas à avancer mon bouton valider ne marche pas aucune modification ou ajout d'employés ne se fait. si quelqu'un peut m'aider à avancer en m'expliquant les erreurs que j'ai faites merci 🙂

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 23 Novembre 2009

• #8

Re : erreur 380 formulaire vba excel

nina71287 à dit:

je reviens vers vous je n'arrive décidément pas à avancer mon bouton valider ne marche pas aucune modification ou ajout d'employés ne se fait. si quelqu'un peut m'aider à avancer en m'expliquant les erreurs que j'ai faites merci 🙂

Cliquez pour agrandir...

Bonjour,

un exit sub mal placé ne permettait pas le bon fonctionnement 🙄

 

Pièces jointes

• Copie de Employés.xlsm

  31.3 KB · Affichages: 99
• Copie de Employés.xlsm

  31.3 KB · Affichages: 122
• Copie de Employés.xlsm

  31.3 KB · Affichages: 109

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 23 Novembre 2009

• #9

Re : erreur 380 formulaire vba excel

suite
je n'ai rien fait pour
LstContrat et TxtDateEntree

je ne sais pas ce que tu veux en faire

 

Vote positif 0 Vote négatif

N

nina71287

XLDnaute Occasionnel

• 25 Novembre 2009

• #10

Re : erreur 380 formulaire vba excel

merci beaucoup ca marche tres bien. j'ai complété la lstcontrat et le txtdate_entree en m'inspirant du code que tu m'avais modifié et ca marche.

 

Vote positif 0 Vote négatif