Discussion :

[hugo70]

Bonjour, voici mon problème :

Je souhaite créer une forme sur une des 5 feuilles de mon fichier excel via une macro, la feuille qu'il faut sélectionner est renseignée dans un fichier texte:
je lis le fichier texte, je récupère la valeur (1,2,3,4 ou 5) puis en fonction de cette valeur je dois sélectionner la feuille adéquate (Feuil1,Feuil2,Feuil3,Feuil4 ou Feuil5).

Voici le code utilisé (sélection de la feuille) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 If sheet = 1 Then
        sheet_name = "Feuil1"
    ElseIf sheet = 2 Then
        sheet_name = "Feuil2"
    ElseIf sheet = 3 Then
        sheet_name = "Feuil3"
    ElseIf sheet = 4 Then
        sheet_name = "Feuil4"
    ElseIf sheet = 5 Then
        sheet_name = "Feuil5"
    End If
 
    'Ajout de formes automatique (Rectangle) dans la feuille
    With sheet_name.Shapes.AddShape(msoShapeRoundedRectangle, 10, coord1, 80, 85)
        .Name = "P0" & Project   'shape name
        .TextFrame.Characters.Text = Project   'inside Text
        .Fill.ForeColor.RGB = RGB(180, 130, 20) 'inside color
    End With

Mon problème c'est que la variable qui contient le nom de la feuille est de type String, j'ai déja essayé d'utiliser un type Worksheets en écriant sheet_name = worksheets("Feuil1").select mais ça ne marche pas non plus.

Ce code fonctionne uniquement quand je remplace sheet_name par le nom de la feuille directement (Feuil1 par exemple):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
   With Feuil1.Shapes.AddShape(msoShapeRoundedRectangle, 10, coord1, 80, 85)
        .Name = "P0" & Project   'shape name
        .TextFrame.Characters.Text = Project   'inside Text
        .Fill.ForeColor.RGB = RGB(180, 130, 20) 'inside color
    End With

Auriez-vous une idée de comment faire pour régler ce problème ? Sans avoir à copier 5 fois la même chose pour chaque feuille dans un mega IF

Merci d'avance pour votre aide

[Marc-L]

Bonjour !

Nom = "Feuil" & VariableTexteLu …   A utiliser via Worksheets(Nom) …

Et Feuil1 dans le dernier code n'est pas un nom de feuille mais un CodeName, ne pas confondre !

___________________________________________________________________________________________________________

Je suis Paris, Manchester, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[riaolle]

Bonjour,
Si j'ai bien compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    With Sheets("Feuil" & sheet).Shapes.AddShape(msoShapeRoundedRectangle, 10, coord1, 80, 85)
        .Name = "P0" & Project   'shape name
        .TextFrame.Characters.Text = Project   'inside Text
        .Fill.ForeColor.RGB = RGB(180, 130, 20) 'inside color
    End With

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim sheet_name       
sheet_name =array("Feuil0", "Feuil1","Feuil2","Feuil3","Feuil4","Feuil5")
'sheet_name =array("", "toto","titi","tutu","tata","tete")
 
    'Ajout de formes automatique (Rectangle) dans la feuille
    With sheets(sheet_name(sheet )).Shapes.AddShape(msoShapeRoundedRectangle, 10, coord1, 80, 85)
        .Name = "P0" & Project   'shape name
        .TextFrame.Characters.Text = Project   'inside Text
        .Fill.ForeColor.RGB = RGB(180, 130, 20) 'inside color
    End With

[joe.levrai]

Bonjour,

pourquoi un Feuil10 (qui pourrait exister dans le classeur bien que ça ne change rien dans le fond) plutôt qu'un Option Base1 ? Une logique qui m'échappe ?

[Invité]

Bonjour Joe,
Par ce que un array commence a zéro et les onglet a un donc il n'est utile que pour matérialiser le tableau(0)!

Oui il pourrait exister en tant que nom d'onglet mais pas en index d'onglet!

Je voulais écrire 0 pour la compréhension mais j'ai mis 10!


Array("",etc...

[hugo70]

Merci pour vos réponses, j'ai essayé les deux mais j'ai le message d'erreur suivant : "L'indice n'appartient pas à la sélection" sur les lignes suivantes :

Sol1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets(sheet_name).Shapes.AddShape(msoShapeRoundedRectangle, 10, coord1, 80, 85)

Sol2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets(sheet_name(sheet)).Shapes.AddShape(msoShapeRoundedRectangle, 10, coord1, 80, 85)

Pourtant mes feuilles Excel s'appellent bien Feuil1, Feuil2 etc...

Merci encore pour votre aide

[riaolle]

Explique un peu mieux ce que tu as fait. Qu'est-ce que sheet? sheet_name? Que valent-ils? Quelle méthode as-tu adoptée parmis celles que nous t'avons présentées?

[Invité]

bonjour
au moment de l'erreur,
click sur débuget passe ta sourie sur sheet et dis nous la valeur lue!

[joe.levrai]

Bonjour,

oui bien sûr, j'ai bien compris que ton "faux" indice 0 est là pour synchroniser les numéros de son listing et les feuilles

mais ce que je voulais savoir, c'est pourquoi procéder ainsi plutôt que de travailler en Base 1 et avoir de facto la synchro entre les deux numérotations ?
Ce n'est peut-être qu'une habitude de travail (les deux solutions fonctionneront), mais dans le doute je pose la question, une petite subtilité ou stratégie que je n'aurai pas vu. Je suis assez friand du Base 1 (à tort ou à raison) car j'ai horreur des décalages d'indices à gérer, surtout si on mélange du Array alimenté et du Array récupéré via un Range.

[Invité]

c'est sure que la base 1 évite toutes ambiguïtés!

mais devient ingérable au delà d'un certain seuil!

J'ai déjà fait une réduction de Carnot pour 40 éléments bonjour le binaire réfléchi!