[excel/VBA] aide sur macro

Fermé

antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 - 17 mars 2008 à 14:56
antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 - 19 mars 2008 à 19:45

Bonjour,

j'ai un tableau qui se présente comme suit

Décembre 2006 0 0 0 0 1 0 0
Décembre 2007 0 0 1 0 1 0 0
Novembre 2006 0 0 0 0 0 0 0
Novembre 2007 0 0 0 0 3 0 2
Octobre 2006 0 0 0 0 0 0 0
Octobre 2007 0 0 0 0 0 0 0

c comme ca jusqu'a janvier

j'aimerai une boucle qui au niveau de chaque ligne vide permette de calculer la progression en pourcentage de chaque colonne.

le tableau commence a la cellule a1.

A voir également:

[excel/VBA] aide sur macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Comment calculer la moyenne sur excel - Guide
Si et excel - Guide
Trier sur excel - Guide

3 réponses

Réponse 1 / 3

LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 338
18 mars 2008 à 17:57

bonjour

qu'appelles-tu "ligne vide" ? Est-ce à la fin de ton tableau de données ? Tu veux faire la somme de chaque colonne et voir l'évolution d'une colonne à l'autre ?

antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 1 161
18 mars 2008 à 21:21

en fait entre chaque mois il y a une ligne vide

entre décembre et novembre donc il faut faire la progression entre décembre 2006 et décembre 2007

LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012 338 > antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009
19 mars 2008 à 10:08

soit Décembre 2006 en A1, Décembre 2007 en A2 et ligne 3 vide

dans la cellule B3 tu colles la formule : =SI(B1>0;(B2-B1)*100/B1;0)
et tu obtiens le pourcentage d'évolution sauf si la valeur de Décembre 2006 est nulle.

Recopies la formule de B3 à H3 pour calculer les autres colonnes de Décembre

Ensuite recopie la ligne 3 pour la coller dans la ligne vide suivante (en principe la 6 si j'ai bien compris) pour le mois de Novembre.

A plus

antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 1 161 > LePierre Messages postés 249 Date d'inscription samedi 8 mars 2008 Statut Membre Dernière intervention 2 août 2012
19 mars 2008 à 16:48

le probleme est que ce tableau est généré par une macro donc a la suite de cette macro j'aimerai en insérer une autre qui une fois le tableau généré pourrais directement calculer la progression

voici la macro obtenue en enregistrement complétée d'une boucle pour recopier la ligne des formules toutes les 3 lignes :

Sub Copie_Formules()
Range("B3").Select
ActiveCell.FormulaR1C1 = "=IF(R[-2]C>0,(R[-1]C-R[-2]C)*100/R[-2]C,0)"
Range("B3").Select
Selection.Copy
Range("C3:H3").Select
ActiveSheet.Paste
Rows("3:3").Select
Selection.Copy

Lig = 6
Do
If Cells(Lig - 1, 1).Value = "" Then Exit Do
Rows(Lig & ":" & Lig).Select
ActiveSheet.Paste
Lig = Lig + 3 'car il y a une ligne vierge toutes les 3 lignes
Loop

Range("A3").Select
Application.CutCopyMode = False
End Sub

Réponse 2 / 3

Ivan-hoe Messages postés 433 Date d'inscription dimanche 17 février 2008 Statut Membre Dernière intervention 17 octobre 2008 309
19 mars 2008 à 17:33

Salut Antartic,
ci-dessous une petite procédure dont tu pourrais t'inspirer :
boucle sur les lignes ; si ligne vide détectée, alors boucle sur les colonnes pour y inscrire le calcul
En partant du principe que la colonne A contient les mois, la colonne 2 contient les années et les calculs se font à partir de la colonne 3 (d'où le 2 dans For i = 2 to DernColonne-1)

Sub Progression()
Dim DernLigne As Long, DernColonne As Long
Dim i As Integer

DernLigne = Range("A65536").End(xlUp).Row + 1
DernColonne = Range("A1").End(xlToRight).Column

Range("A1").Select
While ActiveCell.Row <= DernLigne
With ActiveCell
If Not .Value = Empty Then GoTo SUITE
.EntireRow.NumberFormat = "+0%;-0%;="
For i = 2 To DernColonne - 1
.Offset(0, i).Value = (.Offset(-1, i).Value / .Offset(-2, i).Value) - 1
Next i
End With

SUITE: ActiveCell.Offset(1, 0).Activate
Wend

End Sub

Au plaisir.
I.

Réponse 3 / 3

antic80 Messages postés 4785 Date d'inscription lundi 30 mai 2005 Statut Contributeur Dernière intervention 9 septembre 2009 1 161
19 mars 2008 à 19:45

merci a Ivan-hoe et lepierre pour vos réponses je teste ca dès que possible et vous tiens au courant

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro