Discussion :

[aniu]

Bonjour!

quelqu'un peut-il m'aider, je suis débutante...

1- je dois créer une procédure qui affiche un message dès que utilisateur selectionne une plage déterminée dont on souhaite interdire l'accès, puis qui déplace le curseur sur la cellule A1 de la feuille.
Voici exactement ce que j'ai écrit:

Code :

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

1
2
3
4
5
6
7
Sub Question3() 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
  If Not Application.Intersect(Target, Range("A1:B3")) Is Nothing Then 
    MsgBox "vous ne pouvez pas selectionner cette plage!" 
    Range("A1:B3").Select 
  End If 
End Sub

Mais ça ne marche pas...


2- comment créer une fonction qui calcule la moyenne des valeurs, contenues dans une plage de valeurs selectionnées, en ne retenant que les valeurs de la plage comprises entre 2 bornes variables.

Merci et reconnaissance éternelle à tout génie de l'informatique qui pourra m'aider...

[zazaraignée]

Salut

C'est une fonction d'Excel. Tu n'as pas besoin de passer par le code VBA. Par défaut, les cellules d'une feuille sont verrouillée. Alors si tu mets une protection sur ta feuille, toutes les cellules sont non-modifiables.

Sélectionne toutes les plages où l'utilisateur aura l'autorisation d'entrer des données. Ensuite, affiche la boîte de dialogue Format de cellule et clique sur l'onglet Protection et décoche la (flèche? nonnn...) case Verrouillé.

Finalement, va dans le menu Outils (il me semble) et sélectionne Protection > Feuille. Une boîte de dialogue te demande d'entrer un mot de passe. C'est mieux d'en mettre un et note-le dans ta documentation de projet.

[aniu]

oui merci zaaraigné!
le problème c'est que je dois ECRIRE cette procédure en langage VBA (parce que sinon, moi aussi je sais me servir des options d'Excel...), sinon en effet ça serait du niveau maternelle...
des idées?

[Igloobel]

Salut

Et si tu demande à Excel de faire la macro à ta place ça marche pas ?
( tu sais dans: Outils - macros - nouvelles macro, etc ...)

Tu dis

Igloobel

[AlainTech]

1- je dois créer une procédure qui affiche un message dès que utilisateur selectionne une plage déterminée dont on souhaite interdire l'accès, puis qui déplace le curseur sur la cellule A1 de la feuille.
Voici exactement ce que j'ai écrit:

Code :

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

1
2
3
4
5
6
7
Sub Question3() 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
  If Not Application.Intersect(Target, Range("A1:B3")) Is Nothing Then 
    MsgBox "vous ne pouvez pas selectionner cette plage!" 
    Range("A1:B3").Select 
  End If 
End Sub

Mais ça ne marche pas...

Quelle est la plage à laquelle tu veux empêcher l'accès?

Dans ton code, tu interdis Range([A1],[B3]) puis tu sélectionnes cette même plage...

Peut-être cherches-tu à n'autoriser que Range([A1],[B3])...

Si c'est le cas, il y a un Not de trop:

Code :

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

If Application.Intersect(Target, Range("A1:B3")) Is Nothing Then