Choix multiples dans un menu Colonne et non cellule [Résolu]

Signaler
Messages postés
166
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
19 décembre 2019
-
PYGOS69
Messages postés
166
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
19 décembre 2019
-
Bonjour,

J'ai récupéré une macro, sur le site de boisgonthierjacques, mais celle-ci fonctionne sur une cellule uniquement.

Cette macro permet de créer une liste déroulantes, avec des sélections multiples.
> Les choix s'ajoutent ou se retranchent si choix déjà fait.

Est-ce possible de modifier cette macro, pour que cela soit opérationnel sur la colonne et non uniquement sur la cellule $C$2

Colonne ( de c2 à c30), par exemple...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" And Target.Count = 1 Then
Application.EnableEvents = False
ValSaisie = Target
Application.Undo
p = InStr(Target, ValSaisie)
If p > 0 Then
Target = Left(Target, p - 1) & Mid(Target, p + Len(ValSaisie) + 1)
If Right(Target, 1) = Chr(10) Then
Target = Left(Target, Len(Target) - 1)
End If
Else
If Target = "" Then
Target = ValSaisie
Else
Target = Target & Chr(10) & ValSaisie
End If
End If
Application.EnableEvents = True
End If
End Sub


Merci d'avance pour votre aide si précieuse !

Crdlt

Configuration: Windows / Internet Explorer 11.0

1 réponse

Messages postés
11611
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
27 janvier 2020
1 616
Bonsoir Pygo

Il suffit de modifier la 1ere ligne
 If Not Intersect(Target, Range("C2:C30")) Is Nothing And Target.Count = 1 Then

Cdlmnt
Via
PYGOS69
Messages postés
166
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
19 décembre 2019
2
Bonjour via55,

Merci, via55, cela répond parfaitement à mon besoin!

Je te souhaite de passer de bonnes fêtes !

Bonne fin de journée !