Excel VBA interdire l'accès à une plage
Résolu
Pab
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour à tous,
Mon problème est le suivant :
J'ai créé un code VBA qui me permet d'interdire l'accès à une cellule. Ce code est le suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = "D8" Then
MsgBox "acces interdit pour tout le monde"
Application.EnableEvents = False
Target.Offset(1, 0).Select
Application.EnableEvents = True
End If
Très simple en apparence ...
Mais, je voudrais que ce code s'applique à une plage de cellule, et non pas à la seule cellule D8. Le fait de remplacer "D8" par "D8:F20" ne fonctionne pas.
Voila, j'espere avoir été clair.
Merci d'avance !!!
Mon problème est le suivant :
J'ai créé un code VBA qui me permet d'interdire l'accès à une cellule. Ce code est le suivant :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(RowAbsolute:=False, ColumnAbsolute:=False) = "D8" Then
MsgBox "acces interdit pour tout le monde"
Application.EnableEvents = False
Target.Offset(1, 0).Select
Application.EnableEvents = True
End If
Très simple en apparence ...
Mais, je voudrais que ce code s'applique à une plage de cellule, et non pas à la seule cellule D8. Le fait de remplacer "D8" par "D8:F20" ne fonctionne pas.
Voila, j'espere avoir été clair.
Merci d'avance !!!
A voir également:
- Empêcher modification cellule excel vba
- Liste déroulante excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Suivi de modification word - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
3 réponses
Salut,
Tu peux "encadrer" ton range en faisant plusieurs If And :
Tu peux "encadrer" ton range en faisant plusieurs If And :
If Target.Row > 7 And Target.Row < 21 And Target.Column >3 And Target.Column < 7 Then
Bon alors on va reprendre tout depuis le début avec la bonne base VBA. Je t'ai donné une méthode qui "suivait" ton début de code, mais le plus simple pour toi est d'utiliser Intersect comme ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("tableau")) Is Nothing Then 'à adapter, tableau est le nom définit de ta plage de cellules
MsgBox "ok dans la plage"
Else
MsgBox "pas dans la plage"
End If
End Sub
Merci, en effet, c'est beaucoup mieux. Mais tu as oublié le but de ma macro qui est d'empécher les modifications sur ce tableau. Ma macro adapté avec ton aide est la suivante :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("tableau")) Is Nothing Then
MsgBox "acces interdit pour tout le monde"
Application.EnableEvents = False
Target.Offset(1, 0).Select
Application.EnableEvents = True
End If
End Sub
MAIS, la formule Target.Offset(1,0).select me fait sélectionner la cellule en dessous de celle cliquée. Je voudrais que ma formule sélectionne la case "A1". Est ce possible ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("tableau")) Is Nothing Then
MsgBox "acces interdit pour tout le monde"
Application.EnableEvents = False
Target.Offset(1, 0).Select
Application.EnableEvents = True
End If
End Sub
MAIS, la formule Target.Offset(1,0).select me fait sélectionner la cellule en dessous de celle cliquée. Je voudrais que ma formule sélectionne la case "A1". Est ce possible ?
Je n'ai rien oublié. Je t'ai donné le code adéquat, à toi à l'adapter... Pour ta question, regarde ce code et ... avoue qu'il n'y avait rien de compliqué...
Petit détail important lorsque tu postes sur un forum (ici ou ailleurs): pour plus de lisibilité, au dessus de chacun de tes messagfes, lorsque tu les compose, il y a des "balises". Pour ici, tu vois : B, I, S, <>. B = texte en gras, I italique, S souligné et <> pour le code. Chaque fois que tu places du code ici, sélectionne le en entier et clique sur <>.
Bonne journée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("tableau")) Is Nothing Then
MsgBox "acces interdit pour tout le monde"
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
End If
End Sub
Petit détail important lorsque tu postes sur un forum (ici ou ailleurs): pour plus de lisibilité, au dessus de chacun de tes messagfes, lorsque tu les compose, il y a des "balises". Pour ici, tu vois : B, I, S, <>. B = texte en gras, I italique, S souligné et <> pour le code. Chaque fois que tu places du code ici, sélectionne le en entier et clique sur <>.
Bonne journée
Merci bien, en théorie c'est la solution. Sauf que j'ai oublié une précision. Je ne connais pas la taille de la plage. Du moins en nombre de ligne. Je sais qu'il y a 3 colonnes, mais le nombre de ligne est varible (bien que le même pour chaque colonne).
Une autre macro m'a permis de nommer mon tableau dynamiquement. Il s'appelle "tableau", et lorsque je rajoute une ligne, ma plage s'appelle toujours "tableau" (en prenant compte la ligne en plus).
Est il possible d'insérer ce nom "tableau" dans ma macro ?
Une autre macro m'a permis de nommer mon tableau dynamiquement. Il s'appelle "tableau", et lorsque je rajoute une ligne, ma plage s'appelle toujours "tableau" (en prenant compte la ligne en plus).
Est il possible d'insérer ce nom "tableau" dans ma macro ?
