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)
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour 

Worksheets("FEUIL1").Range("D" & number & ":G" & number+1).Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
0
TeTo
 
Merci de ta réponse mais J'ai toujours une erreur sur cette ligne...
0
Réponse 2 / 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
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
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