ListIndex - Valeur par défaut

Version imprimable

Bonjour à tous et à toutes,

J'ai une macro à retravailler mais je n'y connais pas grand chose à ce langage de programmation. De ce fait je me tourne vers vous, fins connaisseurs.

J'aimerai actualiser une partie de code qui est associé à un onglet déroulant. En voici le code :
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() IDENTIFICATION.Width = Application.Width IDENTIFICATION.Height = Application.Height IDENTIFICATION.C.RowSource = "Param!c2:c4" IDENTIFICATION.C.ControlSource = "Param!TYPE" IDENTIFICATION.C.ListIndex = 0 End Sub
L'espace dans lequel on pioche les informations à afficher est c2:c4.
c2 est vide, c3 est égal à "Oui" et c4 est égal à "non".

Lorsque l'on lance la macro, l'onglet attend que l'on sélectionne l'une des trois variables en c2:c4.
Ce que j'aimerai c'est avoir une proposition par défaut à savoir la valeur contenue en c3.

Pouvez-vous m'aider ?

Merci d'avance.

Excellente journée à vous tous et vous toutes.

bonjour Niquo le forum essai comme cela

Code:

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize() 
IDENTIFICATION.Width = Application.Width 
IDENTIFICATION.Height = Application.Height 
 
IDENTIFICATION.C.RowSource = "Param!c2:c4" 
IDENTIFICATION.C.ControlSource = "Param!TYPE" 
IDENTIFICATION.C.ListIndex = 2 
End Sub

06/04/2009, 13h38
Niquo

Merci Laetitia pour ta réponse.
Je l'ai essayée mais malheureusement celle-ci n'apporte pas de changement.
Aurais-tu une autre proposition ?

Merci d'avance
06/04/2009, 13h45
laetitia

re, tu peus zipper un bout de ton fichier pour voir sans donnees confi...

Au final ta proposition fonctionne mais uniquement pour le permier onglet.
Je m'explique. Mon formulaire est constituée de plusieurs onglets et je souhaiterai que 5 d'entre eux aient déjà une proposition.

De ce fait, j'ai essayé la formule ci-dessous mais il n'y a que le prmier onglet qui effectue une proposition par défaut à l'utilisateur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub UserForm_Initialize() IDENTIFICATION.Width = Application.Width IDENTIFICATION.Height = Application.Height IDENTIFICATION.C.RowSource = "Param!c2:c4" IDENTIFICATION.C.ControlSource = "Param!TYPE" IDENTIFICATION.C.ListIndex = 2 IDENTIFICATION.D.RowSource = "Param!d2:d4" IDENTIFICATION.D.ControlSource = "Param!DELAI" IDENTIFICATION.D.ListIndex = 2 End Sub
Malheureusement je ne peux mettre de fichier test car mes données sont confidentielles. De plus est le fichier est complexe et en le simplifiant celui-ci ne fonctionne plus.

Encore merci à tous ceux et toutes celles qui m'accordent un peu de leur temps.

Excellente après-midi.

re,Niquo le forum pas facile un exemple j ai un userform & 2 combobox nommees
IDENTIFICATION & IDENTIFICATION1 attention j appelle les feuilles par leur numero a adapter
code
Option Explicit
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub UserForm_Initialize() Dim i As Integer With IDENTIFICATION For i = 2 To 4 .AddItem ThisWorkbook.Sheets(1).Range("c" & i).Value Next i .ListIndex = 2 End With With IDENTIFICATION1 For i = 2 To 4 .AddItem ThisWorkbook.Sheets(2).Range("d" & i).Value Next i .ListIndex = 2 End With End Sub
les 2 combos sont remplis que tu sois sur n importe quelle feuille!!