J'ai deux colonnes de données A et une colonne B qui stocke le résultat de plusieurs formules (peu importe les formules, le pb vient après !!)
je veux pour la ligne pizza calculer une somme de la colonne e et une somme de la colonne f
ex :
col A col B
pizza = somme ("E:E")
pâtes = somme ("F:F)
riz
résultat après le déclenchement de la macro qui applique le calcul pour la ligne pizza :
col A col B voici ce que je voudrais automatiser : col A col B
pizza 23 pizza 33
pâtes 32 32
riz pâtes
riz
il s'agit donc juste de sauter une ligne dans la colonne A une fois que mes calculs ont été fait en B
Je voudrais donc automatiserr via une macro le décalage de lign(s) vers le bas
j'aurais parfois plus de 2 calculs à appliquer sur une lignes. il faut donc que la macro intègre cette variable pour décaler correctement vers le bas les cellules de colonne A
J'ai deux colonnes de données A et une colonne B qui stocke le résultat de plusieurs formules (peu importe les formules, le pb vient après !!)
je veux pour la ligne pizza calculer une somme de la colonne e et une somme de la colonne f
ex :
col A col B
pizza = somme ("E:E")
pâtes = somme ("F:F)
riz
résultat après le déclenchement de la macro qui applique le calcul pour la ligne pizza :
col A col B
pizza 23
pa^tes 32
riz
voici ce que je voudrais automatiser :
col A col B
pizza 33
32
pâtes
riz
il s'agit donc juste de sauter une ligne dans la colonne A une fois que mes calculs ont été fait en B
Je voudrais donc automatiserr via une macro le décalage de lign(s) vers le bas
j'aurais parfois plus de 2 calculs à appliquer sur une lignes. il faut donc que la macro intègre cette variable pour décaler correctement vers le bas les cellules de colonne A
Dim i_ligne As Integer
Dim i_pas As Integer 'Nombre de saut a faire pour la colonne A
i_ligne = 5 '2 est la ligne de départ
i_pas = 2
Do
For i = 1 To i_pas 'on fait une insertion le nombre de fois voulu
Cells(i_ligne, 1).Insert Shift:=xlDown
Next
i_ligne = i_ligne + i_pas + 1 'on passe en suite la ligne suivante
Loop Until Cells(i_ligne, 1).Value = "" 'on le fait tant que la cellue n'est pas vide
End Sub
oui c'est bien cette idée là. Le problème étant que je n'ai pas toujours uniquement deux résultats de formule dans la colonne b et qu'il me faut donc parfois décaler en colonne A de trois, quatre (voire plus) lignes vers le bas
