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