Discussion :

[Robin32]

Bonjour,

Je ne suis pas trop mauvais en Excel mais pas du tout en VBA...

Je souhaiterais faire une macro qui vienne copier les colones d'un fichier Excel et les coller dans un autre classeur Excel sous une ligne d'en-tête.
J'ai déja fouillé le net mais sans succés.

J'ai trouvé ce genre de formule:

Code :

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

Sortie.Worksheets("Feuil1").Cells(3, 1) = Entree.Worksheets("Feuil1").Cells(1, 2)

Sela fonctionne pour une cellule mais je n'arrive pas à l'adapter pour une plage de cellule ou pour une colonne entiere. En plus de cela il faut rajouter la ligne en-tête...

Si vous pouviez m'éclairer svp...
Merci =)

Robin

[Jean-Philippe André]

Bonjour,

Bienvenue sur DVP
pour un "ingenieur", tu n'as pas du beaucoup chercher

Code :

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

Sortie.Worksheets("Feuil1").Range("A2:A6").Value = Entree.Worksheets("Feuil1").Range("D1:D5").value

[Robin32]

Merci Jean-Philippe pour ta réponse!
Tout le monde a sa spécialité et Excel est pour moi loin de l'être

J'ai maintenant 2 colonnes que je souhaite concatener (du style nom; prenom) et je veux la mettre dans une seule.
Je pensais avoir trouver la solution avec cette formule:

Code :

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

Sortie.Worksheets("Feuil1").Range("A2:A20").Value = Entree.Worksheets("Feuil1").Range("H1:H19").Value & " " & Entree.Worksheets("Feuil1").Range("H1:H19").Value

Mais ça ne fonctionne pas comme espéré.

Aurais-tu une idée?

Merci d'avance,

Robin

[Jean-Philippe André]

Hello,

La concatenation ne fonctionne pas de cette facon, il faut le faire cellule par cellule dans ce cas :

Code :

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

1
2
3
For i=2 To 20
Sortie.Worksheets("Feuil1").Range("A" & i).Value = Entree.Worksheets("Feuil1").Range("H" & i-1).Value & " " & Entree.Worksheets("Feuil1").Range("H" & i-1).Value
Next i

[BENNASR]

Bonjour
et pourquoi VBA pour la concaténation ???
la fonction standard de Excel CONCATENER fait l'affaire
à insérer dans C2 et tirer vers le bas

=CONCATENER(A2;" ";B2)

si tu cherche VBA il y a l'enregistreur automatique VBA
BONNE CONTINUATION