[Résolu] Fonction Select Case

[noviceAG]

Bonjour à tous,
Je désirerai à l'aide de la fonction Select Case, pouvoir renseigner la cellule immédiatement à droite de la cellule ou s'effectue la saisie dans la plage AW3:AW200
Exemple : Je saisie 1 en AW 7 je souhaite obtenir Garantie constructeur en AX7

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AW3:AW200")) Is Nothing Then
Select Case ("AW1:AW200")
Case Is = 1
ICI : [COLOR="red"]Garantie constructeur[/COLOR]
Case Is = 2
ICI : [COLOR="red"]Visite semestrielle[/COLOR]
Case Is =3
ETC.
End Select
End If
End Sub

Je vous remercie de l'aide que vous voudrez bien m'apporter.

 

[Pierrot93]

Re : Fonction Select Case

Bonjour,

regarde ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AW3:AW200")) Is Nothing Then
    Select Case Target
    Case 1: Target.Offset(0, 1).Value = "Garantie constructeur"
    Case 2: Target.Offset(0, 1).Value = "Visite semestrielle"
    Case Else: Target.Offset(0, 1).Value = "autre..."
    End Select
End If
End Sub

bon après midi
@+

 

[Pierrot93]

Re : Fonction Select Case

Re,

rajoute peut être ceci, sur la 1ère ligne de ta "sub" afin d'éviter le plantage si suppressions multiples dans la colonne concernée :

If Target.Count > 1 Then Exit Sub

 

[noviceAG]

Re : Fonction Select Case

Bonjour Pierrot93, le Forum,
Je te remercie de l'aide apportée et te souhaite une excellente journée.