XL 2016 Somme des cellules d'une plage variable

Franck Mutshanga The firs · 2 Juillet 2019

Bonjour,
Je travaille sur un projet et je suis bloqué... Donc un coup de main se votre part s'impose ! J'ai joint un fichier pour que tout soit pratique... En effet, je voudrai faire la somme des résultats de l'essai 1 (soit donnée 1, 2 et 3) et placer le résultat dans la cellule vide juste après (soit dans E3) sans oublié que les données 4,5,6... peuvent s'ajouter. Puis passer à la somme des résultats de l'essai 2 et ainsi de suite ! Merci et bonne compréhension...

job75 · 2 Juillet 2019

Bonjour Franck Mutshanga The firs,

VB:

Sub Somme()
With [A2].CurrentRegion.Columns(5)
    .FormulaR1C1 = "=IF(COUNT(RC[-3]:RC[-1]),SUM(RC[-3]:RC[-1]),"""")"
    .Value = .Value 'supprime les formules
End With
End Sub

A+

fanfan38 · 2 Juillet 2019

Bonjour
Si j'ai bien compris....
Tu sélectionnes la colonne des sommes
tu fait un clic droit et tu choisis insertion pour ajouter des données...
A+ François

job75 · 2 Juillet 2019

Bonjour fanfan38,

Si le nombre de colonnes peut varier cette macro définit la colonne des sommes :

VB:

Sub Somme()
With [A2].CurrentRegion
    With .Columns(Cells(.Row, Columns.Count).End(xlToLeft).Column + 1)
        .FormulaR1C1 = "=IF(COUNT(RC2:RC[-1]),SUM(RC2:RC[-1]),"""")"
        .Value = .Value 'supprime les formules
    End With
End With
End Sub

Franck Mutshanga The firs · 3 Juillet 2019

Merci à vous... J'ai utilisé vos explications et vos fichiers joints pour obtenir ce que je voulais ! Grand merci à tous...

XL 2016 Somme des cellules d'une plage variable

Franck Mutshanga The firs

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Franck Mutshanga The firs

XLDnaute Nouveau

Discussions similaires

XL 2016 Somme des cellules d'une plage variable

Franck Mutshanga The firs

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Franck Mutshanga The firs

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency