Macro VBA pour arrondi et formule

Bonjour,

J'aimerai pouvoir arrondir à la troisième décimale une plage de cellule que j'ai sélectionné, et ceci à partir d'une macro VBA.

j'ai ce code mais il arrondi à l'entier supérieur.

Sub test1()
Dim c As Range
For Each c In Selection
If Left(c.FormulaLocal, 1) = "=" Then
c.FormulaLocal = "=ARRONDI(" & Right(c.FormulaLocal, _
Len(c.FormulaLocal) - 1) & ";)"
Else
If IsNumeric(c.Value) Then c.Value = Round(c.Value)
End If
Next c
End Sub

Je voulais demander une deuxième chose. J'ai des résultats d'estimations et je souhaite mettre des étoiles à mes coefficients pour indiquer leur significativité. Le petit soucis c'est que mes coef sont disposés sur la même colonne mais une ligne sur deux. Entre chaque coef 'jai des statistiques (que je mets entre () automatiquement à l'aide d'une autre macro)

J'ai cette formule mais la aussi j'aimerai le faire pour une plage de cellule que j'ai moi même sélectionné (une ligne sur deux).

=SI(H8>=0;SI(H8<=0,01;CONCATENER(G8;"*");SI(0,011< =H8;SI(H8<=0,05;CONCATENER(G8;"**");SI(0,051<=H8;S I(H8<=0,1;CONCATENER(G8;"***");G8))))))

Merci beaucoup. Je peux joindre un fichier si besoin

Bonjour

Aktar a écrit :

Je peux joindre un fichier si besoin

Ah oui cela serait très bien

Wait & see

Voici le fichier.

Pour le coup c'est vraiment détaillé dans le fichier (peut être trop)

Bonsoir

Aktar a écrit :

Pour le coup c'est vraiment détaillé dans le fichier (peut être trop)

Ce n'est jamais assez détaillé

Un essai

Comme je ne comprenais pas ta formule, j'ai fait la mienne donc à vérifier

En principe si pas de coef le résultat est la valeur de la colonne sans "*"

A voir pour les dernières valeurs pas le même résultat que toi

mercipour ta réponse.

Par contre je n'arive pas à ouvrir le fichier, il semblerait qu'il soit endommgé ou quelque chose comme ça.

Bonjour

Aktar a écrit :

je n'arive pas à ouvrir le fichier

Que dire, je viens d'essayer et pas de problème

Je le joins de nouveau