Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Affichage de valeurs différentes selon cellule par double clic

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion rod26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

rod26

Guest
Bonjour,
Je souhaite inscrire par double clic dans une cellule (appartenant à une colonne C) la valeur 1 par exemple puis la valeur 2 dans une autre (appartenant à la colonne G).
Je dispose de ce code mais ne trouve pas le moyen de le modifier pour arriver à mes fins...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
temp = Array("1", "")
If Not Application.Intersect(Target, Range("C1:C38")) Is Nothing Then
With Target
p = Application.Match(Target, temp, 0)
If Not IsError(p) Then
If p = UBound(temp) + 1 Then p = 0
Else
p = 0
End If
Target = temp(p)
Cancel = True
End With
End If
End Sub

J'ai essayé plusieurs choses mais à chaque fois je bloque...
Merci pour votre aide.
 
Trier par date Trier par votes
Bonjour Rod, et bienvenue sur le forum

essaie ce code:
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'un double-clic en colonne C fera alterner les valeurs 1 ou "rien"
If Not Intersect(Target, Range("C1:C38")) Is Nothing Then
Target = IIf(Target = "", 1, "")
End If
'un double-clic en colonne G fera alterner les valeurs 2 ou "rien"
If Not Intersect(Target, Range("G1:G38")) Is Nothing Then
Target = IIf(Target = "", 2, "")
End If
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
Bonjour Philippe,
Super. ça marche nickel. Maintenant, j'arrive même à mettre les colonnes que je veux à 2 et à 1 sans forcément qu'elles se suivent.
Une petite question en + :
est-il possible de ne pas voir apparaître le 1 ou 2 au moment du double clic (comme avec mon ancien code)? Après, je le fais disparaître en personnalisant le format de cellule ( avec ;;😉, ça marche. Mais au moment du clic, je vois les 1 et 2 (cf doc ci-joint).
Après, ce n'est pas bien grave si ce n'est pas possible...
Merci
++
 

Pièces jointes

Vote positif 0 Vote négatif
Re,

voir fichier joint
il n'y a plus de chiffres 1 ou 2 dans les cellules et j'ai supprimé toutes les mises en forme conditionnelles
................ tout se fait via la macro

à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 Insérer un commentaire après clic droit en X (colonne 24) ?
Réponses
2
Affichages
168
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
204
anthoYS
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
251
anthoYS
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
592
un internaute
U
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
243
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
125
anthoYS
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
427
sylvanu
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
690
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
427
un internaute
U
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
146
danielco
D
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
285
TooFatBoy
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
413
nabilexcel2007
N
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
518
spike29
S
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
707
SAMUAL_2023
S
C
  • Résolu(e)
XL 2016 Double-Clic dans une cellule déclenche l'événement Worksheet_Change
Réponses
7
Affichages
275
TooFatBoy
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
23
Affichages
841
SAMUAL_2023
S
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
182
treza88
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
774
Nicolas JACQUIN
N
  • Résolu(e)
Microsoft 365 Ajouter une condition dans une VBA
Réponses
2
Affichages
486
Nathan027
N
N
  • Question Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
442
Nathan027
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…