Discussion :

[BennyGamer]

Bonjour,

Je comment un peux a faire des macro mais je n'arrive pas a crée un macro a mon problème.

# J'ai 2 feuilles = "A" / "B"

- Dans la feuille "A", J'ai la liste de produit en ligne et la liste de commande de client en colonne. Exemple du tableau ci dessous

- Dans la feuille "B", J'ai la même mais avec TOUT les clients la liste continue sur la droite du tableau. Exemple du tableau ci dessous


Mon but est de crée une macro qui sélectionne le tableau de la feuille "A" pour le copier et coller sur la feuille "B" mais qui ne colle pas toujours sur la même case, qui puisse analysé puis si la case est déjà remplie décale automatiquement.
Et enfin a la fin du lancement du Macro quand il a tout copie/coller. Efface les données de la feuille "A" (Cellule : C2 ; C3 ; C5:CX )

Je vous remercie d'avance.

[Wololol]

Bonjour,

Ce code devrai fonctionner

Code :

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

1
2
3
4
 
Range("B1 : D5").Copy 'copie la zone souhaité
Worksheets("B").Range("A1").End(xlToRight).PasteSpecial Paste:=xlPasteAll  'colle à la fin du tableau à droite
Worksheets("A").Range("B1 : D5").ClearContents

Il faut (normalement) juste que tu adaptes à la range souhaité

[Menhir]

Ce code devrai fonctionner

A mon avis, ça risque d'être un poil plus compliqué, étant donné que les lignes 1, 2 et 3 semble contenir des cellule fusionnées (ce qui est une erreur et une horreur en VBA)...

[BennyGamer]

Et oui les 2 premières lignes sont fusionner. C'est pour sa que j'ai du mal également.

Mais du coup comment je pourrais faire pour que tout cela fonction ?

[Menhir]

Mais du coup comment je pourrais faire pour que tout cela fonction ?

Supprimer la fusion serait un bon début (d'autant plus qu'elle est certainement inutile).

[BennyGamer]

Ouais pas faux..

Faire une grosse cellule et supprimé la colonne "D" des kilos et aussi la colonne qui me sers a dire le prix "E" . Je ferai addition sur la cellule C3 mais du coup la case C3 devrais pas être supprimé a la fin du macro.

Et du coup le tableau deviendrai comme cela :

[BennyGamer]

Bonjour,

Ce code devrai fonctionner

Code :

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

1
2
3
4
 
Range("B1 : D5").Copy 'copie la zone souhaité
Worksheets("B").Range("A1").End(xlToRight).PasteSpecial Paste:=xlPasteAll  'colle à la fin du tableau à droite
Worksheets("A").Range("B1 : D5").ClearContents

Il faut (normalement) juste que tu adaptes à la range souhaité

La ligne : Worksheets("B").Range("A1").End(xlToRight).PasteSpecial Paste:=xlPasteAll
Me marque erreur

[Wololol]

Re,

Effectivement il faut que la case A1 de la feuille B soit remplie, ce qui n'est pas le cas.

Au vu du tableau que tu as, modifie simplement

Code :

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

Worksheets("B").Range("A1").End(xlToRight).PasteSpecial Paste:=xlPasteAll

par

Code :

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

Worksheets("B").Range("A4").End(xlToRight).PasteSpecial Paste:=xlPasteAll

En gros, la case de la range de destination ne doit pas être vide

Bonne journée

[BennyGamer]

Du coup vu que je débute assez sur le développement de macro.

J'aurais voulu copier la colonne D mais ne pas sélectionner la cellule D3.
Et le coller à la colonne D puis E ect.. Qui se décale au fur et à mesure quand la cellule cibles est déjà remplie.