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.
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.