Rapport de message :*
 

Re: Activer une liste de validation sur un clic droit

Titre du sujet : Re: Activer une liste de validation sur un clic droit
par criscris11 le 06/06/2012 20:25:51

Bonsoir Mireille, Jean-Marie, Didier, le forum,
Grâce à vous trois, non seulement vous avez résolu mon problème (oui, je sais je n'oublie pas la balise ) et en plus je m'endormirais moins bête ce soir car effectivement j'avais déjà vu la méthode Case mais je ne pensais pas qu'elle pouvait être utilisée dans une macro évènementielle et encore moins sur plusieurs colonnes (ou lignes ou ce qu'on veut...).
Donc pour résumé, plus besoin de clic droit pour sélectionner une valeur dans ma liste de validation .
 
Comme d'habitude et comme j'ai posté mes 2 codes hier soir, je vous met la macro unique que j'ai réussi (enfin j'espère) à compiler :

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case 1 'L'utilisateur a changé la valeur d'une cellule de la colonne A
            If Target.Count = 1 And Target.Row > 2 Then
            If Target.Value <> "" Then
      Transfert = Target
      If Transfert <> ActiveSheet.Name Then
        Application.EnableEvents = False
        Target.Resize(1, 69).Copy Sheets(Transfert).[A65000].End(xlUp).Offset(1, 0)
        Target.Resize(1, 69).Delete Shift:=xlUp
        Application.EnableEvents = True
      End If
    End If
  End If
        Case 5 'L'utilisateur a changé la valeur d'une cellule de la colonne E
           If Target.Count = 1 And Target.Row > 2 Then
           ActiveCell.Offset(0, 18).Select
           MsgBox "Ne pas oublier de saisir la date de promotion.", vbCritical, "Attention..."
           End If
    End Select
    Calculate
End Sub
 
J'ai testé et cela ma semblé bien fonctionner enfin cela produit l'effet désiré sur mes 2 colonnes. Merci de bien vouloir corriger mes erreurs le cas échéant.

Bonne soirée à tous et encore un très grand merci.