Lancer un USF en fonction de la feuille active

[Evelynetfrancois]

BONJOUR
je me permets de vous solliciter car je plane beaucoup
je n arrive pas à lancer un USF en fonction de la feuille active !!

j ecris ça , (entre autre ......) a la fin d une macro , mais ca ne marche jamais !!!

pouriez vous m aiguiller ??

If ActiveSheet = Sheets("CC") Then
UserFormDLCC.Show
End If
If ActiveSheet = Sheets("SS") Then
UserFormDLSS.Show
End If

merci d avance pour toutes vos sujetions
bonne soiree
E et F

 

[Guest]

Re : Lancer un USF en fonction de la feuille active

Bonjour EvelyneEtFrançois,

If ActiveSheet.Name ="CC" Then
UserFormDLCC.Show
End If

A bientôt

 

[tototiti2008]

Re : Lancer un USF en fonction de la feuille active

Bonjour Evelynetfrançois,

essaye :

If ActiveSheet.Name = "CC" Then
UserFormDLCC.Show
End If
If ActiveSheet.Name = "SS" Then
UserFormDLSS.Show
End If


Les objets ne peuvent pas se comparer avec un signe =, je crois... il faut passer par l'opérateur Is de mémoire

 

[Guest]

Re : Lancer un USF en fonction de la feuille active

Re,

Ou mieux

Select Case ActiveSheet.Name
 Case "CC" :UserFormDLCC.Show
 Case "SS" :UserFormDLSS.Show
End Select

A+

[Edition] T'avais pas vu TotoTiti, quand je dis "ou mieux", je pense bien-sûr à ma première proposition.

 

[tototiti2008]

Re : Lancer un USF en fonction de la feuille active

Bonjour Hasco,

Mais tout à fait, c'est mieux, puis que ma proposition était la même que ta première 🙂

 

[Evelynetfrancois]

Re : Lancer un USF en fonction de la feuille active

MERCI Hasco et Tototiti , pour l efficacite et la rapidité
c est super ca roule maintenant ................
bonne soirée à vous
et encore un grand merciiiii !!!
E et f

 

[tototiti2008]

Re : Lancer un USF en fonction de la feuille active

Allez, pour le concours du "encore mieux" ou "encore plus court", je propose :

       VBA.UserForms.Add("UserFormDL" & ActiveSheet.Name).Show