Générer une croix dans une cellule par simple clic

Bonjour

La question est résumée dans le titre.

Débutante dans excel, version 2010. Pouvez-vous m'expliquer comment générer "X" dans une cellule en faisant un simple clic sur la cellule concernée.

C'est dans le but de créer un tableau pour gérer mon compte bancaire et faire mes rapprochements.

Merci infiniment pour vos réponses.

Bonjour

Avec une macro événementielle (dans ce cas le double clic)

Tu clic sur l'onglet de la feuille concernée ----> Visualiser le code

Dans la fenêtre qui apparait tu colles la macro suivante

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If UCase(Target) = "X" Then Target = "" Else Target = "X"
  Cancel = True
End Sub

Ensuite dans la page Excel tu cliques 2 fois rapidement dans une cellule

Banzai64 a écrit :

Bonjour

Avec une macro événementielle (dans ce cas le double clic)

Tu clic sur l'onglet de la feuille concernée ----> Visualiser le code

Dans la fenêtre qui apparait tu colles la macro suivante

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If UCase(Target) = "X" Then Target = "" Else Target = "X"
  Cancel = True
End Sub

Ensuite dans la page Excel tu cliques 2 fois rapidement dans une cellule

Merci, j'ai essayé mais y'a un truc que je dois mal faire car j'obtiens un message d'erreur. Comme je l'ai précisé, je débute et ne connais pas du tout le principe des macros...

Bonjour

As tu bien suivi ce que j'ai marqué ?

faffoo a écrit :

j'obtiens un message d'erreur

Lequel ?

Sur quelle ligne si tu cliques sur "Debuggage"

Peux tu joindre une copie anonymisée de ton fichier

Quand tu réponds à un message cliques sur "Répondre" (en bas à gauche) au lieu de "Citer" (en haut à droite)

Merci, j'ai réussi cette fois-ci.

Par contre, la flèche pour annuler la dernière opération est inactive

Pourquoi ?

J'ai aussi commencé à regarder le cours sur ce même site concernant la création de macro.

Que veulent-ils dire par "tracer le bouton"...

Bonjour

faffoo a écrit :

Par contre, la flèche pour annuler la dernière opération est inactive

Quelle dernière action : La croix ou autre ?

faffoo a écrit :

Que veulent-ils dire par "tracer le bouton"...

Indiques le lien car je ne sais pas ce que tu veux dire

A moins que cela soit tracer dans le sens utiliser une forme pour créer un bouton

Voici le lien

https://www.excel-pratique.com/fr/vba/premiere_macro.php

Bonjour

D'après ce que je comprends

Une fois que tu as sélectionnédans la barre d'outils contrôles de formulaire

Maintenant, nous voulons que cette macro s'exécute en cliquant sur un bouton.

Cliquez sur Insérer > Bouton (Contrôles de formulaires) :

Pour les versions d'Excel inférieures à 2007 : "Bouton" de la barre "Formulaires".

Tu cliques sur la feuille à l'endroit que tu veux et tout en maintenant le bouton gauche de ta souris enfoncé, tu peux dimensionner (tracer) ton bouton

Tu relâches le bouton gauche et tu auras directement la fenêtre pour choisir ta macro

Merci pour votre soutien

J'ai fait ce que je voulais pour le rapprochement de compte par la croix générée par double clic

Pour ce qui est du reste en matière de macro... je crois que ça va attendre !

Cordialement

Hello !

Je relance le sujet car j'aurais besoin d'un petite précision concernant cette macro. Sachez que je l'ai testé et qu'elle marche parfaitement.

Mon seul souhait serait qu'elle soit effective seulement sur une plage de cellules, en l'occurence dans 4 colonnes. Car dans le reste de mon tableau, je souhaite écrire des choses et je ne le peux vraiment pas car dès que je double clique pour écrire, une croix apparait ... Normal vous me direz car la macro fonctionne. Je voudrais donc que hors de cette plage de cellule,le double clique n'affiche pas de croix et simplement la barre "|" qui clignotte

Merci de votre aide !

Bonjour

nicococo a écrit :

en l'occurence dans 4 colonnes

Lesquelles ?

A tester

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Columns("D:G"), Target) Is Nothing Then
    If UCase(Target) = "X" Then Target = "" Else Target = "X"
    Cancel = True
  End If
End Sub

Banzai64 merci, cela fonctionne avec les colonnes que je souhaite.

Maintenant est ce possible d'aller encore plus loin, c'est à dire de faire fonctionner cette macro uniquement sur des plages de cellules ?

Dans mon cas, il s'agit des colonnes C,D,E,F et des lignes 7 à 111.

Merci

Bonjour

Modifie la macro

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If Not Intersect(Range("C7:F111"), Target) Is Nothing Then
        If UCase(Target) = "X" Then Target = "" Else Target = "X"
        Cancel = True
      End If
    End Sub

Super ca fonctionne !

Encore une petite chose, (et après je valide le sujet )

J'ai essayé de modifier la macro car j'ai deux plages de cellules sur lesquelles je voudrais que la macro soit effective. La "C7:F111" et une autre qui est la "K7:N111"

J'ai tenté de l'integrer dans la macro mais il doit y avoir une petite erreur car ca me met un message d'erreur. Je suis sur que c'est tout bête mais quelque chose coince ...

Merci beaucoup en tout cas de ton aide !!

Bonjour, nicococo

Bienvenue sur le forum,

Une version du code de Banzai64 avec 3 noms que l'on peut insérer dans les colonne A-B-C-D

sur double-clic

Dans le code de la feuille, les entrées peuvent êtres modifiées.

Amicalement

Pierrot

Bonjour

Bonjour Cappe Pierre

Modifie la macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Range("C7:F111,K7:N111"), Target) Is Nothing Then
    If UCase(Target) = "X" Then Target = "" Else Target = "X"
    Cancel = True
  End If
End Sub

Merci Banzai,

c'est parfait comme toujours.

Bisous

Pierrot