Discussion :

[Grég's]

Bonjour à tous, me voila bloqué sur un truc tout bête sans doute. je vous explique la situation :
je souhaite lorsque je clique sur la croix rouge,un userform apparait (c'est déjà en place). je souhaite que ce userform soit prés-remplis avec les information de la ligne sur la quel j'ai cliqué.

voici le code en place :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 
    TextBox1.Text = Format(Date, "dd/mm/yyyy")
    TextBox2.Text = Format("retraite")
    TextBox6.Text = Sheets("agents").range(ActiveCell.row).Value
    TextBox5.Text = Sheets("agents").range(ActiveCell.row).Value
    TextBox4.Text = range(ActiveCell.row)
    TextBox3.Text = range(ActiveCell.row)
 
 
End Sub

pour la ligne elle est composer de 6 cellules dont le bouton cliquable ( fait main)

merci de votre aide précieuse !
cdlt

[letienne]

Bonjour,

Code :

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

TextBox6.Text = Sheets("agents").range(ActiveCell.row).Value

J'imagine que ça plante à ce niveau. Activecell.row renvoi un nombre, et l'argument compris par Range doit être une adresse. Par exemple

Code :

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

1
2
 
TextBox6.Text = Sheets("agents").range("A" & ActiveCell.row).Value

EDIT :

pour la ligne elle est composer de 6 cellules dont le bouton cliquable ( fait main)

Pour mettre le contenu de plusieur cellules il faut concaténer les valeurs de chacune. Une petite boucle fait l'affaire :

Code :

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

1
2
3
4
5
6
7
8
 
dim monTexte as string
dim i as integer, ligne as long
ligne = Activecell.Row
for i = 1 to 5 'à adapter en fonction
    monTexte = monTexte & Sheets("agents").Cells(ligne, i)
Next
TextBox6.Text = monTexte

Etienne

[Grég's]

Bonjour Etienne,
Un grand merci pour aide et en plus fonctionnel !

a bientot !

cordialement
Grégoire