Discussion :

[LPRVMZ]

Bonjour à tous,

J'ai un tableau 12 lignes (pour les mois) et 4 colonnes (pour les articles), je fais tourner une macro sur ce tableau.

Ma macro va chercher des valeurs de 4 articles dans un tableau croisé dynamique, cela me donne le total vente du début de l'année au mois de mise à jour.
Elle calcule ensuite l'écart entre la somme des valeurs du tableau (somme des mois passés) et la valeur du total vente, elle inscrit cet écart au dessus de chaque cellule du total général et en dessous des du total tableau.

Cet écart je dois l'incrémenter dans le tableau et ce pour les 4 produits et ce mois par mois.
Le point sur lequel je butte est suivant :

J'arrive à réupérer la valeur du premier écart, à l'insérer dans le tableau sous la dernière valeur remplie de ma colonne MAIS je suis incapable de refaire la même opération avec les 3 colonnes suivantes.

Auriez-vous une piste de solution parceque là c'est moi qui reboucle sur moi même à l'infini
Merci de toute réponse ^^

[Stanler]

Bonjour,

Peux tu nous partager ton code s'il te plait ?
Il peut y avoir pas mal de code qui font ce que tu souhaites.
Ca peut être un For next ou for each next ou do until ou d'autres choses encore.
En attendant d'avoir ton code, je te conseille de lire ceci : http://silkyroad.developpez.com/vba/boucles/ C'est un article très bien fait par SkilyRoad

[LPRVMZ]

Merci de l'intérêt

Voici où j'en suis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Sub NAT3() 'remplissage du tableau de suivi zinc NAT

Set CelluleDepart = ActiveSheet.Cells(16, 2)    'Céllule de départ
Set Tab1 = Range("B3:I13")                      'définir le tableau
Set Net = Range("B15:I16")
Set z1 = Range("B15:I15")


Net.ClearContents

' --------------REMPLISSAGE DU TABLEAU COLONNE Tonnes ----------------
   
CelluleDepart.FormulaR1C1 = _
        "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""NAT"")/1000"  'aller chercher la valeur Poids
CelluleDepart.Offset(0, 1).FormulaR1C1 = _
        "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""nat1"")/1000"
CelluleDepart.Offset(0, 2).FormulaR1C1 = _
        "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""nat3"")/1000"
CelluleDepart.Offset(0, 3).FormulaR1C1 = _
        "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""nat4"")/1000"



For Each i In z1
    i.FormulaR1C1 = "=R[1]C-R[-1]C"                                                                     'Calculer la valeur écart
        Next i
        
If CelluleDepart.Offset(-1, 0) > "0" Then                                                                 'si la cellule intermédiaire >0 alors
        Tab1.End(xlDown).Offset(1, 0) = CelluleDepart.Offset(-1, 0).Value                   ' Intégrer la valeur de l'intermédiaire dans le tableau
            Else
                Tab1.End(xlDown).Offset(1, 0) = "0"
                End IfEnd Sub

C'est en effet la boucle (dans la zone rouge) que je n'arrive pas à mettre en place.

[Stanler]

Je te conseille cette FAQ pour ce qui est des formules : http://excel.developpez.com/faq/?page=Formules, tu verras que tu peux écrire " .FormulaLocal= "=Somme(A1:B2)" "par exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub NAT3() 'remplissage du tableau de suivi zinc NAT
Set CelluleDepart = ActiveSheet.Cells(16, 2) 'Céllule de départ
Set Tab1 = Range("B3:I13") 'définir le tableau
Set Net = Range("B15:I16")
Set z1 = Range("B15:I15")
Net.ClearContents
' --------------REMPLISSAGE DU TABLEAU COLONNE Tonnes ----------------
CelluleDepart.FormulaR1C1 = "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""NAT"")/1000" 'aller chercher la valeur Poids
CelluleDepart.Offset(0, 1).FormulaR1C1 = "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""nat1"")/1000"
CelluleDepart.Offset(0, 2).FormulaR1C1 = "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""nat3"")/1000"
CelluleDepart.Offset(0, 3).FormulaR1C1 = "=GETPIVOTDATA(""Somme de POIDS"",'Tableaux croisés'!R1C6,""ZINC"",""nat4"")/1000"
 
For Each i In z1 'Tu n'as pas défini "i" avant de l'utiliser ! apparement c'est une cellule ?
i.FormulaR1C1 = "=R[1]C-R[-1]C" 'Calculer la valeur écart
Next i
 
If CelluleDepart.Offset(-1, 0) > "0" Then 'si la cellule intermédiaire >0 alors
Tab1.End(xlDown).Offset(1, 0) = CelluleDepart.Offset(-1, 0).Value ' Intégrer la valeur de l'intermédiaire dans le tableau
Else
Tab1.End(xlDown).Offset(1, 0) = "0"
End IfEnd Sub

Pour être honnête avec toi je ne saurais pas t'aider, il va falloir attendre les experts en VBA

[LPRVMZ]

Merci pour ton aide,
le message a été repris (j'avais pas intégré les balises )
C'est la partie basse de la procédure qui me bloque , à partir de "If CelluleDepart ....."

Je vais tenter de voir ton lien

A bientôt