[Excel 2016] – Syntaxe Target.SpecialCells(xlCellTypeAllValidation)

Accueil – Le CFO masqué Forums Excel [Excel 2016] – Syntaxe Target.SpecialCells(xlCellTypeAllValidation)

  • Ce sujet contient 1 réponse, 2 participants et a été mis à jour pour la dernière fois par SL, le il y a 7 mois.
2 sujets de 1 à 2 (sur un total de 2)
  • Auteur
    Articles
  • #63915
    Mwasikitoko
    Participant

    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

    #63925
    SL
    Participant

    Bonjour
    Si je comprends bien ce que vous voulez faire, il faut que la macro ne se déclenche que lorsque l’utilisateur clique dans la colonne B par exemple et pas dans les autres colonnes.
    Pour cela il suffit d’ajouter un critère dans le If… Exit Sub
    If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub

    Ou d’ajouter un critère Range(“B:B”) dans l’Intersect
    If Not Intersect(V1, Target, Range(“B:B”)) Is Nothing Then

    Cela dit, vous pouvez aussi limiter le nombre de caractère directement dans une validation

    Cordialement
    Stéphane

2 sujets de 1 à 2 (sur un total de 2)
  • Vous devez être connecté pour répondre à ce sujet.