Selection automatique de valeurs
Bonjour,
je voudrais que la saisie d'une valeur alphabétique dans la colonne B (TB, B, P, I) valide la valeur correspondante dans la colonne C. Ceci afin d'effectuer une évaluation en fonction de critères.
le fichier joint permet d'avoir un visuel de ce que je souhaite.
La colonne B est une colonne avec liste déroulante pour un choix plus simple.
Merci par avance
Bonjour. Bienvenue sur le Forum
Code de Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3:B29")) Is Nothing Then
If Target = "TB" Then Target.Offset(0, 1).Value = 6
If Target = "B" Then Target.Offset(0, 1).Value = 4
If Target = "P" Then Target.Offset(0, 1).Value = 3
If Target = "I" Then Target.Offset(0, 1).Value = 1
End If
End SubCordialement
re,
je comprend bien le code, mais comment l'utiliser. Macro ??
encore un coup de pouce .....
MERCI
Bonjour,
Tu colles le code d'Amadeus dans le module de ta feuille (Clic Droit sur l'onglet + Voir le code) et ça marche tout seul... (lors de la saisie uniquement car ce code ne récupère pas les saisies antérieures.)
A+
MERCI
J'ai mis cela pour etendre aux colonnes suivantes mais cela ne fonctionne pas ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B3:B29;E3:E24")) Is Nothing Then
If Target = "TB" Then Target.Offset(0, 1).Value = 6
If Target = "B" Then Target.Offset(0, 1).Value = 4
If Target = "P" Then Target.Offset(0, 1).Value = 3
If Target = "I" Then Target.Offset(0, 1).Value = 1
End If
End Sub
allez encore chti coup de pouce SVP
Bonjour
dans
Range("B3:B29;E3:E24")
remplace le point virgule par une virgule
Range("B3:B29,E3:E24")
Cordialement