userforme

[Florent]

re-Bonjour le Forum,

un autre petit defi, peut on changer le titre de la barre de titre du useform de façon aléatoire en allant chercher un titre sur une feuille ( feuil1 par exemple )

Florent

 

[Arnaud]

salut,

voila un ch'ti exemple :
Private Sub UserForm_Activate()
UserForm1.Caption = ActiveWorkbook.Sheets(1).Name
End Sub

 

[Florent]

Bonjour Arnaud,le Forum

Je me suis mal exprimer, j'ai une liste de citation sur ma feuil 1 de mon classeur excel ( en A1 jusque A10 )et je souhaiterai qu'à chaque fois que j'ouvre mon userforme , une des citation se place dans la barre de titre.

Sinon ce que tu m'a proposé fonctionne


Florent

 

[wally]

Bonjour Florent et le forum,

Essaye ceci :

Private Sub UserForm_Activate()
'Initialiser le générateur de nombre aléatoire
Randomize
'Générer un nombre aléatoire entre 1 et 10
iRow = Int((10 * Rnd) + 1)
'Afficher la citation dans l'USF
UserForm1.Caption = ActiveWorkbook.Sheets(1).Range("A" & iRow)
End Sub


Slts

wally

 

[Florent]

Bonjour Wally, Arnaud, le Forum,

Merci, vous êtes tous vraimant très fort

A+

Florent

 

[Bouba]

Bonjour
je viens de commencer en vba je peux dire que je suis encore nul:
je m'explique j'ai un classeur sous xls 2003 avec plusieur feuilles au moment de lancer mon classeur j'aurai un user forme qui se charge et mes feuilles soit invisible quelqu'un peux m'aider Merci.
Bouba

 

[Hervé]

Bonjour

Pas sur d'avoir tout compris, si tu veux masquer des feuilles à l'ouverture de l'userform, regarde en pièce jointe.

Sinon, merci de préciser ta demande.

Attention : Je ne crois que ce soit possible de masquer toutes les feuilles d'un classeur, il faut au moins en garder une visible .

Salut
Hervé