L
lolonene
Guest
Bonjour à tous,
Je cherche à faire une macro qui va copier le contenu de 2 plages de cellule dans un autre feuille (jusque là je m'en sort) puis le trier par ordre alphabetique pour coller le résultat dans un tableau récapitulatif dont la structure est identique au deux premiers.
seulement j'obtiens une erreur 400 (dont je n'ai pas trouvé la signification)
je vous met mon code :
Merco d'avance
Je cherche à faire une macro qui va copier le contenu de 2 plages de cellule dans un autre feuille (jusque là je m'en sort) puis le trier par ordre alphabetique pour coller le résultat dans un tableau récapitulatif dont la structure est identique au deux premiers.
seulement j'obtiens une erreur 400 (dont je n'ai pas trouvé la signification)
je vous met mon code :
Code:
Sub SelectRecopie()
' Macro de synthese
'Efface tout le contenu de la feuille calcul
With Worksheets("calcul")
.Range("A1:IV65536").ClearContents
End With
' Copie le contenu des cellules a7 à a40 de la feuille 3-5 ans vers la feuille calcul en A1
With Worksheets("3-5 ans")
.Range("A7:Q40").Copy Worksheets("calcul").[A1]
End With
' Copie le contenu des cellules a7 à a40 de la feuille 6-12 ans vers la feuille calcul en A1
With Worksheets("6-12 ans")
.Range("A7:Q40").Copy Worksheets("calcul").[A41]
End With
' Tri le contenu de la feuille calcul par ordre croissant
With Worksheets("calcul")
Range("A1:Q100").Sort key1:=Range("A1:B100"), order1:=xlAscending
End With
' copie le resultat obtenu sur la feuille calcul dans le tableau de synthèse en feuille recap
With Worksheets("calcul")
.Range("A1:Q40").Copy Worksheets("recap").[A7]
End With
'Efface tout le contenu de la feuile calcul
With Worksheets("calcul")
.Range("A1:IV65536").ClearContents
End With
End Sub