Sujet Précédent Sujet Suivant

Excel : Macro Range plusieurs cellules variables

Fermé
TeTo - 28 août 2015 à 08:44
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 28 août 2015 à 10:53
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 août 2015 à 08:59
bonjour 

Worksheets("FEUIL1").Range("D" & number & ":G" & number+1).Copy .Cells(.Rows.Count, "A").End(xlUp)(2)
0
TeTo
28 août 2015 à 09:22
Merci de ta réponse mais J'ai toujours une erreur sur cette ligne...
0
Réponse 2 / 2
TeTo
Modifié par TeTo le 28/08/2015 à 10:24
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 août 2015 à 10:53
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