Boucler sur les cellules de droites de la ligne active

Résolu
GarnierFlorian
Messages postés
129
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
26 juillet 2011
- 19 nov. 2010 à 11:44
GarnierFlorian
Messages postés
129
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
26 juillet 2011
- 19 nov. 2010 à 14:44
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


 

1 réponse

GarnierFlorian
Messages postés
129
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
26 juillet 2011

19 nov. 2010 à 14:44
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 :)
3