Bonjour à tous,
j'aurais besoin d'un coup de pouce sur le sujet suivant.
Je souhaite, à partir d'une liste de choix, avoir un remplissage automatique de plusieurs cellules en fonction du choix effectué.
Je vous joint le fichier correspondant.
Pas de problèmes sur le premier choix, il me remplit bien les cellules voulues, or pour les choix suivants, il me renvoie la valeur "-4142", kesako?!
Je suppose que cela est lié au caractère événementiel de la procédure, mais mes compétences XL s'arrêtent là...
Autre piste, est-il possible de remplacer la valeur False 'x1none' par un nouveau Case?
Ci-dessous la macro en l'état actuel:
-----------
-------------
Nous avons donc les troix choix: Léger / Diffus / Autre, avec un remplissage par 'N/A' des colonnes AF à AI + AP dans les 2 premiers cas, et AF + AP dans le 3ème cas.
Merci d'avance !
j'aurais besoin d'un coup de pouce sur le sujet suivant.
Je souhaite, à partir d'une liste de choix, avoir un remplissage automatique de plusieurs cellules en fonction du choix effectué.
Je vous joint le fichier correspondant.
Pas de problèmes sur le premier choix, il me remplit bien les cellules voulues, or pour les choix suivants, il me renvoie la valeur "-4142", kesako?!
Je suppose que cela est lié au caractère événementiel de la procédure, mais mes compétences XL s'arrêtent là...
Autre piste, est-il possible de remplacer la valeur False 'x1none' par un nouveau Case?
Ci-dessous la macro en l'état actuel:
-----------
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Select Case Target.Column
Case 17 'Modif de la colonne Q = Léger-> Colonnes AF à AI + AP = N/A
Range("AF" & Target.Row).Resize(1, 4) = IIf(Target = "Léger", "N/A", x1None)
Range("AP" & Target.Row) = IIf(Target = "Léger", "N/A", xlNone)
Case 17 'Modif de la colonne Q = Diffus -> Colonnes AF à AI + AP = N/A
Range("AF" & Target.RowDiffus).Resize(1, 4) = IIf(Target = "Diffus", "N/A", x1None)
Range("AP" & Target.Row) = IIf(Target = "Diffus", "N/A", xlNone)
Case 17 'Modif de la colonne Q = Autre -> Colonnes AF + AP = N/A
Range("AF" & Target.Row) = IIf(Target = "Autre", "N/A", xlNone)
Range("AP" & Target.Row) = IIf(Target = "Autre", "N/A", xlNone)
End Select
End If
End Sub
-------------
Nous avons donc les troix choix: Léger / Diffus / Autre, avec un remplissage par 'N/A' des colonnes AF à AI + AP dans les 2 premiers cas, et AF + AP dans le 3ème cas.
Merci d'avance !
Pièces jointes
Dernière édition: