Flux rss
Ils ont besoin de votre aide
Collection CommentÇaMarche.net
Rechercher : dans
Par :

EXCEL MACRO CALCUL

ephemere18, le mercredi 28 mai 2008 à 15:58:48 
 Signaler ce message aux modérateurs

Bonjour à toutes et a tous!
je suis débutante et j'aimerai pouvoir effectuer un calcul pour ma base
alors elle se présente comme ceci
colonne 1 : région
colonne 2 : département
colonne 3 : ville
colonne 4, 5... jusqu' a 9 contiennent des données chiffrées propres à chaque ville (exemple nombre d'habitants, nombre de logements...)

J'ai besoin d'une macro qui additionne les données de toutes les villes appartenant au même département et qui affiche les résultats obtenus dans un tableau excel

une petite info : cette macro est utilisée dans un formulaire... on choisi la région via une combobox et puis on affiche les résultats dans un tableau excel
on a donc une ligne par département
colonne 1 liste des départements de la région
colonne 2 total nombre d'habitants des villes du département
colonne 3 total nombre de logements des villes du département.. etc jusqu’a la colonne 8


voila j'ai fais de mon mieux pour expliquer mon problème..
merci d'avance
bonne journée!

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « EXCEL MACRO CALCUL »
Posez votre question Répondre

1

croy, le mercredi 28 mai 2008 à 16:05:15

Essaye de commencer la macro, nous t'aideronsà partir de cela.

   
Répondre à croy

2

ephemere18, le mercredi 28 mai 2008 à 16:11:02

Ma macro est commencée mais pas le code pour effectuer le calcul

Private Sub Select_region_Change()

End Sub

Private Sub UserForm_Initialize()
Dim j As Integer, i As Integer
Dim temp()
Select_region.Clear
derLi = Sheets("base").Range("F1000").End(xlUp).Row
i = 1
ReDim temp(1 To derLi)
With Sheets("base")
For j = 3 To derLi
If IsError(Application.Match(.Cells(j, 6), temp, 0)) Then
temp(i) = .Cells(j, 6)
i = i + 1
End If
Next j
End With
Select_region.List = temp
End Sub

   
Répondre à ephemere18

3

croy, le mercredi 28 mai 2008 à 22:13:15
  • +1

Voici une ébauche de macro de calcul :

sub temp
   set laS = sheets("base")  
   numLgn = 3
   totalCol4 = 0
   do                                                                   ' boucle sur les lignes de données
      laRégion = laS.cells(numLgn,1)                         ' extraction de la région
      if( laRégion = '' ) then exit do                           ' si elle est vide ==> fin des données atteinte
      '
      if( laRégion = 'IdF' ) then                                 ' c'est la région que l'on veut traiter
         totalCol4 = totalCol4 + laS.cells(numLgn,4)     ' cumul 
      endif
      '
      numLgn=numLgn+1                                       ' passage à la ligne de données suivante
   loop
   msgbox "total col 4 ' & totalCol4                          ' affichage du résultat
end sub


Cette ébauche :
- n'est pas liée à ta userform : je te conseille de bien mettre au point ta macro de calcul en mettant dedans en dur les paramètres (ici "IdF") qui seront ensuite extraits de la UserForm
- est certainement incomplète (par exemple le cumul par département) mais je ne vais pas tout faire pour toi
- est formatté et commentée ce que je te recommande car ce n'est pas du temps perdu

   
Répondre à croy

4

ephemere18, le jeudi 29 mai 2008 à 15:55:31

Bonjou Croy,
merci pour le code mais j'ai essayer avec les modifs et ça ne fonctionne pas

   
Répondre à ephemere18

5

 croy, le jeudi 29 mai 2008 à 21:13:24

ENvoie ton script et précise en quoi ca ne fonctionne pas.

   
Répondre à croy
Posez votre question Répondre
[Excel] Macro majuscule lettre initial (Résolu) Bonjours à tous, J'ai vu beaucoup de macro pour formater les polices tout en majuscule ou tout en minuscule, mais aucune ne fait mon bonheur à 100%. Voici le problème, j'ai des cellule excel qui contiennent tous plusieurs lignes chacune en faisant... www.commentcamarche.net/forum/affich-2219536-excel-macro-majuscule-lettre-initial
[VBA EXCEL] Macro qui s'execute automatiqemnt Bonjour! Je voudrais savoir s'il est possible de réaliser une macro qui : 1) S'ouvre en même temps que la feuille excel, 2) Se lance automatiquement lorsque l'utilisateur change la valeur d'une cellule précise. Exemple (très simple, dans ma macro... www.commentcamarche.net/forum/affich-3312668-vba-excel-macro-qui-s-execute-automatiqemnt
[Excel Macro] ptite macro de recherche simple Bonjour j'ai un petit problème sous excel. Je suis débutant en macro. Ce que je souhaite faire c'est rechercher dans une colonne (par exemple la colone B où j'ai des noms), si le nom "tartampion" existe. Si oui je souhaite récupérer le numéro de la... www.commentcamarche.net/forum/affich-2889413-excel-macro-ptite-macro-de-recherche-simple
[Excel] macro / copier-collerBonjour tout le monde :) C'est la première fois que je poste sur ce forum, et je suis sûr que quelqu'un aura la réponse à mes quesitons. Voilà j'utilise excel (office XP), j'ai une longue colonne (A) de chiffres, j'applique une première macro dont le... www.commentcamarche.net/forum/affich-2781336-excel-macro-copier-coller
[excel] macro comparer deux tableau et co...bonjour, en faite j'ai un probleme dans un premier fichier excel j'ai une colonne A contenant des prenoms, dans un deux fichier excel j'ai la meme liste (en K) et une colonne avec des dates de naissances en L. Est t'il possible avec un macro ou une... www.commentcamarche.net/forum/affich-2340815-excel-macro-comparer-deux-tableau-et-co
[EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANTBonjour, pouvez-vous m'aidez Je voudrais faire une macro excel (95) qui puisse prendre le résultat d'une cellule pour activer l'onglet du même nom. Le résultat à prendre en compte est le nom du serveur (ex : toto). J'ai bien sûr plusieurs onglets... www.commentcamarche.net/forum/affich-1734573-excel-macro-activer-l-onglet-correspondant
Résultats pour EXCEL MACRO CALCUL
Télécharger MOREFUNC (Macro complémentaire EXCEL)Morefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres... www.commentcamarche.net/telecharger/telecharger-34056283-morefunc-macro-complementaire-excel
Résultats pour EXCEL MACRO CALCUL