Choix multiples dans un menu Colonne et non cellule
Résolu
PYGOS69
Messages postés
452
Date d'inscription
Statut
Membre
Dernière intervention
-
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
PYGOS69 Messages postés 452 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Choix multiples dans un menu Colonne et non cellule
- Excel cellule choix multiple - Guide
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
Merci, via55, cela répond parfaitement à mon besoin!
Je te souhaite de passer de bonnes fêtes !
Bonne fin de journée !