XL 2010 Copier coller avec Union Cell

[Stéfane]

Bonjour à tous,

Voici ci-dessous mon problème :

Sub A_SELECTION_PLUSIEURS_CELLULES()
Tableau A Copie des 2 cellules 1er Tableau colonne E et M
With ActiveCell
Union(.Cells, .Item(1, 9)).Select
Selection.Copy
Sheets("Tableau B").Select

Jusqu'ici tout va bien mais lorsque j'arrive sur la page ("DERO & R%ART") , je souhaite coller les cellules copier dans le (Tableau B) cases A8 pour ActiveCell et M8 pour la cellule .Item(1, 9). A ce stade les collage spéciaux ne colle la 2éme cellule = .Item(1,9) dans la case juste à droite. En collage classique juste en dessous.

Tableau B Coller les 2 cellules 2ème Tableau colonne A et M
Cells(1000, 13).End(xlUp)(2).Select (pour pouvoir renouveller plusieurs fois l'opération avec collage sur les lignes du dessous automatiquement)
ActiveSheet.Paste
Selection.NumberFormat = Standart (Pour la 1ère cellule = activeCell)
Selection.NumberFormat = "0.00%" (Pour la 2ème cellule = .Item(1,9)
End With
End Sub

Auriez vous une solution à me proposer pour résoudre cela ?
Merci d'avance.

 

[patricktoulon]

re
bonsoir
je sais pas ce que tu veux faire mais ceci n'est pas tres catolique

With ActiveCell
Union(.Cells, .Item(1, 9)).Select

je traduit ce que tu a codé

avec la cellule active
l'union (de toutes les cellules de l'activecell , la cellule(1,9) de l'activecelll ).select

et quand tu dis "Jusqu'ici tout va bien " je dis LOL

 

[Stéfane]

Bonsoir Patrick,
Merci de t'intéressé à mon problème.
La Macro sélectionne ''la cellule active'' + ''La cellule qui se trouve 8 cases plus loin sur la même Ligne.
Je souhaite ensuite, sur le tableau d'une autre feuille, pouvoir coller ''la cellule active'' en A8 et et la deuxième cellule en M8.
Pouvoir ensuite répéter l'opération plusieurs fois ''.End(xlUp)(2)'' sans devoir se positionner manuellement sur la ligne du dessous .
J'espère t'avoir apporté des précision sur ma démarche.

 

[Stéfane]

Bonjour à tous,

Ci-joint un fichier qui explique mieux ce que je souhaite faire.

Merci.