Excel 2010 bureautique

Résolu
camilleaaa -  
Bonjour,
je veux que, quand je clique sur une cellule de excel 2010, ça me marque directement X .Est-ce que c'est possible,
S'il vous plâit quelqu'un peux m'aider?
Merci d'avance

6 réponses

  1. prunety
    Re bonjour !
    Tu ne precise pas si tu veux ca systématiquement dans toute une feuille ou si c'est sur une plage seulement
    A+

    Yves
    0
    1. camilleaaa Auteur
      Bonsoir.Sur une feuille j'ai 4 colonnes, sur 3 colonne je dois marquer x , et sur une y
      0
      1. Raymond PENTIER Contributeur
        Salut.

        Et pourquoi tu ne veux pas cliquer sur la lettre X , tout simplement ?

        Parce que pour obtenir exactement ce que tu expliques, ce sera très compliqué : dans chaque cellule il faudra insérer un bouton de contrôle Activex et lui affecter une macro ... Beaucoup de complications pour pas grand-chose !

        Si tu acceptes un compromis avec 2 clics au lieu d'un seul, je te suggère de sélectionner les cellules devant contenir X et d'y insérer une liste déroulante de cellule avec la seule donnée X comme source ... Pareil pour les cellules devant contenir Y. ---- Ainsi tu empêches les utilisateurs de saisir autre chose que X (ou Y) dans les cellules concernées.

        Cordialement.

        C'est bien, la retraite ! Surtout aux Antilles ... :-)
        ☻ Raymond ♂
        0
        1. camilleaaa Auteur
          Bonjour Raymond Pentier merci pour tes réposes, mais je ne dois pas utiliser le clavier
          0
      2. Vaucluse Contributeur
        Bonjour
        il semble qu'un menu déroulant avec l'option X pour trois colonnes et Y pour l'autre puisse résoudre votre problème facilement sans passer par VBA, si vous ne voulez pas utiliser le clavier.
        Si toutefois vous tenez à un automatisme poussé:

        clic droit sur le nom de l'onglet et dans la liste sélectionnez:
        Visualiser le code
        et coller ce libellé


        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        '_localiser l'action de colonne B (>1) à D (<5) incluses
        If Target.Column > 1 And Target.Column < 5 Then
        ActiveCell.Value = "X"
        End If
        '_localiser l'action dans colonne E (=5)
        If Target.Column = 5 Then
        ActiveCell.Value = "Y"
        End If
        End Sub

        Pour ajuster à votre configuration
        ce code colle X si vous sélectionnez une cellule dans les colonnes B,C,D donc avec la ligne >1 and <5
        et colle Y dans une cellule de la colonne 5 (E)
        il suffit d'ajuster ces N° pour les aligner sur vos besoins

        crdlmnt

        Errare humanum est, perseverare diabolicum
        0
        2. camilleaaa Auteur
          Bonjour Vaucluse merci beaucoup.
          et quand j'ai 6 colonnes de D à I. sur le colonne D je veux marquer c, sur le colonne E je veux marquer nc et sur les colonnes F, G , H, I je veux marquer x. j'essaie avec la même méthode mais je n'arrive pas....
          0
          1. camilleaaa Auteur
            est-ce que c'est possible que j'ai fais d'autre commande pour les lignes , ça dépend de ça?
            0
          2. Vaucluse Contributeur
            Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            If Target.Column > 5 And Target.Column < 10 Then
            ActiveCell.Value = "X"
            End If

            If Target.Column = 4 Then
            ActiveCell.Value = "C"
            End If

            If Target.Column = 5 Then
            ActiveCell.Value = "nc"
            End If

            End Sub

            si vous n 'utilisez qu'une partie des lignes vous pouvez limiter ;le champ de la macro en hauteur
            exemple pour ligne de 2 à 99

            Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            If Target.Column > 5 And Target.Column < 10 And Target.Row > 1 And Target.Row < 100 Then
            ActiveCell.Value = "X"
            End If

            If Target.Column = 4 And Target.Row > 1 And Target.Row < 100 Then
            ActiveCell.Value = "C"
            End If

            If Target.Column = 5 And Target.Row > 1 And Target.Row < 100 Then
            ActiveCell.Value = "nc"
            End If

            End Sub
            0
        3. camilleaaa Auteur
          Je vous remercie Vaucluse, vous m'avez beaucoup aidé. Bonne journée.
          Cordialement
          0