Ouvrir Userform suivant une condition cellule

Version imprimable

08/06/2018, 09h40
xaviou99

1 pièce(s) jointe(s)

Ouvrir Userform suivant une condition cellule

Bonjour,

J'ai actuellement un système d'identifiants lorsque j'ouvre excel (ou le nom de la personne est demandé). Or en fonction du nom renseigné, j'ai créé une feuille avec l'Userform qu'ils peuvent avoir accès. Je voudrais savoir si il existe un code pour ouvrir l'UserForm suivant le nom de la personne. Il serait préférable que ce soit automatique pour que je puisse rajouter des identifiants sans avoir à toucher au macro
Pour illustrer mon propos, je vous ai fais parvenir un fichier excel

Merci d'avance :)
08/06/2018, 09h43
MarcClap

Bonjour,

Veuillez lire ceci : https://www.developpez.net/forums/d8...s-discussions/
08/06/2018, 09h51
xaviou99

Merci pour cette intervention mais j'ai déjà lu ceci comme tu me le proposes si bien.
Je sais qu'il est préférable de ne pas envoyer de fichier joint dès le premier message mais pour éviter de faire perdre du temps aux personnes qui aident les novices en "détresse", autant leur faire parvenir un exemple d'une telle manière que le problème soit résolu rapidement pour qu'ils puissent aider d'autres personnes au lieu de passer énormément de temps sur un même problème. C'est une question de point de vue après mais il ne faut pas que penser à sa propre personne dans la vie...
08/06/2018, 10h03
MarcClap

Bon ben bien que je fasse partie de la catégorie "ne pense qu'à sa propre personne dans la vie" ... je mets quand même en garde les autres personnes de ce forum sur le risque qu'il y a à ouvrir un fichier AVEC macro.

Bonne chance
08/06/2018, 10h05
xaviou99

Ouvrir un fichier avec macro de 20 ko, il n'y a aucun risque non mais merci pour cette intervention

Citation:

Envoyé par xaviou99

Ouvrir un fichier avec macro de 20 ko, il n'y a aucun risque non mais merci pour cette intervention

Si c'était juste une question de taille... Tout fichier avec macro est à risque

Sinon pour le code met ça dans l'Userform "NOM"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
 
Private Sub CommandButton1_Click()
 
Dim dern_ligne As Long
Dim ligne_identifiant As Byte
 
dern_ligne = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'on cherche la dernière ligne du tableau
 
For ligne_identifiant = 2 To dern_ligne 'on boucle sur les identifiants
 
    If TextBox1 = Sheets(1).Cells(ligne_identifiant, 1) Then 'test logique de la valeur du textbox
 
        'On compare
        If Sheets(1).Cells(ligne_identifiant, 2) = "Oui" Then
            UserForm1.Show
            Exit For
 
        ElseIf Sheets(1).Cells(ligne_identifiant, 3) = "Oui" Then
            UserForm2.Show
            Exit For
 
        ElseIf Sheets(1).Cells(ligne_identifiant, 4) = "Oui" Then
            UserForm3.Show
            Exit For
 
        End If
 
    ElseIf ligne_identifiant = dern_ligne Then 'Si aucun identifiant ne correspond
        MsgBox "Identifiant Incorrect", vbInformation
        Exit Sub
 
    End If
 
Next ligne_identifiant
 
Unload Me 'On ferme le Userform
 
End Sub