Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

nettoyage de cellules

  • Initiateur de la discussion Initiateur de la discussion sri75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sri75

XLDnaute Occasionnel
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
 

Pièces jointes

Re : nettoyage de cellules

Hello,

Afin de vider la cellule si le résultat vaut "0", tu peux éventuellement essayer cela :
Code:
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 :
Code:
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.
 
Re : nettoyage de cellules

Bonjour sri75,

Peut-être avec ce code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
245
Réponses
1
Affichages
473
W
  • Question Question
Réponses
15
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…