Remplir des textbox avec une selection

Version imprimable

21/10/2010, 15h06
pubbins

Remplir des textbox avec une selection
Bonjour (de nouveau),

J'ai une autre question.
J'ai une autre userform dans laquelle je dois remplir 4 textbox a partir d'une feuille excel.

Ce que j'aimerais faire, c'est:
- cliquer sur la ligne i de la feuille excel
- ce qui me remplit mes 4 textbox comme suit:
Code:

1 2 3 4 Textbox1=Range(A&i) Textbox2=Range(B&i) Textbox3=Range(C&i) Textbox4=Range(D&i)
Et bien entendu, j'aimerais que cela ne fonctionne que lorsque la userform est ouverte (ce que je n'arrive pas a faire avec une private sub selectionchange dans la feuille excel)

J'ai pas vraiment d'idees...

Je vous remercie,

Pubbins

En fait, j'ai trouve une methode pour ceux que cela interesse:

Dans un module:

Code:

1
2
3
4
5
6
 
Public replaced As Boolean
 
Sub enableselection(var As Boolean)
replaced = var
End Sub

Dans la feuille de l'userform:

Code:

1
2
3
4
 
Private Sub UserForm_Initialize()
    enableselection (True)
end sub

Dans la feuille code correspond a la feuille excel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer
 
    If replaced = True Then
        i = Target.Row
        ReorganizeService.TextBox6 = Range("A" & i)
        ReorganizeService.TextBox7 = Range("B" & i)
        ReorganizeService.TextBox8 = Range("C" & i)
        ReorganizeService.TextBox9 = Range("D" & i)
    End If
 
End Sub

Voila, pas si complique finalement !

Pubbins

21/10/2010, 16h41
rjamin

Bonjour,

Pour trouver le i vous pouvez utiliser

Code:

i = ActiveCell.Row

Quand vous cliquerez dans une cellule de la ligne i la valeur de i dans le code sera la valeur de la ligne correspondante dans le tableau.

Trop tard merci d'avoir mis votre solution.