Erreur de compilation sub et function non definie

Messages postés
2
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
16 juin 2009
- - Dernière réponse : daffy17
Messages postés
106
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
22 avril 2010
- 19 mars 2010 à 10:07
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
Afficher la suite 

6 réponses

Meilleure réponse
Messages postés
2
Date d'inscription
vendredi 19 mars 2010
Statut
Membre
Dernière intervention
19 mars 2010
2
2
Merci
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

Dire « Merci » 2

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 210 internautes nous ont dit merci ce mois-ci

Commenter la réponse de tut63500
Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
16
0
Merci
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. <
Commenter la réponse de Mayzz
Messages postés
2
Date d'inscription
mardi 16 juin 2009
Statut
Membre
Dernière intervention
16 juin 2009
0
Merci
Merci de ta réponse mais je ne comprend rien dans le codage d'access alors que dois je faire ????

Supprimer R2

@+
Commenter la réponse de ioulia1
Messages postés
2859
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
26 novembre 2013
16
0
Merci
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. <
Commenter la réponse de Mayzz
Messages postés
2
Date d'inscription
vendredi 19 mars 2010
Statut
Membre
Dernière intervention
19 mars 2010
2
0
Merci
Si quelqu'un a une solution...
Commenter la réponse de tut63500
Messages postés
106
Date d'inscription
mercredi 18 mai 2005
Statut
Membre
Dernière intervention
22 avril 2010
0
Merci
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).
Commenter la réponse de daffy17