Discussion :

[Marc31]

Bonsoir,
j'ai deux feuilles sur excel, une nommée "données" et l'autre nommée "table".
Sur la première feuille j'ai des valeurs que j'aimerais envoyer sur l'autre feuille "table" par exemple sur la feuille "données" en colonne A j'ai les noms de communes ça cela ne bougeras pas et resteras en colonne A sur la feuille "table" par contre sur la feuille "données" en colonne B j'ai des adresses que j'aimerais faire passer sur la feuille "table" mais en colonne D.
J'espere que quelqu'un pourras m'aider et dans l'attente d'une réponse je vous remercie et vous souhaite une bonne soirée.

Pierre

[JPierreM]

Bonsoir,

Je voudrai bien, mais je ne comprends absolument pas.
La ponctuation peut aider, car là tout est mélangé.

JP

[Marc31]

desolé!!
j'ai deux feuilles sur excel, une nommée "données" et l'autre nommée "table".
Sur la première feuille, j'ai des valeurs que j'aimerais envoyer sur l'autre feuille "table".
Par exemple sur la feuille "données", en colonne A, j'ai les noms de communes ça cela ne bougeras pas et resteras en colonne A sur la feuille "table".
Par contre sur la feuille "données", en colonne B j'ai des adresses que j'aimerais faire passer sur la feuille "table" mais en colonne D.
J'espère que quelqu'un pourras m'aider et dans l'attente d'une réponse je vous remercie et vous souhaite une bonne soirée.

[JPierreM]

Bonsoir,

J'arrive enfin à me connecter

Si j'ai bien compris votre souhait

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
    Worksheets("données").Range([A1], [A1].End(xlDown)).Copy _
    Destination:=Worksheets("table").Range("A1")
 
    Worksheets("données").Range([B1], [B1].End(xlDown)).Copy _
    Destination:=Worksheets("table").Range("D1")
 
End Sub

[Marc31]

Oui merci pour la rapidité, c'est exactement ça !! mais dans mes données j'ai des cases sans valeurs donc j'aimerais savoir si on peux arranger ça!
parce que le traitement s'arrête à la première case sans valeur!

Encore merci et bon week end

[mercatog]

Code :

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

1
2
3
4
Sub Macro1()
    sheets("données").Range("A:A").Copy sheets("table").Range("A1")
    sheets("données").Range("B:B").Copy sheets("table").Range("D1")
End Sub

[Marc31]

Merci beaucoup et dernier petit detail apres j'arrete promis...lol
la copie marche super bien mais pour la colonne A les nom des communes comporte juste apres le type de contrat.
Ca ce presente comme ça nom commune : AUROS (ES) et j'aimerais copier que le nom de la commune dans l'autre page.

Encore merci!!

[mercatog]

Merci beaucoup et dernier petit detail apres j'arrete promis...lol

Personne ne te demande d'arrêter;
Je propose que tu ouvre un nouveau sujet où tu relate clairement le problème que tu rencontres. Vu ton sujet initial, c'est résolu