Somme de 2 chiffres dans une meme cellule
Bonjour et bonnes fetes à tous.Dans une meme cellule j'ai les chiffres 12 et 15 par exemple.Dans un premier temps,je voudrais faire la somme càd 25 (dans une autre cellule),ensuite, comme cette somme dépasse 18, je voudrais "comprimer" en 2+5=7.Merci.
Bonjour
Pour ta premiere question.
=SOMME(DROITE(A1;2)+GAUCHE(A1;2))avec ta valeur en A1 et cette formule en B1, pour ta deuxieme question?????
Bonjour le forum,
En attendant les expert voici le code qui fonctione si le chiffre ne dépasse pas 100.
Si la somme peut dépasser 100 un autre code est necessaire
=SI(GAUCHE($A$1;2)+DROITE($A$1;2)>18;GAUCHE(GAUCHE($A$1;2)+DROITE($A$1;2);1)+DROITE(GAUCHE($A$1;2)+DROITE($A$1;2);1);GAUCHE($A$1;2)+DROITE($A$1;2))
A plus
Annette
fichier exemple pas d'erreur
Merci de votre réponse,mais j'ai la réponse # valeur ?
J'ai toujours la meme erreur:#valeur.A l'origine, je fais un copier/coller d'une page du site PMU.Faut-il faire un collage spécial pour que ce soit des nombres dans les cellules ?Je pense que l'erreur vient de là ,mais je ne sais pas la résoudre.Je vous envoie le fichier.Et encore merci.
Bonsoir,
je pense que le problème vient de la conversion de tes données, en données "calculables"....
Comme tu as quelques codes VBA, je suppose que tu as essayé de transformer tes données brutes, en données exploitables....
essaie ce code, pour extraire tes données, et ensuite applique les formules proposées....
Sub lameule()
Dim DerCol As Byte, DerLig As Long
DerLig = [A65000].End(xlUp).Row
With Range("A1:A" & DerLig)
.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
.TextToColumns Destination:=Range("A1"), OtherChar:=")"
End With
DerCol = [IV1].End(xlToLeft).Column
With Range(Cells(1, 1), Cells(DerLig, DerCol))
.Replace What:="-", Replacement:=" ", LookAt:=xlPart
.Replace What:="(", Replacement:="", LookAt:=xlPart
.ColumnWidth = 15
.HorizontalAlignment = xlCenter
End With
End SubMerci de toutes vos réponses.Pour coller le code,il faut insérer un module ou le coller dans général?J'ai essayé avec un module çà marche, mais qqles fois il me renvoie une date ?
Bonjour,
La ligne :
.Replace What:="-", Replacement:=" ", LookAt:=xlPart effaçait les tirets, justement pour éviter qu'Excel ne transforme la série 13-11 en une date, par exemple (13/nov)
Si excel continue à donner une date, peut-être as-tu également parfois un "/"?
Si c'est le cas, tu doubles la ligne ci-dessus, et tu remplaces le - par /
sinon, joins un fichier qui produit ce phénomène.
Sinon, oui, il vaut mieux coller ce code dans un nouveau module, comme tout code, d'ailleurs, si celui-ci ne concerne pas un évènement de feuille
Bonjour
Essaie sans passer par VBA avec les formules suivantes
https://www.excel-pratique.com/~files/doc/nIu152plus.xls
Cordialement
Bonjour à tous
Amadéus, ta formule fonctionne aussi avec un sommeprod me semble t il.
=SI(B8<=18;B8;SOMMEPROD((CNUM(STXT(B8;LIGNE($A$1:DECALER($A$1;NBCAR(B8)-1;;;));1)))))pour C8
Bonjour CB60
C'est exact!
Cordialement
Salut le forum
La meule, éviter de rajouter des fichiers sur les anciennes ficelles,
sinon la question est dure à suivre.
Je me demandais ou Amadéus avait récupérer le fichier complet...
Mytå
En prenant un peu aux et aux autres,j'ai pu me débrouiller.Merci encore pour vos réponses et je vous souhaite à toutes et à tous un bon réveillon et mes meilleurs voeux pour l'année qui s'annonce.
Re le forum
la meule a écrit :En prenant un peu aux et aux autres,j'ai pu me débrouiller.Merci encore pour vos réponses et je vous souhaite à toutes et à tous un bon réveillon et mes meilleurs voeux pour l'année qui s'annonce.
La Meule, tu n'oublies pas une petite formalité ...
- Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
grâce à l'utilitaire se trouvant en bas de page, aperçu :