EXCEL ANNEE 2017
L'heure est venue de vous presenter
Une excel et bonne annee 2017 !
De la part de toute l equipe de VeriTi
Afficher selon clic
Publié par veriland le 03-Aug-2013 23:40 (2583 lectures)Procédure évènementielle qui va afficher un userform (qui doit éxister dans votre fichier) en fonction de la valeur de la cellule cliquée...
Pour cet exemple il vous faut trois Userforms nommés respectivement Userform1, Userform2 et Userform3
Ensuite, en fonction du nom inscrit dans une cellule s'affichera l'userform en question dès le clic sur la cellule
procédure à coller dans le module de feuille
Option Explicit
'Ti
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If InStr(1, .Value, "userform", vbTextCompare) > 0 Then
Select Case LCase(.Value)
Case "userform1"
UserForm1.Show
Case "userform2"
UserForm2.Show
Case "userform3"
UserForm3.Show
End Select
End If
End With
End Sub
| Naviguer à travers les articles | |
Mettre un lien |
Afficher l'occurence
 |
|
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
|
||||
