Discussion :

[Gestionnaire_rh]

Bonjour,

avec mon usf conçu pour la gestion des salariés, j'ai un pb avec ma combobox car si j'inscris un nouveau salarié (ajouter dans la premiere ligne vide de base de données le plus normalement) ma combobox1 qui doit me donner tous les identifiants de la colonne "A" ne se mets pas a jour, et je ne sais comment résoudre ce pb.

je vous remercie d'avance

[mercatog]

Bonjour
Une idée: Quand tu inscris ton nouveau salarié, re lance le code qui remplit ta combobox.

[Gestionnaire_rh]

Bonjour mercatog,

je vous remercie pour votre réponse rapide, mais comment faire pour relancer le code (comment faire pour relancer Private Sub UserForm_Initialize(), ou Private Sub ComboBox1_Change()), parce que je pense et je n'ai pas beaucoup de connaissances qu'il faut rafraîchir ou plus tôt actualiser l'instruction combobox1.additem.

[mercatog]

C'est pas Private Sub UserForm_Initialize en entier qu'il faudarit relancer, mais seulement la partie du code qui nous interesse.
Mats ici notamment les code pour Private Sub UserForm_Initialize et pour écrire ta nouvelle ligne sur la feuille.

[Gestionnaire_rh]

Bonjour,

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
16
17
18
19
20
Private Sub UserForm_Initialize()
Dim col As Byte
 
For col = 1 To 30
Me.Controls("Label" & col).Caption = Cells(6, col)
Next col
 
With Sheets("liste du personnel")
For y = 7 To .Range("a65536").End(xlUp).Row
        ComboBox1.AddItem
        ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(y, 1)
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = y
    Next y
End With
 
Me.Width = ScreenWidth * PointsPerPixel
Me.Height = ScreenHeight * PointsPerPixel
MultiPage1.ForeColor = vbBlack
 
End Sub

[SfJ5Rpw8]

Bonsoir ..

tu extrait les lignes 8 a 14 qui remplissent ta combo et tu les déplace dans une nouvelle procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private sub MiseAjourCombo() 'A toi de mettre un nom plus parlant
ComboBox1.clear 'Ajout d'une ligne pour effacer le précédent contenu
With Sheets("liste du personnel")
For y = 7 To .Range("a65536").End(xlUp).Row
        ComboBox1.AddItem
        ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(y, 1)
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = y
    Next y
End With
End sub

Dans ton code d’initialisation tu remplace les ligne 8 à 14 par un appel à la sub :

Code :

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

1
2
3
4
5
6
7
8
(...)
Next col
 
MiseAjourCombo
 
 
Me.Width = ScreenWidth * PointsPerPixel
(...)

Il te reste ensuite à rajouter un appel à ta procédure lors de toutes modifications..

[Gestionnaire_rh]

Bonjour bbil,

c'est impeccable, mon pb est résolu et j'ai même appris des choses aujourd'hui encore merci pour votre aide.

Cordialement

Gestionnaire_rh