Besoin d'aide pour traduction vb

  • Initiateur de la discussion Maud
  • Date de début
M

Maud

Guest
Pourriez m'indiquer comment réaliser le programme en vb suivant ?

* Si valeur saisie dans la cellule (D,1)
alors déprotéger la feuille
puis mettre à jour requete,
protéger de nouveau la feuille


Merci beaucoup pour votre aide, bonne soirée
 
R

Robert

Guest
Bonsoir le forum, bonsoir Maud

il y a certainement mieux mais voici le code que je te propose pour ta feuille contenant la cellule:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Cells(1, 4).Value <> "" Then 'ta cellule D1
ActiveSheet.Unprotect
End If
'mise à jour de ta requête
ActiveSheet.Protect
End Sub

Robert
 
F

Francis

Guest
Bonsoir le forum, maud et robert,

si je ne me plante pas, je crois que le code ci-àprès premettra de protégert et puis déprotéger les feuilles 1 et 2 (ou +) avec un mot de passe.
Je crois aussi que 'mise à jour de la requête doit être placé avant le endif sinon la requête risque de s'effecteur sur la feuille protégée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveSheet.Cells(1, 4).Value <> "" Then 'ta cellule D1
Sheets("feuil1").Select
ActiveSheet.Unprotect ("password")
Sheets("feuil2").Select
ActiveSheet.Unprotect ("password")
'mise à jour de ta requête
endif
Sheets("feuil1").Select
ActiveSheet.protect ("password")
Sheets("feuil2").Select
ActiveSheet.protect ("password")

Francis
 
R

Robert

Guest
Francis, Maud, re

Je suis désolé mais je viens de me rendre compte que le code que je t’ai donné ne fonctionne pas du tout car il reprotège toujours la feuille et empêche de retaper une valeur dans D1. Celui de Francis a le même problème puisqu’il est basé sur le mien.
Du coup j’ose à peine répondre à ta deuxième question car l’endroit où tu devras copier le code (donné par quelqu’un de compétent cette fois) dépend de la méthode qu’il aura choisi.
Pour ouvrir VBA : [Alt]+[F11] ou menu Outils / Macro / Visual Basic Editor

Je te conseille donc de reposer ta question en précisant qu’il te faut une explication détaillée.
Désolé de m’être précipité pour de dire des c…

Robert
 

Discussions similaires

Réponses
7
Affichages
485