XL 2010 Somme dans cellules contenant des retours de lignes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pierrof

XLDnaute Occasionnel
Bonjour

J'aimerai réaliser un code qui me permettrai de réaliser la somme d'une cellule contenant des retours de lignes.

Sur mon fichier exemple dans la collonne A il y 2 cellules contenant des retours de lignes, j'aimerais pouvoir réaliser la somme de ces valeurs dans la même cellules et part la même occasion changer le format des cellules de colonnes en nombre.
Le nombre de cellules peut varier.

Merci d'avance de vos explications.

Cordialement
 

Pièces jointes

Salut PIERROF,
Copie ce code dans un module et lance la macro
VB:
Sub Test()
    With Sheets("Feuil1")
        For Each xCell In .Range("A2:A14")      'Lecture de la plage A2 à A14 (a modifier)
            xDecoupe = Split(xCell, Chr(10))
            xValeur = 0
            For F = 0 To UBound(xDecoupe)
                xValeur = xValeur + xDecoupe(F)
            Next F
            xCell.Value = Val(xValeur)
        Next xCell
    End With
End Sub
@+ Lolote83
 
Bonjour,

A la suite de plusieurs tests j'aimerais rajouter une sécurité sur les cellules contenant des retours de lignes.
En effet il peut y avoir du texte et donc j'aimerai que la Macro ne prenne pas en compte la ligne de texte pour réaliser la somme.
en espérant être clair
Je joint un fichier.

Merci d'avance de votre aide.

Cordialement
 

Pièces jointes

Bonjour,

A la suite de plusieurs tests j'aimerais rajouter une sécurité sur les cellules contenant des retours de lignes.
En effet il peut y avoir du texte et donc j'aimerai que la Macro ne prenne pas en compte la ligne de texte pour réaliser la somme.
en espérant être clair
Je joint un fichier.

Merci d'avance de votre aide.

Cordialement
Bonjour,
A défaut de @+ Lolote83 😉
et si j'ai bien compris
Essaye comme ceci
VB:
Sub Test()
    Dim DChiffre, D&, C As Range, Total As Double, xValeur As Double
    With Sheets("Feuil1")
        For Each C In .Range("A2:A" & .UsedRange.Rows.Count)    'Lecture de la colonne A)
            DChiffre = Split(C.Value, Chr(10))
            Total = 0
            For D = 0 To UBound(DChiffre)
                If IsNumeric(DChiffre(D)) Then Total = Total + DChiffre(D)
              Next
            If Total <> 0 Then C.Value = Total
        Next
    End With
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
251
Retour