Choix multiples dans un menu Colonne et non cellule

Résolu/Fermé
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - Modifié le 19 déc. 2019 à 17:58
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 19 déc. 2019 à 17:54
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
A voir également:

1 réponse

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
19 déc. 2019 à 17:21
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
1
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
Modifié le 19 déc. 2019 à 17:57
Bonjour via55,

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

Je te souhaite de passer de bonnes fêtes !

Bonne fin de journée !
0