Discussion :

[ZowZow]

Bonjour à tous et à toute,

Après plusieurs tentatives, et plusieurs solutions trouvées sur Internet et notamment sur votre site, je n'ai pas réussis à trouver une réponse qui marche dans mon cas.

Voici le contexte :
Je développe un fichier Excel qui ne pourra être modifiable dans l'avenir, j'ai donc dans toute mes macros (non-joint car trop lourde) une simple fonction "Unprotect" au début et "Protect" à la fin des macros.

Cependant, j'utilise une liste de type déroulante avec plusieurs champs définis par plage (attention, pas un Userform, je parle bien d'une liste déroulante placée sur la feuille Excel) et j'associe donc à cette liste une case (par exemple A1) qui écrit une valeur numérique (1,2,3,4 etc...).
Evidemment, une erreur "Document protégé" apparaît lorsque je souhaite simplement changer le champ de cette liste car elle écrit au même moment sur "A1".

Ma question est simple : Est-il possible d’exécuter une macro (ou autre solution) permettant d'ôter la protection lorsque la personne a choisi une nouvelle valeur de la liste déroulante, puis après avoir automatiquement changé la valeur numérique de la case "A1", remettre la protection de la feuille ?

J'espère avoir été assez clair dans mes explications, je suis disponible pour toute autre questions.

Merci d'avance,

ZowZow.

[ptitcool]

Salut ZowZow,

Au vu de la description du problème, je déduis que ta liste déroulante est un controle de formulaire et non un controle ActiveX (il y a deux catégorie quand tu cliques sur Inserer).
D'après ce que je sais, ce type de contrôle n'offre pas beaucoup de fonctionnalité et je ne pense pas qu'on puisse faire ce que tu veux avec.
Par contre avec un controle ActiveX c'est possible. Si tu ajoutes une telle liste déroulante à ta feuille, tu auras accès à plusieurs évènements dont un qui se lance lors du choix d'un élément de la liste. Il suffit alors de lancer ta macro Unprotect puis tu édites la cellule à laquelle était lié ton ancienne liste déroulante.

Pour accéder à ces évènements tu vas dans l'éditeur vba, dans le code de la feuille où tu as mis ton contrôle. En haut il y aura deux listes, dans (général) tu choisis ta liste (combobox) et dans (Déclaration) tu choisis l'évènement (change dans ton cas).

Je suis pas sur d'avoir été clair donc hésite pas à revenir

[ZowZow]

Bonjour,

Tout d'abord merci Ptitcool pour cette réponse claire et rapide.

Cependant après avoir essayé, cela ne résout pas vraiment le problème, en effet le combobox "écrit" d'abord dans "A1" avant d’exécuter le code "Combobox_Change".
Du coup l'erreur apparaît toujours, et la protection est ôtée après avoir cliqué sur le "ok" d'erreur.
Je ne sais pas si je suis très clair..

Je pense donc que la solution serait de ne pas associer une case (ici A1) à la liste déroulante, et d'utiliser directement la fonction "Combobox_Change" pour exécuter un programme qui récupère la valeur de Combobox, de cette manière le droit en lecture seule ne posera pas de problème.

Je vais essayer plusieurs méthode et je ferrais un double post en collant mon bout de programme si cela fonctionne.

Je suis toujours preneur d'autres solutions qui résoudraient mon problème,

ZowZow.

[ZowZow]

Je m'excuse du double post mais j'ai trouvé la solution à mon problème.

Il fallait tout simplement ne pas associer de case à la Combobox, et le faire "manuellement" en VB.

Voici donc le code très simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
 
Sheets("Ma_Feuille").Unprotect Password:="Mon_Mot_De_Passe"
 
Dim Valeur As String
 
Valeur = ComboBox1.Value
Range("A1").Value = Valeur
 
Sheets("Ma_Feuille").Protect Password:="Mon_Mot_De_Passe"
 
End Sub

Je passe le sujet en [RESOLU], merci pour l'aide !

ZowZow.