Réf UserForm - Fonction ou variable attendue

Fermé
JustineK Messages postés 7 Date d'inscription lundi 18 février 2013 Statut Membre Dernière intervention 25 mars 2013 - 1 mars 2013 à 16:58
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 2 mars 2013 à 14:16
Bonjour,

J'ai créé une UserForm "ajouterMEP" avec le code suivant :

Private Sub AjoutMEP_Click()

If (ajouterMEP.ActiviteNewMEPComboBox.Value <> "") And (ajouterMEP.AjoutNatureMEP.Value <> "") Then
ajouterMEP.ActiviteNewMEPComboBox.Value = NewActiviteMEP
        Ligne = 3 '-- première ligne de la liste des activités
        While Sheets("Activités").Range("A" & Ligne).Value <> ajouterMEP.ActiviteNewMEPComboBox.Value
            Ligne = Ligne + 1
        Wend
        NewActiviteMEP = ajouterMEP.ActiviteNewMEPComboBox.Value
        NewDomainAct = Sheets("Activités").Range("C" & Ligne).Value
        NewNomNatureMEP = ajouterMEP.AjoutNatureMEP.Value
                     
        ajouterMEP.Hide
    Else
        reponse = MsgBox("Veuillez renseigner une activité.", vbOKOnly, "Valeur manquante")
    End If
End Sub

Private Sub AjoutNatureMEP_Change()

End Sub

Private Sub AnnulMEP_Click()

    NewActiviteDomaine = ""
    NewNomNatureMEP = ""
    NewDomainAct = ""

End Sub

Private Sub UserForm_Initialize()

    ajouterMEP.AjoutNatureMEP.Value = ""
    ajouterMEP.ActiviteNewMEPComboBox.Value = ""

End Sub


Et ma macro a ensuite ce code ci pour réaliser la tâche :

Sub ajouterMEP()
    
            
          'Ajout de la mise en production dans la feuille Suivi des MEP
               
        NewDomainAct = ""
        NewNomNatureMEP = ""
        NewActiviteMEP = ""
        
        ajouterMEP.ActiviteNewMEPComboBox.Clear
        ajouterMEP.AjoutNatureMEP.Value = ""
       
        
        Dim i As Integer
        
         i = 0
    While Not Worksheets("Activités").Cells(3 + i, 1).Value = ""
        ajouterMEP.ActiviteNewMEPComboBox.AddItem Worksheets("Activités").Cells(3 + i, 1).Value
        i = i + 1
    Wend
                
    ajouterMEP.Show
    
      'Ajout de l'activité dans la feuille Suivi des MEP
          ligneActivite = 16
    
    While Sheets("Suivi des MEP").Range("A" & ligneActivite).Value <> ""
        ligneActivite = ligneActivite + 1
    Wend
    
        Sheets("Suivi des MEP").Range("A" & ligneActivite).Value = NewActiviteMEP
        Sheets("Suivi des MEP").Range("B" & ligneActivite).Value = NewDomainAct
        Sheets("Suivi des MEP").Range("C" & ligneActivite).Value = NewNomNatureMEP
    
        
    With Sheets("Suivi des MEP").Range("A" & ligneActivite & ":" & "C" & ligneActivite)
        .Cells.HorizontalAlignment = xlLeft
        .Cells.Borders(xlDiagonalDown).LineStyle = xlNone
        .Cells.Borders(xlDiagonalUp).LineStyle = xlNone
        .Cells.Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Cells.Borders(xlEdgeTop).LineStyle = xlContinuous
        .Cells.Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Cells.Borders(xlEdgeRight).LineStyle = xlContinuous
        .Cells.Borders(xlInsideVertical).LineStyle = xlContinuous
        .Cells.Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Cells.Font.Name = "Arial"
        .Cells.Font.Size = 10
    End With
     
    End Sub



Les mêmes codes sont utilisés pour deux autres macros dans le même fichier qui fonctionnent très bien. Mais là, lorsque j'exécute la macro je suis bloquée dès le "ajouterMEP.ActiviteNewMEPComboBox.Clear" et une fenêtre m'affiche une erreur de compilation : fonction ou variable attendue. Sachant que j'ai bien défini toutes les variables en texte au début de la macro.

J'espère être claire dans ma demande....

D'avance merci pour votre aide,

Bonne fin de journée.

A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 mars 2013 à 14:16
Bonjour,

Vous ne devez pas nommee une subroutine du meme nom qu'une Userform.

Vous avez uf--->ajouterMEP et sub ajouterMEP
0