Discussion :

[EnzoExcel]

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...


Je n'ai aucune idée de comment m'y prendre le seul code que j'ai réussi à faire pr l'instant est de copier colonner la colonne I

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sheets("Feuil2").Select
    Range("I2:I1000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
 
    Sheets("Export").Select
    Range("M3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Merci de votre aide, en espérant que quelqu'un puisse m'aider à résoudre cela..

La question aussi c'est "Est-ce possible?"
Que je m'engouffre pas dans quelque chose d'impossible, je cherche partout sur le net là

[francoisem]

Rebonjour EnzoExcel,

C'est bien sûr possible, un exemple en partant sur le même principe de parcours de colonne que tout à l'heure :
Si tu veux copier et concaténer valeurs de ta colonne I de ta feuille "Feuille 3" a partir de ta ligne 2, dans ta colonne M de ta feuille "Export" à partir de ta ligne 3 :

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
 
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 = "Feuille 3"
Set feuille2 = "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

Je ne l'ai pas testé si il y a un soucis ou une incomprehension n'hésite pas à revenir me voir.

Cordialement,
François

[Kimy_Ire]

Salut EnzoExcel,

C'est tout à fait possible à l'aide d'une boucle et non pas d'un copier/coller.
Un exemple simple :

Code :

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

1
2
3
For i = 3 to 1000
Worksheets("Finale").Range("M" & i) = "ING/UNIE/" & Worksheets("Origine").Range("I" & i)
Next i

Dis-moi si tu rencontres des problèmes pour adapter !

Cordialement,
Kimy

EDIT : Déso' francoisem, pas vu ton message surement plus pertinent que le mien.

[EnzoExcel]

Kimy concernant ton code pour la ligne "For 3 = 0 to 1000" j'ai le droit à "erreur de compilation, erreur de syntaxe"

et francois concernant ton 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 = "Feuille 2"  (c'était feuille 2 et pas 3 je m'étais trompé)
Set feuille2 = "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

j'ai le droit à "erreur de compilation" Incompatibilité de type" au niveau du "feuille2" que j'ai surligné
..
Que dois-je faire?

Merci enormement de votre aide

[francoisem]

Le nom de ta feuille est-il bien exactement "Feuille 2" ?

Tu souhaites également bien transmettre les informations de ta feuille "Feuille 2" à ta feuille "Export" ?

Si oui, je vais revoir mon code et résoudre le pb.

Cordialement,
François

[EnzoExcel]

Oui c'est exact les informations se trouvent ds la feuille2 et doivent être éditées ds la feuille Exporté
avec la mention rajouté à chaque fois ING/UNIE devant l'entité

Merci bcp!

[francoisem]

Les noms de feuilles renseignés sont-ils exacts ?

Tu as bien mit ce code dans une macro que tu executes depuis le fichier excel qui contient ces feuilles ?

Essaie sinon ceci :

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
 
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 = "Feuille 2"
Set feuille2 = "Export"
'Tu te positionne aux lignes voulues
Yfeuille1 = 2
Yfeuille2 = 3
'9 correspond à ta colonne I, 13 à ta colonne M
While Workbooks(1).feuille1.Cells(Yfeuille1, 9).Value <> ""
Workbooks(1).feuille2.Cells(Yfeuille2, 13).Value = "ING/UNIE/" & Workbooks(1).feuille1.Cells(Yfeuille1, 9).Value
Yfeuille1 = Yfeuille1 + 1
Yfeuille2 = Yfeuille2 + 1
Wend

[AndréGranger]

Bonjour EnzoExcel,

A la vue de votre problème je vous conseille de vous procurer ce bouquin : http://www.amazon.fr/Excel-2010-pour.../dp/2754023968, il est très complet et vous permettra d'approfondir vos connaissances sur le tableur excel.

@++

André