optimiser une copie coller

[adoul]

bonjour Tous le monde,
SVP, j'ai un problème dans mon macro, je sais je suis encore moins que la moyenne, aide moi

mon problème consiste à copier dans une autre feuille les données pour chaque pays de tel façons on obtient cette données pour tous les pays
au lieu de de chaque pays seul
voilà le code:
Sub All_Indicators()
Sheets("PopulationGrowthAnnual").Activate
Range("a3") = "Population growth (annual %)"

Sheets("Population_f_growth_annual_%").Activate
Range("a3") = "Population, female, Growth (annual, %)"
Algeria
Angola

End Sub

Sub Algeria()
Sheets("PopulationGrowthAnnual").Activate
Range("A5").Select
Range("A5") = "Algeria"
Sheets("Algeria").Activate
Range("c5:f5").Select
Selection.Copy
Sheets("PopulationGrowthAnnual").Activate
Range("b5:f5").PasteSpecial

Sheets("Population_f_growth_annual_%").Activate
Range("A5").Select
Range("a5") = "Algeria"
Sheets("Algeria").Activate
Range("c6:f6").Select
Selection.Copy
Sheets("Population_f_growth_annual_%").Activate
Range("b5:f5").PasteSpecial

End Sub

Sub Angola()
Sheets("PopulationGrowthAnnual").Activate
Range("A6").Select
Range("a6") = "Angola"
Sheets("Angola").Activate
Range("c5:f5").Select
Selection.Copy
Sheets("PopulationGrowthAnnual").Activate
Range("b6:f6").PasteSpecial

Sheets("Population_f_growth_annual_%").Activate
Range("A6").Select
Range("a6") = "Angola"
Sheets("Angola").Activate
Range("c6:f6").Select
Selection.Copy
Sheets("Population_f_growth_annual_%").Activate
Range("b6:f6").PasteSpecial

End Sub

merci d'avance pour vos aide

 

[nat54]

Re : optimiser une copie coller

bonjour
un petit fichier ?

 

[Efgé]

Re : optimiser une copie coller

Bonjour adoul,
Pour poster le fichier : clic sur le trombonne, puis parcourir (comme une pièce jointe d'Email.
Le fichier doit çetre annonyme et pesé moins de 48,8 Ko.
Vous pouvez le compresser sous windows: Click droit sur le fichier / Envoyer vers / Dossier compressé.
Avec vos données il sera plus facile pou tous le monde de vous aider.
Cordialement

 

[Efgé]

Re : optimiser une copie coller

Bonjour nat54,
La même réaction au même moment
Cordialement

 

[adoul]

Re : optimiser une copie coller

Bonjour nat54,
La même réaction au même moment
Cordialement

le problème que le pièce jointe est trés grande même j'ai minimiser au possible avec zip 51 ko
sauf avec winrar j'ai la solution de cette problème

 

[adoul]

Re : optimiser une copie coller

voilà la pièce jointe,
il est vide seulement faite une module et copier et coller le code qui j'ai envoyé
merci

 

[adoul]

Re : optimiser une copie coller

bonjour Tous le monde
Efgé SVP, vous pouvez me aider pour le truc qui j'ai déja envoyé hier
la taille de mon fichier et trés grande et j'arrive pas hier envoyé
juste vous pouvez crée un module et faire le coller du code dans cette module

Sub All_Indicators()
Sheets("Population_f_growth_annual_%").Activate
Range("a3") = "Population, female, Growth (annual, %)"
Angola
End Sub

Sub Angola()
Sheets("Population_f_growth_annual_%").Activate
Range("A6").Select
Range("a6") = "Angola"
Sheets("Angola").Activate
Range("c6:f6").Select
Selection.Copy
Sheets("Population_f_growth_annual_%").Activate
Range("b6:f6").PasteSpecial

End Sub

 

[Efgé]

Re : optimiser une copie coller

Bonjour adoul,
Si j'ai bien compris...
Voici une proposition (ça reste du bricolage, mais ça a le mérite d'exister...)
Cordialement

 

[adoul]

Re : optimiser une copie coller

Bonjour Efgé,
Merci beaucoup, c'est trés gentille.
cordiallement