nettoyage de cellules

[sri75]

Bonjour, j'utilise une macro ( mamacro ) pour travailler sur une selection de cellules et faire des opérations sur ces cellules.

je voudrais rajouter les opérations suivantes dans la macro :


Dans chaque cellule concernée, après que le calcul à faire ait été effectué,

Si ce calcul donne 0, il faut vider la cellule (ne pas laisser 0)

Si ce calcul donne des décimales, il faut retirer la virgule et les décimales

Mais sans modifier le format de la cellule, c'est-à-dire pas en mettant format nombre avec entier

Laisser le format en standard

La macro doit rechercher si le calcul a créé une virgule et dans ce cas, elle retire cette virgule et les décimales qui suivent



je poste un fichier exemple

Merci pour votre aide

 

[Jenovae]

Re : nettoyage de cellules

Hello,

Afin de vider la cellule si le résultat vaut "0", tu peux éventuellement essayer cela :

If macellule.Value = 0 then macelulle.clearcontents

Et tu place ce bout de code au bon endroit dans ta macro.

Sinon pour supprimer la virgule et les décimales, peut-être quelque chose du genre :

posVirgule = InStr(monNombre,",")    'te donne la position de la virgule dans ta chaine de caractères
macelulle.Value = Left(monNombre,posVirgule-1)

Voili voilou, je n'ai pas le temps de te mettre ceci dans un fichier test, mais ça devrait te permettre d'avancer un peu!
Bonne journée.

 

[mth]

Re : nettoyage de cellules

Bonjour sri75,

Peut-être avec ce code:

Sub mamacro()
Dim Cel As Range
 For Each Cel In Range("D5:F8")
    If Cel < 109 Then Cel.Value = Int(Cel * 10.225)
    If Cel = 0 Then Cel.ClearContents
   Next Cel
End Sub

Bonne journée,

mth

Edit: Bonjour jenovae 🙂
Edit2: 🙂 et bonjour flyonets

 

[flyonets44]

Re : nettoyage de cellules

bonjour
voici ton fichier avec une solution
Cordialement
Flyonets

 

[sri75]

Re : nettoyage de cellules

C 'est exactement ce que je cherchais, merci à tous et bonne journée