[déplacé VB6 - VBA] décaler selon variable

Question

Bonjour, 

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


merci de vos éclairages.

juanito37 · Answer

Bonjour, 

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


merci de vos éclairages.

cs_Zock · Answer

Juste pour être sur tu veux faire :
pizza 33 
32 
pâtes 
riz 

ou plutot:

pizza 33 

pâtes 32 
riz

cs_Zock · Answer

Si jamais tu veux faire

| pizza  | 33
| (rien)| 32
| Pates  |
| (rien)|
| riz    | 

    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

juanito37 · Answer

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

cs_Zock · Answer

D'accord mais comment peux tu savoir le nombre de ligne à sauter, peux tu m'envoyer un imprim écran de ta feuille ?

[déplacé VB6 -> VBA] décaler selon variable

5 réponses

Votre réponse

Discussions similaires