[excel/VBA] aide sur macro
antic80
Messages postés
4877
Statut
Contributeur
-
antic80 Messages postés 4877 Statut Contributeur -
antic80 Messages postés 4877 Statut Contributeur -
Bonjour,
j'ai un classeur avec plusieurs lignes a traiter
l'ensemble des lignes et d'abord trier par mois puis par secteur
le secteur se trouve dans la colonne 4
de la colonne 5 a 16 il y a des données numériques
j'aimerai faire une macro qui pour un secteur donnée et une année donnée permettrait de faire la somme colonne par colonne de toutes les données du secteur
par exemple si je choisi le secteur 1 je dois additionner les 5 premieres lignes du tableau et ce pour chaque colonne
merci de m'aiguiller
j'ai un classeur avec plusieurs lignes a traiter
l'ensemble des lignes et d'abord trier par mois puis par secteur
le secteur se trouve dans la colonne 4
de la colonne 5 a 16 il y a des données numériques
j'aimerai faire une macro qui pour un secteur donnée et une année donnée permettrait de faire la somme colonne par colonne de toutes les données du secteur
par exemple si je choisi le secteur 1 je dois additionner les 5 premieres lignes du tableau et ce pour chaque colonne
merci de m'aiguiller
A voir également:
- [excel/VBA] aide sur macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
1 réponse
j'ai réussi a faire ce morceau de code
For i = 1 To lastline
If Cells(i, 2).Text = "2006" And Cells(i, 1).Text = "Décembre" And Cells(i, 4) = secteur Then
Cells(i, 2).Select
j = j + 1
Janvier(j) = ActiveCell.Offset(0, 3).Value
End If
Next i
j'arrive a stocker dans le tableau janvier les données de chaque ligne
comment je dois faire pour additionner le contenu d'un tableau
For i = 1 To lastline
If Cells(i, 2).Text = "2006" And Cells(i, 1).Text = "Décembre" And Cells(i, 4) = secteur Then
Cells(i, 2).Select
j = j + 1
Janvier(j) = ActiveCell.Offset(0, 3).Value
End If
Next i
j'arrive a stocker dans le tableau janvier les données de chaque ligne
comment je dois faire pour additionner le contenu d'un tableau
