Modif sur macro liste validation cascade dans cellule

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier un macro sur une liste de validation
dans cellule (auteur J.Boisgontier)...

Voir fichier

Merci pour votre aide et pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[tototiti2008]

Re : Modif sur macro liste validation cascade dans cellule

Bonjour Christian,

J'ai donné le nom Choix à la plage C2:C41

puis j'ai modifié le code de BOISGONTIER comme suit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("Choix")) Is Nothing And Target.Count = 1 Then
     SendKeys "%{down}"
  End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("Choix")) Is Nothing And Target.Count = 1 Then
     Set c = [choix1].Find(what:=Target.Value)
     If Not c Is Nothing Then SendKeys "%{down}"
  End If
End Sub

ça semble fonctionner

 

[Christian0258]

Re : Modif sur macro liste validation cascade dans cellule

Re le forum, tototiti2008,

Meri pour ta modif ça fonctionne parfaitement.
Dis-moi ; pourquoi sur un PC ça fonctionne et sur mon portable j'ai le message
permission refusée... puis débogage sur ; SendKeys "%{down}"

à te lire.
Bien à toi,
Christian

 

[tototiti2008]

Re : Modif sur macro liste validation cascade dans cellule

Re,

Ton portable est un Mac ?

 

[Christian0258]

Re : Modif sur macro liste validation cascade dans cellule

Re, le forum, tototiti2008?

Non, mais je ne sais pas ce qui se passe mais, sur mon portable, dans excel, les touches minuscule/MAJUSCULE sont inversées??? alors que sur ce message c'est ok...

Truc du fou ?

à te lire,
Christian

 

[tototiti2008]

Re : Modif sur macro liste validation cascade dans cellule

Bonjour Christian,

Pas d'idée.. un virus ?