Discussion :

[Niquo]

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 :

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

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.

[laetitia]

bonjour Niquo le forum essai comme cela

Code :

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

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

[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

[laetitia]

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

[Niquo]

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 :

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

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.

[laetitia]

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 :

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

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!!