VBA EXCEL sur plusieurs cellules ?
Résolu
JF123
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
JF123 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
JF123 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour, voici mon code (il permet d'afficher plusieurs choix dans une cellule à partir d'une liste déroulante). Mais, je n'arrive pas à l'appliquer à toutes les cellules. J'y travaille depuis 3 heures !
Merci pour votre aide
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" 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) = ":" Then
Target = Left(Target, Len(Target) - 1)
End If
Else
If Target = "" Then
Target = ValSaisie
Else
Target = Target & ":" & ValSaisie
End If
End If
Application.EnableEvents = True
End If
End Sub
Merci pour votre aide
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" 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) = ":" Then
Target = Left(Target, Len(Target) - 1)
End If
Else
If Target = "" Then
Target = ValSaisie
Else
Target = Target & ":" & ValSaisie
End If
End If
Application.EnableEvents = True
End If
End Sub
A voir également:
- VBA EXCEL sur plusieurs cellules ?
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide