Discussion :

[pubbins]

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 :

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

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

[pubbins]

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

Dans un module:

Code :

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

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 :

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

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

Dans la feuille code correspond a la feuille excel:

Code :

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

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

[rjamin]

Bonjour,

Pour trouver le i vous pouvez utiliser

Code :

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

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.