XL 2016 Somme des cellules d'une plage variable

[Franck Mutshanga The firs]

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]

Bonjour Franck Mutshanga The firs,

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]

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]

Bonjour fanfan38,

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

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]

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