Saisir une valeur avec un double clic
Résolu/Fermé
giles01
Messages postés
6
Date d'inscription
samedi 14 juillet 2012
Statut
Membre
Dernière intervention
15 octobre 2013
-
15 oct. 2013 à 21:15
giles01 Messages postés 6 Date d'inscription samedi 14 juillet 2012 Statut Membre Dernière intervention 15 octobre 2013 - 15 oct. 2013 à 22:11
giles01 Messages postés 6 Date d'inscription samedi 14 juillet 2012 Statut Membre Dernière intervention 15 octobre 2013 - 15 oct. 2013 à 22:11
A voir également:
- Saisir une valeur avec un double clic
- Double ecran - Guide
- Whatsapp double sim - Guide
- Rech. ou saisir l'url - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? - Forum VB / VBA
4 réponses
Mike-31
Messages postés
18349
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 novembre 2024
5 105
Modifié par Mike-31 le 15/10/2013 à 21:35
Modifié par Mike-31 le 15/10/2013 à 21:35
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.
giles01
Messages postés
6
Date d'inscription
samedi 14 juillet 2012
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 21:47
15 oct. 2013 à 21:47
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 ?)
Mike-31
Messages postés
18349
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
27 novembre 2024
5 105
15 oct. 2013 à 21:58
15 oct. 2013 à 21:58
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
giles01
Messages postés
6
Date d'inscription
samedi 14 juillet 2012
Statut
Membre
Dernière intervention
15 octobre 2013
15 oct. 2013 à 22:11
15 oct. 2013 à 22:11
Un grand merci Mike. C'est nickel !