Discussion :

[EnzoExcel]

Bonjour, hier j'avais sollicité votre aide pour le même problème
Mais il y a un soucis dans le code qu'on m'avait aidé à effectuer

Je remet le problème ici :
"Bonjour, je me retourne vers vous une nouvelle fois, un dernier problème s'offre à moi dans ma macro, une fois ce problème terminé, ma macro sera enfin terminé !
Je vais essayé de vous expliquer au mieux mon problème.

Donc j'ai la feuille 2 colonne I
Dedans il y a des (entités responsables) par exemple

Feuille 3
I
1 (titre)
2 "Entité1"
3 "Entité2"
4 "Entité3"
Etc


Le but étant de coller ces noms ds
La feuille "Export" Colonne M à partir de la ligne 3
Mais en rajoutant à chaque fois devant un texte qui sera TOUJOURS le même "ING/UNIE"

Ce qui donnerait

Feuille Export
M
1 (titre)
2 (titre)
3 ING/UNIE/Entité1
4 ING/UNIE/ Entité2
5 ING/UNIE/ Entité 3
6 ING/UNIE/ Entité 4

etc..."


Donc Francois, m'avait aidé à faire ce code :

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
Dim feuille1 As Worksheet
Dim feuille2 As Worksheet
Dim Yfeuille1 As Integer
Dim Yfeuille2 As Integer
 
'Tu assignes ici le nom de tes feuilles
Set feuille1 = Workbooks(1).Worksheets("Feuil2")
Set feuille2 = Workbooks(1).Worksheets("Export")
'Tu te positionne aux lignes voulues
Yfeuille1 = 2
Yfeuille2 = 3
'9 correspond à ta colonne I, 13 à ta colonne M
While feuille1.Cells(Yfeuille1, 9).Value <> ""
feuille2.Cells(Yfeuille2, 13).Value = "ING/UNIE/" & feuille1.Cells(Yfeuille1, 9).Value
Yfeuille1 = Yfeuille1 + 1
Yfeuille2 = Yfeuille2 + 1
Wend

Mais il y a un problème qui se passe quand je met ce code dans ma macro

Code :

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

Set feuille1 = Workbooks(1).Worksheets("Feuil2")

A ce niveau du code, ça ne fonctionne pas et surligne tout en jaune, je n'arrive pas à comprendre pq, j'ai tt fait mais je désespere, et je m'en remet à vous,
En espérant que quelqu'un sache

Ca ne marche toujours pas en fait...
Je suis désespéré, j'ai le droit à

Erreur d'execution 9, l'indice n'appartient pas à la sélection

[eric4459]

Bonjour Enzo,
Essayes ceci :

Code :

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

Set feuille1 = ThisWorkbook .Sheets("Feuil2")

Eric

[eric4459]

Enzo,
Vérifie également le nom de ta feuille, si tu écrit

Code :

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

Set feuille1 = ThisWorkbook .Sheets("Feuil2")

et que ta feuille est nommée différemment tu vas générer l'erreur qui t'indique que l'indice n'appartient pas à la sélection, et cela est souvent du à une erreur d'inattention.
Eric