Macro Excel Copié Collé Sélection

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:

---

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à

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:

---

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

Salut EnzoExcel,

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

Code:

---

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 ! :ccool:

Cordialement,
Kimy

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

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:

---

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

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é

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

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!

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:

---

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

---

Exact le nom de la feuille était Feuil2, et non feuille2 j'essaye avec ça! merci!

Sinon ce code la marche chez moi :

Code:

---

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

---

Ahhhh c'est parfait !! Merci bcp françois ! Tout est au top!

Pas de soucis, ça fait plaisir de pouvoir moi aussi aider,

Bonne journée, n'hésite pas si tu as d'autre questions,
Cordialement,
François