Discussion :

[alexandrud]

Bonjour,

J'ai un fichier (gestion des congés d'un groupe) qui contient pas mal de macros. Tout fonctionne comme je le souhaite, par contre, je vais envoyer un mail automatiquement (macro pour le mail c'est bon, c'est fait) et utiliser une signature (un nom) qui est récupérée depuis une feuille (disons Feuil1) en fonction de l'username... pour ceci, 2 colonnes, username et nom.

Cela fait quelques jours que j'essaie de comprendre comment faire ceci (voir fichier joint):

Dans la colonne A rechercher une valeur (qui représente le Application.UserName du PC)...
Si la valeur est trouvée, alors mettre dans une variable x la valeur dans la colonne B sur la même ligne que la valeur de la colonne A (ex, le username est 3, mettre dans une variable x la valeur "ac")

Cette variable x, représente la signature du mail automatique ...
j'espère que je suis clair. Je sais que c'est simple (ne vous moquez pas ), mais des fois le chose les plus simples on n'arrivent pas les faire fonctionner ...

j'ai essayé ceci, mais cela ne fonctionne pas :

Code :

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

1
2
3
For i = 2 To 20
If Worksheets("Feuil1").Range("A" & i) = Application.UserName Then x = Worksheets("Feuil1").Range("B" & i)
Next i

j'ai pensé à utiliser le "do ... while" ou "do until" ...


Merci par avance

[vinc_bilb]

Bonjour

Qqchose du style ci-dessou devrait pouvoir le faire

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
16
17
18
19
20
21
22
23
Sub Test_email()
 
Dim InpRng As Range, Cl As Range
Dim UserName As String, Sign As String
 
    Set InpRng = ThisWorkbook.Worksheets("Feuil1").Range("A1").CurrentRegion
    UserName = Application.UserName
    UserName = "3"  'String, à confirmer
 
    For Each Cl In InpRng.Columns(1).Cells
 
        Debug.Print Cl.Value, Cl.AddressLocal
 
        If CStr(Cl.Value) = UserName Then
 
            Sign = Cl.Offset(0, 1).Value  'On décalle d'une col et on sort de la boucle
            Exit For
 
        End If
    Next Cl
 
 
End Sub

[Marc-L]

Bonjour, bonjour !

Préférer les fonctions de feuille de calculs internes à Excel : c'est plus rapide et plus simple !
Dans ce cas en l’occurrence la fonction EQUIV (Match en VBA, anglais natif oblige …) :

Code :

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

1
2
3
4
5
6
7
Sub Demo()
               Const ID% = 3
    With Feuil1
                       V = Application.Match(ID, .Cells(1).CurrentRegion.Columns(1), 0)
        If Not IsError(V) Then MsgBox ID & " : " & .Cells(V, 2).Value2
    End With
End Sub

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[alexandrud]

Bonjour à vous 2,

Quelle rapidité

J'ai testé les 2 variantes (que j'ai adapté bien évidement à mon cas)... les 2 fonctionnent très bien. j'ai gardé la variante de vinc_bilb (plus "lisible", à mon avis, si un autre utilisateur est amené à trifouiller dans les macros de mon fichier)

Merci beaucoup !

Alexandre