annee 2017

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

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Userform > Afficher selon clic

Afficher selon clic

Publié par veriland le 03-Aug-2013 23:40 (1536 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 Userform1Userform2 et Userform3

 

Ensuite, en fonction du nom inscrit dans une cellule s'affichera l'userform en question dès le clic sur la cellule

 

userform

 

procédure à coller dans le module de feuille

module

 

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
Article précédent Mettre un lien Afficher l'occurence Article suivant
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013