Bonjour Tous,
J’ai trouvé ce code VBA (crédit à l’auteur dont j’ai oublié le nom) et que j’ai tenté de documenter à l’aide de mes lectures (en italique)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
‘Procédure si une cellule de la feuille est sélectionnée. Le paramètre Target correspond à la cellule sélectionnée
Dim V1 As Range
‘Déclaration de la variable V1 comme plage de cellule avec l’instruction DIM … As Range
If Target.Count > 1 Then Exit Sub
‘Si plus d’une cellule est sélectionnée, fin de la Sub…
Set V1 = Target.SpecialCells(xlCellTypeAllValidation)
‘Attribution d’une valeur à V1 avec instruction SET
If Not Intersect(V1, Target) Is Nothing Then
‘Procédure déclenchée si clic dans n’importe quelle cellule avec critère validation
Target = Left(Target, 3)
End If
End Sub
J’aimerais modifier cette procédure évenementielle pour l’appliquer à 1 colonne spécifique avec critère de validation.
Je ne sais pas comment procéder.
Merci pour votre aide
Mwasikitoko