Boucler sur les cellules de droites de la ligne activeRésolu

Question

Bonjour à tous ! 

Voici donc mon petit bout de code servant à calculer les totaux d'un tableaux :

Public Sub CalculTotaux()
    Dim i As Long

    With Workbooks(NOMFIC).Worksheets(FEUPRP)
        .Range("C" & .Cells(Rows.Count, 3).End(xlUp).Row + 1).Select
    
        Selection.Value = "Total"
        RESEXE.X = ActiveCell.Row
        RESEXE.Y = 4
        

        For i = 0 To 5
            .Cells(ActiveCell.Column & RESEXE.X).End(xlDown).Select
            ActiveCell = Application.Sum(.Cells(13, RESEXE.Y), .Cells(RESEXE.X, RESEXE.Y))
            RESEXE.Y = RESEXE.Y + 1
        Next i
        
    End With
End Sub

J'arrive à me placer sur la bonne ligne et à donner la valeur qui servira de nom (Total), mais je n'arrive pas à bouclé sur la cellule à droite de la cellule active pour rentrer les valeurs en utilisant la fonction de SOMME (pour i de 0 à 5).

Au passage je veux bien une vérif de mon utilisation de Somme parce que je ne suis pas sur d'utiliser la formule excel ms plutot une fonction ??! 

Juste pr illustrer (c'est rudimentaire^^) :

____A______B______C_____D______E_______F
1_Texte1___2______4______6______8______10
2_Texte1___2______4______6______8______10
3_Texte1___2______4______6______8______10
4_Texte1___2______4______6______8______10
5__Total ___8_____16_____24_____32_____40

J'aimerais obtenir la ligne 5, sachant que moi j'arrive à écrire le total de la cellule A5, mais je n'arrive ps à boucler sur ma ligne pr remplir B5,C5,etc...

Merci pour tout,

Peace

GarnierFlorian · Accepted Answer

C'est bon, on m'a donné la réponse sur un autre forum, je vous met le lient si vous souhaiter aller voir :

Reponse à mon problème

Peace :)

Boucler sur les cellules de droites de la ligne active

1 réponse

Votre réponse

Discussions similaires