Discussion :

[oscar.cesar]

bonjour
philosophie de cette partie du programme:

je selectionne à l'aide du combobox (merci voir dernier post)les noms de mes feuilles,la selection effectuée, je la recopie dans un textbox.(ex feuil2, feuil5, feuil1) .

Mon combobox se trouve dans userform.
a l'initialisation du userform , j'initialise aussi le combobox( merci pour le code)

voici le code de initialisation du combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'initialisation du combobx1
Dim sh As Worksheet
For Each sh In Sheets
     If Left(sh.Name, 1) = "P" Then Me.ComboBox1.AddItem sh.Name ' recupere les nom des feuilles commencant par la lettre P
Next sh
'fin initi combobox1

jusque la, ca va .
A execution du formulaire, je recupere bien les infos (le nom des feuilles)dans le combobox mais lorsque je selectionne ma premiere feuil1 "feuil1", celle ci n'est retenue et recopie dans le textbox.
A l'inverse , si je selectionne les suivantes (ex feuil2, feuil10, ) cela fonctionne. Mieux encore , si revient à ma feuil1 , apres avoir selectionner, avant une autre feuille, ma feuille 1 est retenue et s'affiche dans le textbox.

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change() 'choix des nom des pronostique
 
Dim ichoixprono As Long
 
'Copie la liste des feuilles selectionner par le combox et les copie dans la feuille "liste"
  Sheets("liste").Range("c" & lig).Value = ComboBox1.Text
  lig = lig + 1
  'affiche le contenu des feuilles qui ont ete selectionnées dans le textbox
  If TextBox1.Text <> "" Then TextBox1.Text = TextBox1.Text & Chr(13)
  TextBox1.Text = TextBox1 & ComboBox1.Text
End Sub

A rien y comprendre ????????????????????????

[LeForestier]

Bonjour,
C'est une erreur qui arrive a tout le monde.
Il faut mette ta fonction dans Combo_Clic
et mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("liste").Range("c" & lig).Value = ComboBox1.list(ComboBox1.Listindex)

A+

[oscar.cesar]

bonsoir
desole mais la feuil1 n'est pas prise en compte à la prmeiere selection, c'est idem .
la difference la liste afficher dans le combobox est dans l'ordre decroissant .

[ouskel'n'or]

Dans l'init, ajoute déjà cette ligne après les déclarations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MeCombobox1.clear

après, on verra. Sinon je ne vois pas comment tu peux choisir la feuil1 alors que tes noms de feuilles commencent par "P"

[oscar.cesar]

bonjour
merci à tous

Modifications effectuées!
Mais helas, toujours le meme probleme.
la premiere (feuil1)selection ne veut pas etre prise.??????



Ouskel'nor, dans mon programme, je selectionne toutes les feuilles qui commencent par "P".
Pour l'exemple, j'ai pris le nom standar que l'on trouve par defaut ,soit feuil1,feuil2,etc.........

[oscar.cesar]

bonjoour
probleme partiellement resolu
j'avais dans la propriete TEXT du combobox1 , une valeur qui etait entrée :feuil1
donc .....
bon cela marche

merci à tous

une autre question sur les combobox mais dans un nouveau post

Merci