Liste déroulante

C

Compte Supprimé 979

Guest

• 26 Avril 2009

• #2

Re : Liste déroulante

Salut Gourdin,

Un petit exemple ci-joint en réupérant la valeur de la cellule par VBA

A+

 

Pièces jointes

• Gourdin_Exemple.xls

  34 KB · Affichages: 73

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 26 Avril 2009

• #3

Re : Liste déroulante

Bonsoir gourdin,
salut Bruno 🙂, plus rapide que moi mais on a eu la même idée 😉:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "D2" And Target.Value <> "" And Len(Target.Value) > 5 Then Target.Value = Right(Target.Value, Len(Target.Value) - 5)
Application.EnableEvents = True

End Sub

Par formule, je pense pas que c'est faisable mais attendons de voir...

Bonne soirée à vous.

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 26 Avril 2009

• #4

Re : Liste déroulante

Merci

Celà fonctionne bien mais dans mon document original, il ya de nombreuses cellules (dans une même colonne) concernées par la liste déroulante (plus de 300).

Je ne sais si celà va fonctionner dans ce cas car la macro, dans l'exemple, cible uniquement la cellule D2.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 26 Avril 2009

• #5

Re : Liste déroulante

Re,

il est tout à fait possible de "cibler" une plage de cellule.
Par exemple, pour D2:d10, remplace:

Code:

Target.Address(0, 0) = "D2"

par

Code:

Not Intersect(Target, [D2:D10]) Is Nothing

 

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 26 Avril 2009

• #6

Re : Liste déroulante

J'ai essayé de remplacer mais celà ne fonctionne pas.

Merci de votre aide sur le fichier joint (avec le code original à modifier)

 

Pièces jointes

• Exemple.xls

  34 KB · Affichages: 53
• Exemple.xls

  34 KB · Affichages: 49
• Exemple.xls

  34 KB · Affichages: 52

Vote positif 0 Vote négatif

gourdin

XLDnaute Impliqué

• 26 Avril 2009

• #7

Re : Liste déroulante

OUPS !

J'ai finalement réussià changer le code comme indiqué

Merci beaucoup

 

Vote positif 0 Vote négatif