Saisir une valeur avec un double clic
Résolu
giles01
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
giles01 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
giles01 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Saisir une valeur avec un double clic
- Double ecran - Guide
- Whatsapp double sim - Guide
- Comment saisir une adresse url - Guide
- Double driver - Télécharger - Pilotes & Matériel
- Double appel - Guide
4 réponses
Bonsoir,
voila le code à placer dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code)
rivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then Target = 3
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then Target = 2
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then Target = 1
End Sub
mais pour éviter l'activation du code sur toute la colonne, je te conseille de mettre des limites à chacune d'entre elle
Range("B2:B20") et idem pour les colonnes C et D
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
voila le code à placer dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code)
rivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then Target = 3
If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then Target = 2
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then Target = 1
End Sub
mais pour éviter l'activation du code sur toute la colonne, je te conseille de mettre des limites à chacune d'entre elle
Range("B2:B20") et idem pour les colonnes C et D
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Super , c'est ça. Encore une question...si j'ai plusieurs colonne avec la même valeur, comme par exemple Colonne C et colonne F= 3, comment le noter dans ce code (une virgule ?)
Re,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, [B:B]) Is Nothing Then Target = 2
If Not Application.Intersect(Target, [C:C,F:F]) Is Nothing Then Target = 3
If Not Application.Intersect(Target, [D:D]) Is Nothing Then Target = 1
Target(2, 1).Select
End Sub
j'ai rajouter en fin de code "Target(2, 1).Select" pour libérer la cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, [B:B]) Is Nothing Then Target = 2
If Not Application.Intersect(Target, [C:C,F:F]) Is Nothing Then Target = 3
If Not Application.Intersect(Target, [D:D]) Is Nothing Then Target = 1
Target(2, 1).Select
End Sub
j'ai rajouter en fin de code "Target(2, 1).Select" pour libérer la cellule