MACRO

Je débute sur les macros et dois réaliser un petit exercice. A savoir remplacer la valeur de la cellule : si la valeur est zéro, une zone grisée sera appliquée à la cellule et si la valeur est supérieure à zéro, la ligne est barrée..... Je ne sais vraiment pas comment faire ? Est-ce que quelqu'un peut m'aider ?

D'avance merci sincèrement.

M.N.

Bonjour,

Essaie ce code valable pour la cellule A1 :

Sub test()
'Macro par Dan pour dop3 - xl pratique -18/08/08
Select Case Range("A1")
Case Is = 0
With Range("A1")
    .Interior.ColorIndex = 15
    .Font.Strikethrough = False
End With
Case Is > 0
With Range("A1")
    .Interior.ColorIndex = -4142
    .Font.Strikethrough = True
End With
End Select
End Sub

Code à placer en VBA (ALT + F11) dans un module.

Amicalement

Dan

Merci de votre proposition. Malheureusement, je ne m'en sors pas, ça m'indique une erreur.... Ce sont les chiffres de la colonne H qui doivent être modifiés

J'ai donc entré votre code comme suit :

Sub test()

'Macro par Dan pour dop3 - xl pratique -18/08/08

Select Case Range("A1:H9")

Case Is = 0

With Range("A1:H9")

.Interior.ColorIndex = 15

.Font.Strikethrough = False

End With

Case Is > 0

With Range("A1:H9")

.Interior.ColorIndex = -4142

.Font.Strikethrough = True

End With

End Select

End Sub

re

Dans ton 1er message tu parles de "la cellule" et dans ton dernier de "la colonne H".

Si ce n'est que ta colonne H entre H1 et H9, il faut modifier A1 dans mon code par H1:H9.

Si c'est toute la colonne H, tu peux remplacer A1 par H:H

Merci de bien expliquer ton pb ou de mettre ton fichier en ligne car le code peut changer bien évidemment.

Dan

Je passe un temps fou avec cette histoire et ne m'en sors pas... je suis nulle ! je m'adresse donc à l'expert que tu es et envoie mon fichier : https://www.excel-pratique.com/~files/doc/VYkaaClasseur1.xls

Je dois résoudre l'exercice ainsi :

Créer deux macros.

- si la commande est livrée entièrement la ligne est barrée. Par contre, si la commande n'est pas livrée entièrement, une zone grisée sera appliquée à la cellule.

Désolée de vous solliciter encore, mais il faut que je règle cela.

Merci, merci.

re,

Je ne peux pas télécharger ton fichier car tu n'as pas recopié le lien complet.

Peux-tu corriger dans ton post.

Dan

Re,

Nad-Dan a écrit :

re,

Je ne peux pas télécharger ton fichier car tu n'as pas recopié le lien complet.

Peux-tu corriger dans ton post.

Dan

C'est par ici

https://www.excel-pratique.com/~files/doc/VYkaaClasseur1.xls

Cdlt,

.

Avec mes excuses. Je renvoie le fichier.

https://www.excel-pratique.com/~files/doc/RLfc9Classeur1.xls

Re,

J'ai modifié la macro et son emplacement. Elle est placée en VBA dans la feuille concernée par ton tableau.

Dès que tu modifies une valeur en A1 et Hx, elle va adapter le grisé ou le barré.

FICHIER

Amicalement

Dan

Me voilà tirée d'affaire..Maintenant que tout est bien "brodé", je vais essayer de comprendre ce qui se passe pour pouvoir le refaire toute seule comme une grande !

C'est la première fois que je viens sur ce forum et j'apprécie beaucoup votre aide et votre promptitude.

Merci de tout coeur.

Marino

• 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 :

Édition par Mytå, pour ajout du mode [Résolu]