Excel 2010 bureautique

Résolu
camilleaaa Messages postés 53 Statut Membre -  
camilleaaa Messages postés 53 Statut Membre -
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 Messages postés 87 Statut Membre 4
     
    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
  2. camilleaaa Messages postés 53 Statut Membre
     
    Bonsoir.Sur une feuille j'ai 4 colonnes, sur 3 colonne je dois marquer x , et sur une y
    0
  3. Raymond PENTIER Messages postés 58211 Date d'inscription   Statut Contributeur Dernière intervention   17 480
     
    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 Messages postés 53 Statut Membre
       
      Bonjour Raymond Pentier merci pour tes réposes, mais je ne dois pas utiliser le clavier
      0
  4. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. camilleaaa Messages postés 53 Statut Membre
     
    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 Messages postés 53 Statut Membre
       
      est-ce que c'est possible que j'ai fais d'autre commande pour les lignes , ça dépend de ça?
      0
    2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
       
      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
  7. camilleaaa Messages postés 53 Statut Membre
     
    Je vous remercie Vaucluse, vous m'avez beaucoup aidé. Bonne journée.
    Cordialement
    0