VBA: interdire une selection

salut
réponse à ta 1ère question
a mettre dans le VBA de la feuille concernée
cette fonction empêche de sélectionner les cellules B2:C10 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range('B2:C10')) Is Nothing Then
MsgBox 'coin - coin'
Range('A1').Select
End If
End Sub

pour la 2ème pas de réponse désolé

JC

Bonsoir Aniu et JC de Lorient,

Pas très génial mais ça marche glupp !

1- La plage interdite est B4😀21.

2- En A2 le nombre de nombres compris entre les bornes C2/D2 et dans B2 la moyenne de ces nombres (2 décimales).

Cordialement

Bernard [file name=PlageMoyenneAniu.zip size=7370]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PlageMoyenneAniu.zip[/file]

merci beaucoup JC de Lorient,
voici exactement ce que j'ai donc écrit suite à tes conseils:

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 je ne comprends pas mon ordinateur bug et me demande un 'End Sub', mais il y est mon 'End Sub'!! Bougre d'ordinateur!!
:angry:

alors pourquoi ça marche pas CHEZ MOI?

Bonsoir Aniu, JC de Lorient, CBernardT,

Visiblement Aniu, il semble que tu n'ais pas vu la proposition de CBernardT ci-dessus...

Pour tenter de répondre à tes interrogations concernant le code proposé par JC de Lorient :
[ol][li]Le code de JC de Lorient est à copier dans le module de code de la feuille de calcul.[/li]
[li]Ta ligne de code :

Sub Question3()

Cliquez pour agrandir...

est de trop, il convient de la supprimer (c'est la raison pour laquelle Excel te réclame un autre 'End Sub'. Cette situation est impossible, tu ne peux pas imbriquer 2 procédures Sub l'une dans l'autre en VBA).[/li]
[li]JC de Lorient précise également dans son exemple:

Range('A1').Select

Cliquez pour agrandir...

et non

Range('A1:B3').Select

Cliquez pour agrandir...

[/li]
[li]De plus, si tu analyse ton code, tu affiches un message d'interdiction lorsque l'utilisateur se place dans la plage 'A1:B3' et tu sélectionnes par le code cette plage immédiatement après !???[/li][/ol]
Par ailleurs, tu trouveras ci-joint un autre proposition utilisant une fonction personnalisée VBA pour le calcul de cette moyenne particulière...

Cordialement, [file name=PourAniu.zip size=9106]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourAniu.zip[/file]

salut bernard!

je n'ai pas vu ta pièce jointe hier soir, raison pour laquelle je ne comprenais pas grand chose...
un grand merci, ça marche! et en plus le tableau a de jolies couleurs... 🙂

A+

Re😛roblème résolu!

merci aussi JC de Lorient... 🙂
j'ai de quoi trouver mon bonheur...
bonne journée à tous!