dupliquer une ligne de formulaire

[Goutedo]

Bonjour,

Alors voila, j'ai un problème un peu complexe pour mon niveau.

J'ai créé un Userform dans lequel il y a une partie "personnel".
Cette partie est divisée en deux temps:
1) Sélection du nom d'un employé à partir d'une ListBox
2) Un coefficient de pondération dans une TextBox
Exemple : Mr Dupont 0,85

Est-il possible de dupliquer les objets ListBox et TextBox dès que je suis sorti de la TextBox, pour que cela fasse comme l'exemple suivant:
Mr Dupont 0,85 Entrée (nouvelle ligne se crée automatiquement)
Mr Durand 0, 95 Entrée (nouvelle ligne)
Mr Toudou ....

Et si c'est possible, comment faire?

En fait, j'aimerais bien créer une nouvelle ligne comprenant ces objets un peu comme une nouvelle ligne se créer dans un tableau Word quand on arrive à la fin.

Je vous remercie de l'intérêt que vous porterez à cette question

Goutedo

 

[Stéphane]

Bonsoir,
En fait, tu dois d'abord te positionner en cellule A1:
Range("A1").Select
Ensuite, tu passes à la prochaine ligne en utilisant le code correspondant au CTRL flèche bas:
Range(Selection, Selection.End(xlDown)).Select
Tu passes ensuite à la ligne suivante (où tu veux écrire ta première valeur):
Range("A" & ActiveCell.Row + 1).Formula = listbox.value
Et à partir de cette même ligne, tu fais un décalage (offset) vers la droite pour aller y mettre le contenu de ta textbox:
Range("A" & ActiveCell.Row + 1).Offset(0,1).Formula = textbox.value
En résumé, voici le code:

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
With Range("A" & ActiveCell.Row + 1)
.Formula = textbox.value
.Offset(0,1).Formula = textbox.value
End With

Je pense que ceci devrait te satisfaire...
Bien à toi,
S.

 

[Goutedo]

Merci Stéphane,

Je vais essayer et puis advienne que pourra ;-).
C'est sympa d'avoir aussi bien expliciter la solution , car mon faible niveau du coup devient un peu moins faible.

Bonne journée

Goutedo