Addition de plusieurs chiffres d'une cellule
Bonjour,
Après des recherches infructueuse, je me tourne vers vos compétences.
J'ai des cellules sous le format: 123456A (format qui ne change pas mis à part la valeur des chiffres).
Je souhaiterai, en vba, que cette cellule prenne la valeur 123456A(1+2+3+4+5+6) soit 123456A21
J'ai essayer avec des applications.sum, avec des left ou right mais je n'y arrive pas.
Quelqu'un a une idée?
Merci d'avance pour votre aide
Bonjour,
si t'es intéressé par une formule, si la valeur est en A1 alors en B1 :
=A1&SOMME(SIERREUR(STXT(A1;LIGNE(INDIRECT("1:"&NBCAR(A1)));1)*1;))@ valider par Ctrl+Shift+Enter
@ + +
Merci mais je cherche à le faire par vba pour la suite du traitement
Re,
ok, une âme charitable passera sûrement par ici pour t'aider.
Amicalement
Bonsoir,
Peut-être ci-dessous une solution à ton problème,et à adapter à ton fichier.
Cordialement.
alfa9.
Salut Marin d'eau douce,
quelque chose comme ça ?
Private Sub Worksheet_Change(ByVal Target As Range)
'
sFlag = Cells(1, 1)
iFlag = 0
'
For x = 1 To 6
iFlag = iFlag + Val(Mid(sFlag, x, 1))
Next
sFlag = sFlag & Trim(Str(iFlag))
'
Cells(1, 2) = sFlag
'
End SubA+
SUper merci beaucoup j'ai un peu adapté pour coller à ma macro mais ça marche.
J'ai employé des MID(range, etc...) et effectivement bien placé ça fonctionne
Merci à vous