prob macr excel

[titiraf]

Bonjour,

Voici un tableau à deux colonnes.
A chaque chiffre dans la première colonne coresspond une valeur située dans le 2ème.
Dans la première colonne, certains nombre sont en gras par exemple 0517, 0121. Je voudrais faire la somme valeurs corespondant aux chifres en gras. Dans l'exemple que j'ai pris ce serait : 7 + 1 + 1 = 9. Je vous remercie de votre aide. Cordialement
THIERRY


3586 0,33
3588 0,5
0121 1
0121 1
0517 7
1031 1
1536 1
2557 1
2584 1

 

[Bradvid]

Re : prob macr excel

Bonjour Thierry,

Il n'y a pas une autre condition à part le fait que les chiffres dont tu veux additionner la valeur correspondante soient en gras?

A+

 

[Pierrot93]

Re : prob macr excel

Bonjour Thierry, Bradvid

essaye peut être la macro ci dessous :

Sub test()
Dim cell As Range, maval As Double
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If cell.Font.Bold = True Then maval = maval + cell.Offset(0, 1).Value
Next cell
MsgBox maval
End Sub

tes données dans les colonnes a et b commencant ligne 1

bonne fin d'après midi
@+

 

[wilfried_42]

Re : prob macr excel

bonjour à tous

voici le code ---> c'est une fonction personalisée à integrer dans un module

function sum_gras(plage as range) as double
dim mt as double, cel as range
application.volatile
mt = 0#
for each cel in plage
if cel.font.bold = true then mt = mt + cel.offset(0,1).value
next
sum_gras = mt
end function

Cellule à tester en gras : A1 à A15
Cellule à Additionner : B1 à B15
en C1 tu mets : =sum_gras(A1:A15)

Edit : bonjour pierrot, pas raffraichi excuse

 

[Staple1600]

Re : prob macr excel

Bonjour (et pardon pour le hors-sujet)

(j'avais mal lu le problème posé)

Enfin cette fonction personnalisée pourra toujours servir

Adapté de cette macro
Sum the digits numbers in a cell using custom VBA function in Microsoft Excel

Cela fonctionne sur mon poste (Excel 2000)

Function SOMMEGRAS(Number)
    Dim i As Integer
    For i = 1 To Len(Number)
    If Number.Characters(i, 1).Font.FontStyle = "Gras" Then
    SOMMEGRAS = SOMMEGRAS + Val(Mid(Number, i, 1))
    End If
    Next i
End Function

 

[Pierrot93]

Re : prob macr excel

Re Staple, bonsoir Wilfried

@Staple
comprends pas trop ton code, là tu boucles sur une suite de caractères dans une cellule et non dans une plage de cellules...

@+

 

[Staple1600]

Re : prob macr excel

Re

C'est pour cela que je disais que j'étais HS

En fait j'avais compris

Additionner les caractères gras (chiffres) contenus dans une cellule

C'est ce que fait SOMMEGRAS


si en A1 j'ai 123 (avec 1 en gras, 2 normal, 3 en gras)
alors SOMMEGRAS(A1) donne 4 comme résultat

Désolé d'avoir mal interprété la question

 

[Pierrot93]

Re : prob macr excel

Re Staple

j'avais pas raffraichi et donc vu ton hors sujet. @+