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