If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

[Gaetan95800]

Bonjour,

J'ai besoin d'un Vlookup dans ma condition, mais de la cellule i1:i100

'If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

Puis copier

'Environ("UserName")

Dans une feuille différente

Merci beaucoup de votre aide

 

[Gaetan95800]

Re : If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

Je ne trouve pas encore et me suis mal expliqué 🙂

Pour résumer ;

'Environ("UserName") mettre le résultat dans une cellule

Mais encore ;

'If Environ("UserName") = (une recherchev) then

Je ne sais pas coder cette recherchev

Merci

 

[Pierrot93]

Re : If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

Bonsoir Gaetan

regarde peut être le code ci-dessous, si j'ai bien compris :

Dim x As Range
Set x = Range("I1:I100").Find(Environ("UserName"), , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox Environ("UserName") & " touvé en " & x.Address

bonne soirée
@+

 

[gilbert_RGI]

Re : If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

Bonjour;

testé sur Version 2003 et 2007

Sub recherche_user()
    On Error Resume Next
    nom = Application.UserName
       Var = WorksheetFunction.VLookup(nom, Sheets(1).Range("i2:i100"), 1, 0)

    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "erreur"
        Exit Sub
    End If
    MsgBox "Il y a bien " & Var & " dans la base"
End Sub

Salutations

Gilbert_RGI

 

[Gaetan95800]

Re : If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

Bonsoir Gaetan

regarde peut être le code ci-dessous, si j'ai bien compris :

Dim x As Range
Set x = Range("I1:I100").Find(Environ("UserName"), , xlValues, xlWhole, , , False)
If Not x Is Nothing Then MsgBox Environ("UserName") & " touvé en " & x.Address

bonne soirée
@+

Super merci !

J'ai pas besoin de la box, mais de copier la valeur "UserName" dans une cellule

Merci

 

[Pierrot93]

Re : If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

Re

comme ceci :

sheets("nomdetafeuille").range("A1").value = Environ("UserName")

 

[Gaetan95800]

Re : If Environ("UserName") = Worksheets("C-MenuDeroulant").Range("i1:i100") Then

Wouaaa

Merci à tous 😉 !!