IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Selectionner des cellules mais en interdire toutes modifications


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé Avatar de Laskar
    Homme Profil pro
    Inscrit en
    Mai 2002
    Messages
    230
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations forums :
    Inscription : Mai 2002
    Messages : 230
    Par défaut Selectionner des cellules mais en interdire toutes modifications
    Bonjour,

    Imaginez une plage de 10 cellules, mettons A1:A10.
    Je voudrais que l'utilisateur choisisse une cellule dans cette plage et la remplisse en cliquant sur un bouton via une macro. Mais j'aimerais que la saisie manuelle dans cette plage de cellules ne soit pas autorisée.
    De plus, j'aimerais que toutes les cellules en dehors de cette plage ne soit pas sélectionnables.
    Comment faire en VBE ?

    (j'en demande trop ? )

    Merci

  2. #2
    Expert confirmé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2013
    Messages
    3 609
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Alimentation

    Informations forums :
    Inscription : Mai 2013
    Messages : 3 609
    Par défaut
    Bonjour,

    En mettant ceci dans le code de ta feuille, le curseur reviendra dans la plage mentionnée (ici A1:A10)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
        Application.EnableEvents = False
        If Intersect(Range("A1:A10"), Target) Is Nothing Then
            Range("A1").Select
        End If
        Application.EnableEvents = True
     
    End Sub
    S'il n'y a pas d'autres cellules utiles dans ta feuille, tu peux aussi masquer toutes les lignes et colonnes inutiles...

    Pour empêcher la saisie, protège la feuille et quand tu cliques le bouton, tu déprotèges la feuille, tu fais ce que tu as à faire et tu reprotèges...

Discussions similaires

  1. Réponses: 1
    Dernier message: 22/07/2015, 03h31
  2. [OpenOffice][Tableur] selectionner des cellules lorsqu'une boîte de dialogue est ouverte
    Par d.bessonneau dans le forum OpenOffice & LibreOffice
    Réponses: 1
    Dernier message: 29/12/2009, 22h34
  3. macro pour selectionner des cellules
    Par Daniela dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 17/02/2009, 09h27
  4. je copie des cellules mais ça ne prend pas
    Par NulenVBA dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 10/12/2008, 20h39
  5. selectionner des cellules de couleurs
    Par SAINT-BERNARD dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 25/08/2006, 20h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo