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...
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
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
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