Erreur de compilation sub et function non definie

Signaler
Messages postés
2
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
16 juin 2009
-
daffy17
Messages postés
106
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
22 avril 2010
-
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

6 réponses

Messages postés
2
Date d'inscription
vendredi 19 mars 2010
Statut
Membre
Dernière intervention
19 mars 2010
2
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
Messages postés
2811
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
27
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. <
Messages postés
2
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
16 juin 2009

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

Supprimer R2

@+
Messages postés
2811
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
27
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. <
Messages postés
2
Date d'inscription
vendredi 19 mars 2010
Statut
Membre
Dernière intervention
19 mars 2010
2
Si quelqu'un a une solution...
Messages postés
106
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
22 avril 2010

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).