texte par defaut dans zone de liste déroulante

Cousinhub

XLDnaute Barbatruc

• 19 Octobre 2008

• #2

Re : texte par defaut dans zone de liste déroulante

Bonsoir,

et dans la propriété Value?

 

Dernière édition: 19 Octobre 2008

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 19 Octobre 2008

• #3

Re : texte par defaut dans zone de liste déroulante

bonsoir bhbh
Merci je vais essayer la solution que tu me propose

 

Dernière édition: 19 Octobre 2008

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 19 Octobre 2008

• #4

Re : texte par defaut dans zone de liste déroulante

non ça ne fonctionne pas
la zone de liste ne revient pas par défaut sur le texte

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 19 Octobre 2008

• #5

Re : texte par defaut dans zone de liste déroulante

Re,

(j'ai supprimé mon PS......)

oui, mais en activant la feuille, il faut également imposer à la liste déroulante, de prendre la .Value......

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 19 Octobre 2008

• #6

Re : texte par defaut dans zone de liste déroulante

je viens d'essayer mais ça prend la ligne comme une value de sélection et ça met le bazard
dans combobox1 change j'ai sheets(combobox1.value).activate
et "sélectionnez la feuille voulue" n'est pas un nom d'onglet
je ne vais quand même pas être obligner de créer une feuille nommée "Sélectionnez la etc....)

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 19 Octobre 2008

• #7

Re : texte par defaut dans zone de liste déroulante

Re-

petit exemple

 

Pièces jointes

• jj1_combo.xls

  28 KB · Affichages: 145

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 19 Octobre 2008

• #8

Re : texte par defaut dans zone de liste déroulante

re ton exemple m'a donné une idée
j'ai fais en fait:

Code:

Private Sub ComboBox1_[COLOR="Red"]Click[/COLOR]()
Sheets(ComboBox1.Value).Activate
End Sub

et

Code:

Private Sub Worksheet_Activate()
ComboBox1.Value = "sélectionnez la feuille voulue"
If ComboBox1.Value <> "sélectionnez la feuille voulue" Then
Sheets(ComboBox1.Value).Activate

et là j'ai bien mon message perso qui s'affiche à chaque activate de la feuille
c'est quand même plus facile dans un usf
c'est un peu tarabiscoté mais ça fonctionne
bonne soirée

 

Vote positif 0 Vote négatif