Discussion :

[biloute91]

Bonjour,

Dans une feuille, j'ai en colonne A des numeros et en colonne B des Noms.
J'ai dans une autre feuille un USF avec 2 TextBox. La 1ère sert à renseigner les éléments de la colonne A par un commandButton (cela fonctionne) et je souhaiterais que dans la seconde Textbox l'équivalent Nom de la colonne B s'inscrive dedans.
Je crois qu'il faut utiliser la propriété Offset mais je ne sais pas comment .

Merci pour votre aide

[scully2501]

SI j'ai bien compris ce que tu demandes.

Pourquoi n'utilises tu pas la même méthode pour les deux?

[biloute91]

Bonjour scully,

je souhaite une automatisation car en fait le commandButton alimentant la TextBox1 est liée à une macro qui permet de determiner l'utilisateur de la session windows qui est numerique. Je souhaite donc la corresponce alpha dans la TextBox2.

J'espere que je suis clair dans mes explications

[ouskel'n'or]

Peut-être

Code :

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

Textbox2 = Environ("USERNAME")

Ou

Code :

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

TextBox2 = Cells(NoLigne,1).offset(0,1)

[biloute91]

Bonjour ouskel'n'or,

c'est effectivemment le code que j'ai utilise pour ma TextBox1 Me.Textbox2 = Environ("USERNAME")

Mais je souhaite que dans la TextBox2 s'affiche le nom alphabetique du User
que j'ai ecrit sur la feuille1 .

Ex:
En colonne A En colonne B
UserName Nom

111111 Biloute91

[ouskel'n'or]

Ok. Alors si je comprends bien, tu veux chercher dans la colonne A le N° du User afin de récupérer le nom dans la colonne B
Si c'est ça, utilise Find

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Chercheri TextBox1
End Sub
 
Sub Chercheri(NoUser)
Dim Trouve As Range
    With Range("A1:A" & Range("A65536").End(xlUp).Row)
        Set Trouve = .Find(NoUser, LookIn:=xlValues, LookAt:=xlWhole)
        If Not Trouve Is Nothing Then
                TextBox2 = Trouve.Offset(0, 1)
            Else
                MsgBox "User non trouvée"
        End If
    End With
End Sub

ceci, c'est si tu saisis manuellement le N° de l'utilisateur. Tu sauras adapter ?
A+