Excel : Macro Range plusieurs cellules variables

TeTo -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je cherche à effectuer un tableau d'historique.
Pour ce faire, je voudrait copier une ligne de tableau de ma Feuil1 vers ma Feuil3
cependant la ligne à copier du tableau peut varier... 
With Worksheets("FEUIL3")
    Worksheets("FEUIL1").Range("D" & number:"G" & number+1).Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With

Mais ça ne fonctionne pas
Or ça fonctionne avec ce code 
With Worksheets("FEUIL3")
    Worksheets("FEUIL1").Range("D1:G2").Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
End With


Quelle est la formulation pour ça : 
Range("D" & number:"G" & number+1)

2 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour 

    Worksheets("FEUIL1").Range("D" & number & ":G" & number+1).Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
    0
    1. TeTo
       
      Merci de ta réponse mais J'ai toujours une erreur sur cette ligne...
      0
  2. TeTo
     
    Après quelques modification j'en suis arrivé à 
     
With Worksheets("Historique maintenance")
Worksheets("Planning").Range("B" & number & ":C" & number).Copy .Cells(.Rows.Count, "B").End(xlUp)(2)
End With


    Le debogage affiche erreur 1004
    Ne peut pas s'appliquer à une cellule fusionnée ( Or j'ai tout modifier pour ne plus travailler sur des cellules modifiés ... )
    0
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
      et coller le raccourci proposé (clic droit) dans le message de réponse
      Dans l'attente
      0