[XL-2003] Alimentation d'un Usf à partir de la cellule active

[JeanYvesGascon]

Bonjour,

Dans une feuille, il y a en
E6:E4000 un nom
F6:F4000 un prénom
G6:G4000 un n° de tél

je souhaiterais avoir un formulaire qui s'ouvre en faisant un double-
click sur une quelconque cellule de la colonne E
Donc, voici l'évenement déclenchant :

Code :

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
 
       If Target.Column = 5 Then
           UserForm2.Show
       End If
       Cancel = True
End Sub

Jusque là tout va bien ...

Dans mon UserForm2, je voudrais qu'il se passe ceci :
TextBox1 = valeur de la cellule active (En), valeur de référence pour
la suite
TextBox2 = valeur décalée (offset(0,1) sur la même ligne, cellule à
droite (Fn)
TextBox3 = valeur décalée (offset(0,2) sur la même ligne, cellule à
droite (Gn)

Là je bloques
Le tout étant de ne pas "débloquer"

Par la suite et après validation, je voudrais que la valeur de
Textbox1 retourne en (En) avec le format NomPropre(); idem pour
TextBox2 en (Fn) et TextBox3 en (Gn) avec la format spécial de numéro
de téléphone ....

Est ce possible ou suis je en train de rêver ???
Merci de vos éclairages

Cordialement

Jean-Yves

[rvtoulon]

Bonjour, il ya beaucoup d'exemple dans le forum pour ce que tu souhaites faire.
pour afficher le contenu de la cellule active dans un textbox dans initialize du userform met :

Code :

1
2
3
4
5
Private Sub UserForm_Initialize()
Me.TextBox1 = ActiveCell
Me.TextBox2 = ActiveCell.Offset(0, 1)
Me.TextBox3 = ActiveCell.Offset(0, 2)
End Sub

[mercatog]

Bonjour
Une autre proposition en utilisant une variable publique qui mémorise la ligne double cliquée.

Dans un module standard (déclarer la variable publique LaLig)

Code :

1
2
3
Option Explicit
 
Public LaLig As Long

Dans le module de Feuil1

Code :

1
2
3
4
5
6
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Cancel = True
LaLig = Target.Row
UserForm2.Show
End Sub

Dans le module de l'userform

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub UserForm_Initialize()
 
If LaLig > 0 Then
    With Worksheets("Feuil1")
        Me.TextBox1 = StrConv(.Range("E" & LaLig), vbProperCase)
        Me.TextBox2 = StrConv(.Range("F" & LaLig), vbProperCase)
        Me.TextBox3 = Format(.Range("G" & LaLig), "0# ## ## ## ##")
    End With
End If
End Sub
 
'A la fermeture
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
 
LaLig = 0
End Sub

[Jean-Pierre49]

Bonjour Mercatog

juste une question : pourquoi

Code :

If LaLig > 0 Then

Puisque

Code :

1
2
LaLig = Target.Row
UserForm2.Show

Cordialement

Edit: mercatog, merci de ta réponse ci dessous A@

[mercatog]

Certes, mais dans le cas où l'userform est aussi ouvert d'une autre façon et non suite au double clique.