Erreur sur Formulaire de Modification

[dedel74]

Bonjour tout le monde,

Je sollicite à nouveau votre aide pour un bocage de formulaire.
J'ai créé un tableau de contact sur la feuille "BDINSTALLATEUR"
Je suis entrain de créer un formulaire dans "UserForm1"
Je sélectionne mon contact par la dénomination, les différentes infos s'affichent bien dans chaque case correspondante jusque tout va bien.
J'ai juste une erreur au niveau de l'enregistrement de la modification.
Si je modifie une donnée, et que le valide par "MODIFIER" là j'ai un message d'erreur :

Private Sub CommandModifierInst_Click()
'--- Contrôles
If Me.TextNomInst = "" Then
MsgBox "Saisir un nom!"
Me.TextNomInst.SetFocus
Exit Sub
End If
'--- Positionnement dans la base
'[B:B].Find(What:=Me.TextNomInst, LookIn:=xlValues).Select
ActiveCell.Offset(-6, -1).Select = ERREUR A CE NIVEAU
'--- Transfert Formulaire dans BD
ActiveCell.Offset(0, 1).Value = Application.Proper(Me.TextAdresse1Inst)
ActiveCell.Offset(0, 2).Value = Application.Proper(Me.TextAdresse2Inst)
ActiveCell.Offset(0, 3).Value = Me.TextAdresse3Inst
ActiveCell.Offset(0, 4).Value = Me.TextCPInst
ActiveCell.Offset(0, 5).Value = Me.TextVilleInst

End Sub

Je vous transmet mon fichier pour être plus clair.

Merci d'avance

Dedel74

 

[pierrejean]

Re : Erreur sur Formulaire de Modification

bonjour dedel74

mets la ligne en question en commentaire

'ActiveCell.Offset(-6, -1).Select