erreur de compilation sub et function non definie

Question

Bonjour

J'ai un message d'erreur : ERREUR DE COMPILATION: sub ou function non définie.

et voici l'erreur dans le code: 

End Sub

Private Sub Qui_AfterUpdate()
On Error GoTo Err_Qui_Click
    
    'Rechercher l 'enregistrement correspondant au contrôle.
    Me.RecordsetClone.FindFirst "[CodeIntPersonne] = " & Me![Qui]
    Me.Bookmark = Me.RecordsetClone.Bookmark
    Me![Titre].SetFocus
    
Err_Qui_Click:
R2
Me.RecordsetClone.FindFirst "[CodeIntPersonne] = " & Me![Qui]
    Me.Bookmark = Me.RecordsetClone.Bookmark
    Resume Exit_Qui_Click

Merci de votre soutien
Laurence

tut63500 · Accepted Answer

Bonjour,
J'ai a peu près le même problème : 

Erreur de compilation : Sub ou Fonction non définie

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/03/2010 par F287571
'

'
    ActiveWorkbook.RefreshAll
    SolverOk SetCell:="$M$6", MaxMinVal:=2, ValueOf:="0", ByChange:="$E$13:$I$13"
    SolverSolve
End Sub

Mayzz · Answer

Bonjour,

c'est simple tu appel une fonction qui n'existe pas...

d'après ce que je peux voir c'est R2

@+ Mayzz.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

ioulia1 · Answer

Merci de ta réponse mais je ne comprend rien dans le codage d'access alors que dois je faire ????

Supprimer R2

@+

Mayzz · Answer

Si tu ne comprend pas le codage alors je te suggère de ne pas y toucher !

Effectivement il faut supprimer R2, mais si cette fonction était appelé au départ c'est qu'elle servait à quelque chose... Il te manque un morceau de la macro, la ou se trouve cette fonction.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

tut63500 · Answer

Si quelqu'un a une solution...

daffy17 · Answer

A priori c'est la même chose, la fonction "SolverOk" n'existe pas pour excel, ou bien n'est pas visible (par exemple si c'est une méthode d'une autre feuille mais qui est déclarer en private function).

Erreur de compilation sub et function non definie

6 réponses

Votre réponse

sur les mêmes thèmes