Macro s'executant lors d'un choix dans un menu deroulant

S

Si...

XLDnaute Barbatruc

• 27 Septembre 2012

• #16

Re : Macro s'executant lors d'un choix dans un menu deroulant

salut

et Si... tu essayais (sans passer par EMPTY) ?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$C$5" Then Exit Sub
  For l = 15 To Cells(Rows.Count, "B").End(xlUp).Row
     Rows(l).Hidden = Cells(l, "C") = ""
  Next
  Range("C5").Select
End Sub

(clic droit sur le nom de l'onglet, Visualiser le code puis code du code ci-dessus)

 

Vote positif 0 Vote négatif

mikachu

XLDnaute Occasionnel

• 27 Septembre 2012

• #17

Re : Macro s'executant lors d'un choix dans un menu deroulant

pierrejean à dit:

Bonjour Dormeur 74

Veux-tu tester avec cette modification:
If Not Application.Intersect(Target, Range("C5")) Is Nothing And Len(Target.Value) > 1 Then

Cliquez pour agrandir...

Bonjour à tous
Je savais que mon niveau de vba était relativement faible mais là... C'est carrément du chinois. j'ai lu l'aide sur intercept mais j'ai quand même rien compris.
Pourrais-tu m'expliquer cette ligne s'il t eplait ?

merci

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Septembre 2012

• #18

Re : Macro s'executant lors d'un choix dans un menu deroulant

Re
Application.intersect(Target,range("C5")) definit le range a l'intersection des ranges Target et Range("C5")
ICI il s'agit de 2 cellules ,par consequent s'il y a une intersection c'est qu'il s'agit de la meme
Si elles etaient differentes le resultat serait Nothing (rien)
Not is Nothing dit donc que Target et range ("C5") c'est la meme chose
(pour ma part j'aurais ecrit If target.Adress="$C$5" then )
On ajoute que la valeur contenue dans C5 doit avoir une longueur >1 pour continuer la macro

 

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 27 Septembre 2012

• #19

Re : Macro s'executant lors d'un choix dans un menu deroulant

Je pense que la proposition de pierrejean, dans sa dernière pièce jointe, devrait te donner satisfaction.

Cela dit, je ne passerais pas à côté de ce que Microsoft a eu la bonté d'implémenter dans ses suites.
Une simple Userform contenant une Combobox comme dans l'exemple (photographie) ci-joint permet de scanner ce qui est frappé au clavier.

 

Pièces jointes

• glossaire.xls

  124.5 KB · Affichages: 70

Vote positif 0 Vote négatif

D

Delux

XLDnaute Occasionnel

• 28 Septembre 2012

• #20

Re : Macro s'executant lors d'un choix dans un menu deroulant

pierrejean à dit:

Bonjour Dormeur 74

Veux-tu tester avec cette modification:
If Not Application.Intersect(Target, Range("C5")) Is Nothing And Len(Target.Value) > 1 Then

Cliquez pour agrandir...

Salut a tous,

PierreJean ta methode me sort une erreur: "Run-Time error '50290' Method 'Intersect' of Object'_Application' failed 🙁

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Septembre 2012

• #21

Re : Macro s'executant lors d'un choix dans un menu deroulant

Re

Bizarre !!
Peux-tu poster le fichier qui provoque l'erreur ?

 

Vote positif 0 Vote négatif

D

Delux

XLDnaute Occasionnel

• 28 Septembre 2012

• #22

Re : Macro s'executant lors d'un choix dans un menu deroulant

J'ai essaye ton fichier exemple.

 

Pièces jointes

• Example.xls

  102 KB · Affichages: 56
• Example.xls

  102 KB · Affichages: 38
• Example.xls

  102 KB · Affichages: 47

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Septembre 2012

• #23

Re : Macro s'executant lors d'un choix dans un menu deroulant

Moi aussi
Et il fonctionne (en tout cas en ce qui concerne la ligne dont tu parles) !!
Tu peux cependant tester le remplacement par:

Code:

If Target.Address="$C$5" [I]And Len(Target.Value) > 1[/I] Then

 

Vote positif 0 Vote négatif

D

Delux

XLDnaute Occasionnel

• 1 Octobre 2012

• #24

Re : Macro s'executant lors d'un choix dans un menu deroulant[RESOLU]

pierrejean à dit:

Moi aussi
Et il fonctionne (en tout cas en ce qui concerne la ligne dont tu parles) !!
Tu peux cependant tester le remplacement par:

Code:

If Target.Address="$C$5" And Len(Target.Value) > 1 Then

Cliquez pour agrandir...

Mon cher Pierrejean,

Toutes mes felicitations 🙂
Maintenant cela fonctionne et sans faire d'erreur 🙂

Merci a tous pour votre aide si precieuse.

 

Dernière édition: 1 Octobre 2012

Vote positif 0 Vote négatif