Excel 2010 bureautique

Résolu
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. Je vous remercie Vaucluse, vous m'avez beaucoup aidé. Bonne journée.
    Cordialement
    1. 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....
      1. est-ce que c'est possible que j'ai fais d'autre commande pour les lignes , ça dépend de ça?
      2. 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
    2. 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
      1. 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 ♂
        1. Bonjour Raymond Pentier merci pour tes réposes, mais je ne dois pas utiliser le clavier
      2. Bonsoir.Sur une feuille j'ai 4 colonnes, sur 3 colonne je dois marquer x , et sur une y
        1. 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