Select Case et sélection (en mémoire) d'une feuille

[titiborregan5]

Bonjour à tous,
je rencontre un problème avec un select case qui détermine quelle feuille utiliser...

en gros je fais (SerVice et Unité définis juste au dessus):

   Select Case SerVice
   Case "DE"
   R = Sheets("Modèle DE")
   Case "DR"
   R = Sheets("Modèle DR")
   End Select
   
   Select Case Unité
   Case "DSI"
   R = Sheets("Modèle DSI")
   Case "SAIMG"
   R = Sheets("Modèle SAIMG")
   Case Else
   R = Sheets("Modèle Autres")
   End Select

pour ensuite faire:

    ThisWorkbook.Sheets(R).Copy after:=aWb.Sheets(1)

enfin dans l'esprit car je n'arrive pas à coller la feuille qui est définie selon le cas...

Sans les select mon code marche parfaitement, et je ne veux pas remonter ma copie (et toutes les autres actions qui suivent) dans les Case car trop de répétitions et donc code plus lourd et moins facilement modifiable...

J'espère que vous pourrez m'aider.


Merci d'avance
Tibo

 

[Guest]

Re : Select Case et sélection (en mémoire) d'une feuille

Bonjour,

Peut-être pas tout compris mais
R fait référence à une feuille donc pas besoin de lui dire à quel classeur elle appartient, elle le sait.

If Not R is nothing then  R.Copy after:=aWb.Sheets(1)

En supposant que aWb fait référence à un classeur ouvert, quant au if not R is nothing c'est parcequ'il vaut toujours mieux tester ses variables.

A+

 

[titiborregan5]

Re : Select Case et sélection (en mémoire) d'une feuille

Oups, en fait c'était pas dur, faut juste pas mettre le sheets(...) dans les case mais directement le nom de la feuille...

du coup on a

 case "DE" r="Modèle DE"

et ça a l'air de marcher...

A+

Edit: merci Hasco pour ta réponse. ma variable est testée préalablement dans le code mais je vais voir pour refaire ce test!!! Et juste avec le nom de la feuille il sait à quel classeur elle appartient?

 

[Guest]

Re : Select Case et sélection (en mémoire) d'une feuille

Re,

Oui, cela marche aussi.
Non, simplement avec une variable de type String contenant le nom de la feuille, il ne peut pas savoir ce que représente ce nom c'est pourquoi tu es obligé dans ce cas de mettre ThisWorkBook.sheets(LeNomDeLaFeuille).

Comme tu sembles ne rien déclarer comme variable, je ne pouvais pas savoir si R devait être une variable worksheet ou string.
Dim R as WorkSheet 'Variable objet
Set R=ThisworkBook.Sheets("Modèle DE")

Dim R as String
R="Modèle DE"

Trouve un tuto sur la déclaration et les manipulations de variables, ce n'est pas ce qui manque.

A+

 

[titiborregan5]

Re : Select Case et sélection (en mémoire) d'une feuille

Trouve un tuto sur la déclaration et les manipulations de variables, ce n'est pas ce qui manque.
A+

Oui faut que je m'y penche là dessus, c'est les 2 h de formation que je n'ai pas pu suivre et parfois je galère...

Merci pour tout!

Tibo