Assigner une feuille a un nom de variable

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ClemSintef

XLDnaute Nouveau
Bonjour,

Je dois coder une macro asez longue pour mon travail et je suis debutant et bloque avec un truc qui doit etre tout simple!

J'ai reussi a coder ce que je voulais mais je voudrais appliquer cette macro a differentes feuilles de mon classeur excel et pas seulement a Mandalselva_Transect qui est la feuille a laquelle j'applique mon code. Transect_Data est celle vers laquelle je transfere mes donnees. Le but etant de totu regrouper dans cette derniere.

Mon code ressemble a ca

If Not IsEmpty(Sheets("Mandalselva_Transect").Cells(i, 12)) Then
Sheets("Mandalselva_Transect").Select 'Copy Notes'
Cells(i, 12).Select
Selection.Copy
Sheets("Transect_data").Select
Cells(j, 3).Select
ActiveSheet.Paste

End If



et j'aimerais avoir quelquechose de ce genre afin de modifier rapidement le nom de la feuille a laquelle je veux appliq:

Working_sheet = Mandalselva_Transect

If Not IsEmpty(Sheets("Working_sheet").Cells(i, 12)) Then
Sheets("Working_sheet").Select 'Copy Notes'
Cells(i, 12).Select
Selection.Copy
Sheets("Transect_data").Select
Cells(j, 3).Select
ActiveSheet.Paste

End If


Une idee?

Merci beaucoup
 
Re : Assigner une feuille a un nom de variable

Bonjour,

regarde ceci :
Code:
Dim ws As Worksheet
Set ws = Sheets("Working_sheet")

ensuite pour utiliser cette variable :
Code:
If Not IsEmpty(ws.Cells(i, 12)) Then

code à utiliser dans un module standard.

bonne journée
@+
 
Re : Assigner une feuille a un nom de variable

Merci beaucoup pour la reponse super rapide!

J'ai juste du adapter a mon cas particulier et ca donne

Dim Working_sheet As Worksheet
Set Working_sheet = Sheets("Mandalselva_Transect")

If Not IsEmpty(Working_sheet.Cells(i, 12)) Then


Merci encore!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour