Trouver et inscrire une cellule dans Textbox

Version imprimable

09/04/2008, 10h44
biloute91

Trouver et inscrire une cellule dans Textbox

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
09/04/2008, 11h08
scully2501

SI j'ai bien compris ce que tu demandes.

Pourquoi n'utilises tu pas la même méthode pour les deux?
09/04/2008, 11h17
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
09/04/2008, 11h23
ouskel'n'or

Peut-être

Code:

Textbox2 = Environ("USERNAME")

Ou

Code:

TextBox2 = Cells(NoLigne,1).offset(0,1)
09/04/2008, 11h36
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

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:

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+

09/04/2008, 12h03
biloute91

En l'adaptant cela fonctionne !!!

Merci pour ton aide ouskel'n'or