Saisir une valeur avec un double clic

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.

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

Un grand merci Mike. C'est nickel !