slaurent01
XLDnaute Junior
Bonjour le forum,
J'ai une question, qui vous semblera peût être bête, mais étant débutant en vba je n'arrive pas à déclarer l'onglet "Devis" comme constante avec le nom Ws pour pouvoir l'utiliser dans toute mon application.
Je l'ai nommée lors de l'initialisation de l'userform mais j'ai créé un bouton et je fais appel à la valeur Ws pour raccoucir le code, ca ne fonctionne pas, je suis obligé de tout récrire.
......
J'ai essayé avec "Public Ws as worksheet"..... dans un module, mais en vain
Je vous remercie si vous pouviez m'apporter votre aide, afin de comprendre comment on optimise l'écriture de certains codes.
Cordialement
Séphane
J'ai une question, qui vous semblera peût être bête, mais étant débutant en vba je n'arrive pas à déclarer l'onglet "Devis" comme constante avec le nom Ws pour pouvoir l'utiliser dans toute mon application.
Je l'ai nommée lors de l'initialisation de l'userform mais j'ai créé un bouton et je fais appel à la valeur Ws pour raccoucir le code, ca ne fonctionne pas, je suis obligé de tout récrire.
Code:
Private Sub UserForm_Initialize()
Dim Ws As Worksheet
Dim Fr As UserForm
Set Ws = Sheets("Devis")
Set Fr = FrmDevis
Code:
Private Sub btnnouveau_Click()
[B]ThisWorkbook.Worksheets("Devis").Select '--> à remplacer par Ws
ActiveSheet.Unprotect
Range("A4").Value = Range("A4") + 1
TbxNdv = Range("A4")
[B]ThisWorkbook.Worksheets("Devis").Select '--> à remplacer par Ws
ActiveSheet.Protect
End Sub
J'ai essayé avec "Public Ws as worksheet"..... dans un module, mais en vain
Je vous remercie si vous pouviez m'apporter votre aide, afin de comprendre comment on optimise l'écriture de certains codes.
Cordialement
Séphane