XL 2016 formulaire de saisie et recherche V

[Phylo]

A l'aide des collégues de ce forum; j'ai crée un formulaire de saisie pour ajouter des informations.
J'ai utilisé un code VBA pour exécuter la fonction recherche V dans la colonne C sur la base de l'information de la colonne B (dans la feuille source)

voici le code
If Target.Column = 2 Then
Dim lig As Long
lig = Sheets("Mes listes").Columns(1).Cells.Find(what:=Target.Value, LookAt:=xlWhole).Row
Range("C" & Target.Row) = Sheets("Mes listes").Range("B" & lig).Value
End If

Le code mauellement marche trés bien
mais quand j'utilise le formulaire; la fonction ne s'éxcute pas; je dois retapper le code


merci si vous pouvez m'aider

 

[sylvanu]

Bonjour Phylo,
Votre code se situe dans la macro Worksheet_Change avec Target comme paramètre.
Target est initialisée par la référence de la cellule que vous avez modifiée.
Si vous appelez cette macro par un formulaire, Target n'est pas initialisée et ça ne peut pas marcher dans l'état.

 

[Phylo]

Par la meme occasion, dans le meme fichier

Comment pourrais-je autoriser la fonction de plusieurs macros avec une feuille protégée par un mot de passe par exemple ''2020'' ?

Merci

 

[Phylo]

Bonjour Phylo,
Votre code se situe dans la macro Worksheet_Change avec Target comme paramètre.
Target est initialisée par la référence de la cellule que vous avez modifiée.
Si vous appelez cette macro par un formulaire, Target n'est pas initialisée et ça ne peut pas marcher dans l'état.

Merci Sylvanu pour ta réponse.
Je ne suis pas trés doué; mais ce que je comprends que je dois mettre le codage dans une autre macro ou je dois changer

merci d'apporter votre aide dans le fichier
merci bcp

 

[sylvanu]

Comment pourrais-je autoriser la fonction de plusieurs macros avec une feuille protégée par un mot de passe par exemple ''2020'' ?

Une solution :

ActiveSheet.Unprotect ("2020")
   ...
   code à éxécuter
   ...
ActiveSheet.Protect Password:="2020"

 

[Phil69970]

Bonjour Phylo, sylvanu, le forum

1ere solution :
Sheets(“Nom de la feuille”).Unprotect Password:=”2020” 'ici mon mot de passe
' Le code de la macro
' blablabla
Sheets(“Nom de la feuille”).Protect Password:=”2020” 'ici mon mot de passe


2eme solution:
Private Sub Workbook_Open()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Protect Password:="2020", UserInterFaceOnly:=True
Next Sh
End Sub
Pour ka 2eme solution

@Phil69970