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
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
Dernière édition: