macro pour fonction somme

Version imprimable

24/11/2011, 22h49
momo68610

macro pour fonction somme

Bonjour le forum, bonjour tout le monde

Me revoila avec mes questions :oops:

j'importe sur une feuille des chiffres en C10 et ce jusqu'a c15 ( par exemple) sachant que cela varie et peut-etre C22 ou C30 etc.... mais toujours debut en C10

A la fin des chiffres en colonne C , je veux faire la somme des chiffres via une macro;

alors mon essai serait :

Code:

ActiveCell.FormulaR1C1 = "=SUM(R[-19]C:R[-1]C)"

Mais n'ayant pas d'adresse exacte pour la fin de ma liste comment gerer l'emplacement de la cellule pour activer la fonction somme????

je peux utiliser :

Code:

Range("c100").End(xlUp).Offset(2, 0).Select

pour reperer la derniere cellule et descendre de 2 cellules, mais ensuite comment gerer ="=sum(R[-19]c...

Pour certains cela doit etre tout simple....mais moi ...:oops:

Alors merci d'avance si quelqu'un peut me depanner:ccool:

Bonjour,

Avec un code VBA

Code:

1
2
3
4
5
6
7
8
9
Sub SommeC()
Dim DerLig As Long
    With Worksheets("Feuil1") 'A adapter
        'Rechercher de la dernière ligne renseignée
        DerLig = .Range("C" & .Rows.Count).End(xlUp).Row
        'Indiquer la somme 2 lignes en-dessous
        .Range("C" & DerLig + 2) = Application.WorksheetFunction.Sum(Range("C10:C" & DerLig))
    End With
End Sub

Cordialement.

25/11/2011, 16h34
momo68610

Bonjour le forum,

Tout d'abord toutes mes excuses pour la mauvaise presentation de mes lignes code:oops: je prends note :ccool:

Merci a toi gFZT82 ta solution, une foix adaptee a mon programme, marche super :ccool:

En fait j'etais un peu dans cette voie, mais je ne savais pas comment formuler :

Code:

Sum(Range("C10:C" & DerLig))

Tu m'as donne la solution, un super grand merci a toi et a ce site d'etre la:ccool:

Parfois un petit rien vous sauve la vie!!!!!!!!!!!!:D

Merci a vous tous
25/11/2011, 19h18
momo68610

Me revoila.............

A force d'etre plonge dans ce programme je n'arrive plus avec les trucs qui devraient etre simple ( ou peut-etre pas!!!!):oops:

Je cherche a faire une formule pour le cas suivant:

En A2 une valeur

En B2 je veux afficher "Vrai" ou " Faux" en fonction de:

VRAI si la valeur de A1 est comprise entre 1 et 12 et 40 et 52
Faux dans les autres cas

Voila ou j'en suis ,mais cela ne marche pas!!!! Donc en B2

Code:

=SI(A2<10;"vrai";SI(A2>40;"vrai";SI(A2<52;"vrai";"faux")))

Quelqu'un peut me depanner S.V.P?:D

Sachant que peut-etre je ne suis pas au bon endroit pour le forum, mais je me dis que si quelqu'un passe par la!!!!!!!!!!!!!;)

Merci d'avance
25/11/2011, 19h52
gFZT82
Bien le bonjour momo68610,

Tu peux essayer avec
Code:

1 2 =SI(OU(ET(A2>0;A2<13);ET(A2>39;A2<53));VRAI;FAUX)
Cordialement.
25/11/2011, 20h08
momo68610

Merci gFZT82

ceci repond a ma demande et je n'etais pas pres de trouver:oops:

Grand merci a toi :ccool: